Supp ligne

Fermé
jijudu Messages postés 211 Date d'inscription jeudi 15 mai 2008 Statut Membre Dernière intervention 3 septembre 2009 - 24 juin 2008 à 13:37
jijudu Messages postés 211 Date d'inscription jeudi 15 mai 2008 Statut Membre Dernière intervention 3 septembre 2009 - 24 juin 2008 à 14:24
Salut



Je voudrais garder les Cellules vide et celles qui contiennent des dates c.a.d. que je voudrais supprimé les cellules qui contiennent des chaîne de caractéres (autres que des Dates)

voici mon code :


Sub zef()
Dim count As Integer

For count = 76 To 87
   If Cells(count, 12).Value <> "" AND Cells(count, 12).Value<>Date Then
            Rows(count).Delete
    End If
Next count


En faite je ne sait pas comment désigné une cellules qui contient une date

PS: toutes mes cellules sont au format date donc le CDate c mort



merci

2 réponses

Bonjour a toi

c'est bien du VB ??

test ta valeur avec la fonction isdate

cette fonction te renvoie true si la valeur est bien une date
bon prog
0
jijudu Messages postés 211 Date d'inscription jeudi 15 mai 2008 Statut Membre Dernière intervention 3 septembre 2009 3
24 juin 2008 à 14:24
OUé c du VB

Mais c cool ta donné la réponse avec le isdate
J'avais pas du tout pensé à cela !
><


++
0