[VBA-E] Fusion de cellule

Bonjour,

J'ai une macro dans laquelle je souhaiterai faire une fusion de cellule.

Ma fusion doit partir de la colonne A jusqu'à la colonne qui correspond à une variable INT

Je désire fusionner toutes les lignes qui contiennent le mot "CYCLE"

Voici ou je suis bloqué.

Code:

---

1 2 3

If InStr(1, Feuil3.Cells(i, 1), "CYCLE") Then   End If

---

i sera incrémenté de 1 à chaque coup. Dans mon exemple la fusion doit aller jusqu'a la colonne 7 !!! donc G !!!

J'aimerai également ne pas avoir à saisir toutes les possibiltés de colonne comme A = 1, B = 2, C = 3, etc....

Merci :wink:

Code:

---

Range(cells(i,j),cells(i,l)).Mergecells = true

---

Un truc comme ça ?

P.R

Code:

---

1 2 3 4 5 6 7 8 9 10

For i = 1 To CompteurLigne While InStr(1, Feuil3.Cells(i, 1), "CYCLE") <> 0 And Mouchard < 3 Feuil3.Range(Feuil3.Cells(i, 1), Feuil3.Cells(i, CompteurColonne)).MergeCells = True Feuil3.Cells(i, 1).HorizontalAlignment = xlHAlignCenter Feuil3.Cells(i, 1).Font.Bold = True Feuil3.Cells(i, 1).Font.Size = 10 Mouchard = Mouchard + 1 i = i + 1 Wend Next i

---

Ceci marche. Sur la largeur désiré et pour 3 lignes (Mouchard)

Merci