Salut a vous.
je vous expose mon problème. J'ai cette petite macro dans mon fichier joint
Sub test1()
For j = 3 To 54
If (Day(CDate(ActiveSheet.Cells(j, 2))) = 1) And (Month(CDate(ActiveSheet.Cells(j, 2))) = 2) Then
ActiveSheet.Cells(j, 3) = j
Else
End If
Next
End Sub
qui après exécution me renvoie une erreur d’incompatibilité de type. et ceci est due au fait que la cellule ActiveSheet.Cells(3, 2) contient le texte "DATE". Est ce que c'est possible sauter a chaque fois les cellule qui ne contiennent pas des dates?
Merci
je vous expose mon problème. J'ai cette petite macro dans mon fichier joint
Sub test1()
For j = 3 To 54
If (Day(CDate(ActiveSheet.Cells(j, 2))) = 1) And (Month(CDate(ActiveSheet.Cells(j, 2))) = 2) Then
ActiveSheet.Cells(j, 3) = j
Else
End If
Next
End Sub
qui après exécution me renvoie une erreur d’incompatibilité de type. et ceci est due au fait que la cellule ActiveSheet.Cells(3, 2) contient le texte "DATE". Est ce que c'est possible sauter a chaque fois les cellule qui ne contiennent pas des dates?
Merci