Discussion :

[awa123]

Bonjour,

Je voudrais que mon code VBA me fusionne les cellules de la colonne 3 (colonne C) à la colonne 11 (colonne K) si et seulement si le code a trouvé que la cellule cells(19+i,1) = cells(16,7) à la ligne i (il bouclera).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
For I = 0 To nb_ligne
 
            If Cells(19 + I, 1).Text = Cells(16, 7) Then
            Cells(19 + I, 3) = "repos"
            Cells(19 + I, 8) = ""
            Cells(19 + I, 10) = ""
 
                For j = 0 To 8
 
                    With Cells(19 + I, 3 + j).Interior
 
                        .ThemeColor = xlThemeColorDark1
                        .TintAndShade = -0.349986266670736
                    End With
 
                   ' Cells(19 + I, 3 + j).Select
 
                  '   .[C&I:G&I].Merge
 
                Next j
            End If
        Next I

voir mon fichier joint, ce sera plus clair je pense.

Merci infiniment!