Bonjour le Forum,
J'ai essayé cette macro avec les modifications que l'on m'a proposé mais cela ne fonctionne pas. JE me retrouve à avoir mon texte qui n'a pas de retour automatique lorsque plusieurs cellules sont fusionnées. En plus clair, je me retrouve à ne lire qu'une ligne du texte dans la cellule fusionné alors que j'ai normalement trois lignes de texte qui devraient apparaitre.
Merci d'avance si vous trouvez une solution à m'apporter.[/color]
Jason
Ci-dessou la macro que j'ai utilisé :
Sub Fusionne()
'
Dim Ligne%
Dim ColFin%
Dim i%
'
For Ligne = 1 To Range('A65536').End(xlUp).Row
i = 1
Do
i = i + 1
Loop Until Cells(Ligne, i) ‹› '' Or i › 7
If i › 2 Then
ColFin = i - 1
Range('A' & Ligne, Cells(Ligne, ColFin)).Merge
Range('A' & Ligne, Cells(Ligne, ColFin)).Rows.Autofit
End If
Next Ligne
End Sub