Macro pour fusionner en boucle une cellule active et une cellule

kal -
ccm81 Messages postés 11033 Statut Membre - 9 juin 2013 à 15:10

bonjour

je souhaite faire une macro afin de fusionner en boucle 2 cellules qui se suivent dans la colonne c
la cellule c2 est active, la cellule c3 est vide = à fusionner
la cellule c4 est active, la cellule c5 est vide = à fusionner
etc jusqu' à la cellule cx soit vide

merci de votre reponse

Afficher la suite

1 réponse

ccm81 Messages postés 11033 Statut Membre 2 434

Bonjour

essaies ceci

Const lideb = 2
Const lifin = 20
Const co = "C"

Sub Fusion()
Dim li As Long
  For li = lideb To lifin Step 2
    ActiveSheet.Range(co & li & ":" & co & li + 1).MergeCells = True
  Next li
End Sub

Cdlmt

Macro pour fusionner en boucle une cellule active et une cellule

1 réponse

Discussions similaires

Newsletters