Bonjour, j'arrive pas à debug ceci qui est mon fichier test :
J'obtiens une erreur au deuxième range avec une incompatibilité de type mais impossible de corriger ... Vous avez une idée ?
Merci !
Code:
Option Explicit
Function ISPAIR(Nb As Long) As Boolean
ISPAIR = Nb Mod 2 = 0
End Function
Sub Bouton1_Cliquer()
Dim i As Long
For i = 1 To 20 Step 1
If ISPAIR(i) Then
Range("A" & i + ":E" & i).Select
Selection.Interior.Color = RGB(220, 230, 241)
Else
Range("A" & i + ":E" & i).Select
Selection.Interior.Color = RGB(241, 245, 249)
End If
Next
End Sub
J'obtiens une erreur au deuxième range avec une incompatibilité de type mais impossible de corriger ... Vous avez une idée ?
Merci !
Dernière édition: