fusion cellules en fonction du contenu

[bruno33]

Bonjour

Voici ce que je cherche à faire (pour l'instant je le fais à la main). J'ai du mal à adapter ce que je trouve sur le forum.

de A1 à A20

si A2 <>0; A3 =0; A4=0 et A5 <>0 fusionner A2 A3 A4

ainsi de suite jusqu'à A20

puis pour les colonnes C D E ....

Merci d'avance

 

[bqtr]

Re : fusion cellules en fonction du contenu

Bonjour Bruno,

Si j'ai bien compris, mais à cette heure là ...🙂

Sub Fusion()
Dim i As Long, k As Byte
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For i = 2 To 20 Step 3
   For k = 1 To Range("IV1").End(xlToLeft)
      If Cells(i, k) <> 0 And Cells(i + 1, k) = 0 And Cells(i + 2, k) = 0 And Cells(i + 3, k) <> 0 Then Range(Cells(i, k), Cells(i + 2, k)).Merge
   Next k
Next i
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Bonne fin de nuit,

 

[bruno33]

Re : fusion cellules en fonction du contenu

Bonjour

Désolé rien ne se passe.

Pourtant j'ai fait copier coller du texte de la macro.

 

[bqtr]

Re : fusion cellules en fonction du contenu

Re,

Désolé,
J'avais oublié un "Column" après For k = 1 To Range("IV1").End(xlToLeft)

Ce que j'ai compris :

Si A1 <> 0 et A2 = 0 et A3 = 0 et A4 <> 0 alors A1,A2,A3 fusionnés.
Ensuite on repart d'A4 et .... d'où le step 3 dans la boucle sur les lignes.

Si ta plage se limite à la colonne E, tu peux remplacer For k = 1 To Range("IV1").End(xlToLeft).Column par : For k = 1 To 5.

A+, là faut que j'aille dormir un peu quand même, il commence à ce faire tard.

 

[bruno33]

Re : fusion cellules en fonction du contenu

Bonjour

Désolé cela ne marche que pour la première cellule.

Merci pour l'aide

A+