Bonjour, je souhaite compléter la macro ci-dessous, mais après plusieurs essais, cela ne fonctionne pas. Voici la macro, positionné dans ThisWorkBook, qui fonctionne parfaitement, avec un seul argument:
'coloration de ligne en fonction de la valeur en colonne "I"
Private Sub Workbook_Open()
Dim Cell As Range
For Each Cell In Range("I:I")
With Cell
If .Value = "0" Then
Range(Cells(.Row, 1), Cells(.Row, 9)).Interior.ColorIndex = 35
End If
End With
Next Cell
End Sub
Dans la ligne:
If .Value = "0" Then
Comment indiquer tous les chiffres. J'ai essayé 0,1,2,3, etc...0;1;2;3; etc..., mais aucune de ces possibilités ne fonctionne. Afin que quelque soit le chiffre ou le nombre (ex: 0 ou 123, 4563) indiqué dans les cellules de la colonne "I", la macro fonctionne.
Merci de votre aide.
'coloration de ligne en fonction de la valeur en colonne "I"
Private Sub Workbook_Open()
Dim Cell As Range
For Each Cell In Range("I:I")
With Cell
If .Value = "0" Then
Range(Cells(.Row, 1), Cells(.Row, 9)).Interior.ColorIndex = 35
End If
End With
Next Cell
End Sub
Dans la ligne:
If .Value = "0" Then
Comment indiquer tous les chiffres. J'ai essayé 0,1,2,3, etc...0;1;2;3; etc..., mais aucune de ces possibilités ne fonctionne. Afin que quelque soit le chiffre ou le nombre (ex: 0 ou 123, 4563) indiqué dans les cellules de la colonne "I", la macro fonctionne.
Merci de votre aide.