Discussion :

[Nicos77]

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 :

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

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

[preverse]

Code :

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

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

Un truc comme ça ?

P.R

[Nicos77]

Code :

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

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