Macro pour fusionner en boucle une cellule active et une cellule

kal -  
ccm81 Messages postés 11033 Statut Membre -
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

Réponse 1 / 1
ccm81 Messages postés 11033 Statut Membre 2 433
 
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

Discussions similaires

Impossible fusionner cellules
aubli -
Christian -

3 réponses
excel fractionner une cellule horizontalement
jalil -
barbiy -

5 réponses
Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses
Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

4 réponses
Excel : colorer une cellule sous condition d'une autre ?
KAKEPATHEL -
Pascal -

15 réponses