Je bute sur un for each

[CelluleVide]

Bonjour les XLDnautes,

Je voudrais mettre en gras les cellules qui contiennent une date au milieu d'une chaine de texte.

Mon idée de départ est de trouver les "/??/ " Mais je ne sais pas l'ecrire en VBA
Voici le debut de mon code:

Range("B1:B113").Select
Dim Cel As Range
For Each Cel In Selection
If Cel.Value = 'ET C'EST LA QUE JE BLOQUE' Then Cel.Font.Bold = True
Next Cel

 

[PascalXLD]

Re : Je bute sur un for each

Bonjour

essaies ainsi

Dim Cel As Range
For Each Cel In Range("B1:B113")
If Cel.Value Like "*/??/*" Then Cel.Font.Bold = True
Next Cel

 

[CelluleVide]

Re : Je bute sur un for each

Bonjour PascalXLD, le forum,

Merci pour ta réponse qui fonctionne très bien.

Un imprévu m'a empeché de te répondre de suite mais je pense que le code de ce fil pourra servir a d'autres.

Merci encore.