Macro pour fusionner en boucle une cellule active et une cellule

Fermé
kal - 9 juin 2013 à 14:00
ccm81 Messages postés 10893 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 septembre 2024 - 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
A voir également:

1 réponse

ccm81 Messages postés 10893 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 septembre 2024 2 421
9 juin 2013 à 15:10
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
0