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

rick51 · 9 Février 2009

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 · 9 Février 2009

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

Bonjour rick51,

Code:

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 :

Code:

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 · 9 Février 2009

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

Cela me convient parfaitement.
Merci.
A+

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

rick51

Guest

Pièces jointes

job75

XLDnaute Barbatruc

rick51

Guest

Discussions similaires

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

rick51

Guest

Pièces jointes

job75

XLDnaute Barbatruc

rick51

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency