Discussion :

[Nimitz4145]

Bonjour à tous.

Je bloque sur une boucle pour fusionner des cellules. Je m'explique :

Toutes les cellules que je souhaite fusionner sont en ligne 2.
Je souhaite les fusionner 2 par 2 : B2:C2 puis passer à D2 que je fusionne avec E2, passer à F2 etc...
Je dois rater un truc....
Merci à toutes les bonnes volontés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    Range("B2").Select
    lig = 2
    col = 2
    For col = 2 To 40 Step 2
        Range("L2C" & col & ":L2C" & col + 1).Select
        Range(Selection).Merge
    Next col

[Marc-L]

Bonjour,

la présence de cellules fusionnées représente l'un des plus gros points noirs du développement en VBA !
La question à se poser d'abord, quel en est l'intérêt ?

Sinon regarder du côté de la propriétés Cells au lieu de Range pour la ligne n°6 …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[illight]

ça ça marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub Macro1()
lig = 2
For col = 2 To 40 Step 2
    Range(Cells(lig, col), Cells(lig, col + 1)).Merge
Next col
End Sub

[Nimitz4145]

Mille mercis illight!!!
C'est exactement ce qu'il me fallait. Je n'avais pas encore assez simplifié ma démarche (mes derniers "développements" datent d'Excel 4 où tout s'écrivait en "français")