XL 2019 Supprimer des cellules en fonction d'une cellule de la ligne

[chris4785478547]

Bonjour tout le monde,
J'ai essayé de trouver cette solution sur ce forum et d'autres, même si certains sujets se rapprochent de mon problème, je n'arrive pas à adapter...
Il s'agit d'effacer les 8 premières colonnes de chaque ligne comprenant (en 1ere colonne) une date= "01/01/1900"
Ma macro est celle ci:

Sub Macro2()
'
' Macro2 Macro
'

Dim i, j

For i = 7 To 65535
If CDate(Cells(i, 1).Value) = "01/01/1900" Then
For j = 1 To 8
Cells(i, j).ClearContents
Next j
Next i

'

End Sub

Elle me renvoie une erreur de compilation : NEXT SANS FOR (sur le next i)
J'ai certainement une erreur de syntaxe mais je ne vois pas laquelle
Merci par avance.

 

[chris4785478547]

Bonjour le fil

Fonctionne chez moi
(avec ce petit biais 😉)

Sub Macro3()
Const X = #12/31/1899#
Dim i, j
For i = 7 To 65535
    If Cells(i, 1).Value = X Then
        For j = 1 To 8
            Cells(i, j).ClearContents
        Next j
    End If
Next i
End Sub

Bonjour à tous,
Merci Staple pour ta proposition de solution.
Tu as raison, avec ta date (31/12/1899) cela fonctionne !
Mais comme la date qui s'affiche lorsqu' il manque des données date est :00/01/1900, je dois pouvoir adapter ta solution pour mon cas de figure... Mais non ca ne fonctionne pas avec cette date, curieux.
Je continue à chercher...
Bonne journée.

 

[eriiic]

Bonjour,

00/01/1900 ou 01/01/1900 ?
tu peux remplacer 1 par 0 dans ma proposition...
eric

 

[chris4785478547]

re bonjour,
Désolé, dans mon 1er post j'ai fait un lapsus: ce n'est pas 01/01/1900 que je veux éliminer mais 00/01/1900.
Merci à Mapomme pour sa proposition mais je ne vois pas où est testée la date 00/01/1900 ?
Merci encore.

 

[chris4785478547]

Ca marche !!!!!
Merci à tous et en particulier à Eriiiic pour sa solution parfaite !
Excellente journée à tous
PS: je ne sais pas comment mettre le sujet en RESOLU...