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?
Sub test1()
For j = 3 To 54
If IsDate(ActiveSheet.Cells(j, 2)) Then
If (Day(CDate(ActiveSheet.Cells(j, 2))) = 1) And (Month(CDate(ActiveSheet.Cells(j, 2))) = 2) Then
ActiveSheet.Cells(j, 3) = j
End If
End If
Next
End Sub
Bonjour kayslife
ajoute un test si la cellule est une date
Sub test1()
For j = 3 To 54
If IsDate(ActiveSheet.Cells(j, 2)) = True Then
MsgBox Day(CDate(ActiveSheet.Cells(j, 2)))
If (Day(CDate(ActiveSheet.Cells(j, 2))) = 1) And (Month(CDate(ActiveSheet.Cells(j, 2))) = 2) Then
ActiveSheet.Cells(j, 3) = j
Else