c'est la première fois que je fais (dans la programmation) appel à une fonction
Sub MonProgrammeAMoi() Action1 = maPremiereFonction() Action2 = MaSecodeFonction() 'ah ben tiens, je dois encore faire la meme chose qu'à ma premiere action 'Hop..j'appele de nouveau ma fonction ^^ Action3 = maPremiereFonction() Action4 = EncoreUneFonction() 'Etc.. End Sub
à une prochaine fois pour d'autres problèmes à automatiser
Sub test() Dim maplage As Range Set maplage = Range("A1:D10") For Each cellule In maplage Debug.Print cellule.Address & " " & IsMerge(cellule.Address) Next End Sub Function IsMerge(cel As String) Set c = Range(cel) If c.MergeCells Then Debug.Print "FUSION > " & c.MergeArea.Address IsMerge = True Else IsMerge = False End If End Function