[MACRO] Si date = 1 si "" = 0

Bonjour à tous,

Encore moi

J'aurais besoin d'un code qui me mets la valeur 0 en colonne V si la colonne F est vide par contre elle me met 1 quand il y a une date.

Désolé pour mes multiples demandes mais j'avais mis des formules mais ça me fou le bazar dans les filtres

Merci,

Mehdi.

bonjour,

essaye ce code

Public Sub complete()

Dim DernLigne As Long

Dim parcours_ligne As Long

DernLigne = Range("F" & Rows.Count).End(xlUp).Row

For parcours_ligne = 1 To DernLigne

If Range("F:F").Cells(parcours_ligne, 1) = "" Then

Range("V:V").Cells(parcours_ligne, 1) = 0

Else

If IsDate(Range("F:F").Cells(parcours_ligne, 1)) Then

Range("V:V").Cells(parcours_ligne, 1) = 1

End If

End If

Next parcours_ligne

End Sub

Salut Gullaud,

Merci. ça a marché jusque ligne 33 de la ligne V, normal ?

j'ai également un souci quand je supprime la date la valeur reste.

Cordialement,

je n'ai pas d'arrêt à la ligne 33

j'ai déplacé le code feuil1/ Worksheet / Worksheet_SelectionChange

je te joins mon fichier

Hello,

Merci ça fonctionne, par contre du coup ma feuille rame, en effet dès que je mets juste un caractère dans une cellule la feuille recalcule (ça prend 25 secondes par caractère )

Merci encore

Re,

En redémarrant excel tout est rentré dans l'ordre. ça fonctionne parfaitement.

Merci.

Mehdi