rechercher une partie d'une date et remplacer le contenu de la cellule à vide

[rick51]

Bonjour,

Je souhaiterais rechercher une partie d'une date (plage de cellule B2 à G4) et remplacer les cellules concernées suivant la condition suivante:
Si dans la plage de cellules B2 à G4 il y a 2009 alors on met la cellule à vide (rien).
Voir pièce jointe.
Merci par avance.
Slts.

 

[job75]

Re : rechercher une partie d'une date et remplacer le contenu de la cellule à vide

Bonjour rick51,

Sub Vide()
Dim cel As Range
For Each cel In Range("B2:G4")
If cel.Text Like "*2009*" Then cel.Value = ""
Next
End Sub

et si les cellules contiennent bien des dates, on peut aussi utiliser :

Sub Vide()
Dim cel As Range
For Each cel In Range("B2:G4")
If Year(cel) = 2009 Then cel.Value = ""
Next
End Sub

A+

 

[rick51]

Re : rechercher une partie d'une date et remplacer le contenu de la cellule à vide

Cela me convient parfaitement.
Merci.
A+