Bonjour,

J'ai écris un code avec une boucle conditionnelle qui modifie la hauteur des lignes si des cellules ont été grisées sur une autre feuille. Pourtant ce code ne marche pas et je ne sais pas pourquoi ... Pourriez vous m'indiquer mon erreur ?

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
 
Sub MAJ() 
 
    Dim nom As String
 
    For i = 7 To 26
    If Cells(i, 2).Interior.ColorIndex = 16 Then
 
    With ThisWorkbook.Sheets("FI")
    .Range(.Cells(i, 2), .Cells(i, 12)).Interior.ColorIndex = 16
    Rows("i:i").RowHeight = 0
    nom = "MDD" & i
    ThisWorkbook.Sheets(nom).Visible = False
    End With
 
    End If
 
    Next i
 
End Sub
Je pense que je me suis trompé pour l'utilisation de Rows, j'ai cru lire qu'il fallait utiliser un Range ... Mais pourtant excel m'indique dans le défault : RowIndex, ColumnIndex ...

Merci,
Kulnae.