Trucs et astuces Express > Macro "renvoi à la ligne automatique"

Couttecouette

15-10-2007 - 6:18

Bonjour à tous,

En surfant sur le forum, j'ai trouvé la macro que je cherche depuis un moment déjà, à savoir le renvoi à la ligne automatique pour une celulle fusionnée. Voici le code :

CODE

Sub AutoFitMergedCellRowHeight()
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range<BR>Dim ActiveCellWidth As Single, PossNewRowHeight As Single
If ActiveCell.MergeCells Then
With ActiveCell.MergeArea .WrapText = True 'enclenche le renvoi à la ligne automatique (modif fs)
If .Rows.Count = 1 Then 'And .WrapText = True Then
   Application.ScreenUpdating = False
   CurrentRowHeight = .RowHeight
   ActiveCellWidth = ActiveCell.ColumnWidth
   For Each CurrCell In Selection
   MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth
   Next
  .MergeCells = False
  .Cells(1).ColumnWidth = MergedCellRgWidth
  .EntireRow.AutoFit
   PossNewRowHeight = .RowHeight
  .Cells(1).ColumnWidth = ActiveCellWidth
  .MergeCells = True
  .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, CurrentRowHeight, PossNewRowHeight)
End If
End With
End If
End Sub

Est-ce que quelqu'un pourrait me dire comment faire pour que ce ne soit pas une macro que j'exécute quand bon me semble mais une macro automatique et qui fonctionne sur une feuille excel complète ?

J'ai en effet toute une feuille excel qui contient des cellules fusionnées où cette macro m'est d'une grande utilité.

Merci pour votre aide précieuse.

herve62

07-02-2008 - 4:23

CITATION(Couttecouette @ 15-10-2007 - 12:18)

Bonjour à tous,

En surfant sur le forum, j'ai trouvé la macro que je cherche depuis un moment déjà, à savoir le renvoi à la ligne automatique pour une celulle fusionnée. Voici le code :

CODE

Sub AutoFitMergedCellRowHeight()
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range<BR>Dim ActiveCellWidth As Single, PossNewRowHeight As Single
If ActiveCell.MergeCells Then
With ActiveCell.MergeArea .WrapText = True 'enclenche le renvoi à la ligne automatique (modif fs)
If .Rows.Count = 1 Then 'And .WrapText = True Then
   Application.ScreenUpdating = False
   CurrentRowHeight = .RowHeight
   ActiveCellWidth = ActiveCell.ColumnWidth
   For Each CurrCell In Selection
   MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth
   Next
  .MergeCells = False
  .Cells(1).ColumnWidth = MergedCellRgWidth
  .EntireRow.AutoFit
   PossNewRowHeight = .RowHeight
  .Cells(1).ColumnWidth = ActiveCellWidth
  .MergeCells = True
  .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, CurrentRowHeight, PossNewRowHeight)
End If
End With
End If
End Sub

Est-ce que quelqu'un pourrait me dire comment faire pour que ce ne soit pas une macro que j'exécute quand bon me semble mais une macro automatique et qui fonctionne sur une feuille excel complète ?

J'ai en effet toute une feuille excel qui contient des cellules fusionnées où cette macro m'est d'une grande utilité.

Merci pour votre aide précieuse.

Comment se fait-il qu'il ny a eu aucune réponse pour une question si simple ????
C'est un forum ou personne s'y connait ??
Je découvre !!!!
je ne pense paas que la personne s'inquiète encore ??? ennfin voila la réponse

Private Sub Worksheet_Change
code ........ici
end sub

Groumphy

07-02-2008 - 9:57

CITATION(herve62 @ 07-02-2008 - 10:23)

Comment se fait-il qu'il ny a eu aucune réponse pour une question si simple ????