macro fusionner cellules avec conditions

[CHTING]

Bonjour à toutes et à tous,

J'essaye actuellement de faire une macro qui copier des cellules d'un onglet à un autre dans un emplacement précis (pas de problème la dessus) et par la suite, d'etendre et fusionner ces cellules copiées de la colonne 5 à 10.

Pour être plus clair, voici la macro :

Sub copier_copier_et_fusionner
Dim i As Long


For i = 1 To 500

Sheets("Intensité").Activate
If Cells(i, 1) <> "" Then

Cells(i, 1).Copy Sheets("Intensité word").Range("A14").Cells(i, 5)
Sheets("Intensité word").Range("A14").Cells(i, 1) = "ok"
'macro qui permet de fusionner la cellule (i,5) jusqu'à la cellule (i,10) (c'est là que je pioche 🙂)
End If

Next i

End sub

par avance, merci de votre aide.

Cordialement.

 

[Caillou]

Re : macro fusionner cellules avec conditions

Bonjour,

Fusionner les cellules de quelles feuilles ?
En supposant qu'il s'agisse de la feuille active, rajoute la ligne suivante :

Range(Cells(i, 5), Cells(i, 10)).Merge

Caillou

 

[vgendron]

Re : macro fusionner cellules avec conditions

Hello,
après avoir sélectionné la zone que je souhaite fusionner l'enregistreur de macro me donne
selection.merge

tout simplement

 

[Pierrot93]

Re : macro fusionner cellules avec conditions

Bonjour à tous,

une autre approche, toujours sur feuille active :

Cells(i, 5).Resize(, 6).Merge

bonne journée
@+

 

[CHTING]

Re : macro fusionner cellules avec conditions

super merci
c'était aussi simple que ça