Select Case True

[PEPE]

Bonsoir à tous,

voilà je vous post une macro qui pourra certainement intéresser les excellents d'excel. C'est un select case particulier, je m'explique il n'est normalement pas possible d'utiliser le comparateur "Like" dans un select case sauf si on utilise la syntaxe suivante :

"Select Case True"

Case Valeur Like "*LUNDI*"

Je vous joint la macro qui m'a servi à modifier toute une colonne de date remplie à la main (ex : LUNDI 04 mai) pour remplacer par une valeur date.

Sub Compare date()
Dim I As String
Dim Cellule As Range
Dim X As Integer
Dim DateDepart As Date

X = 1

DateDepart = Range("A1").Value


For Each Cellule In Range("A1:A4000")

I = Cellule.Text

Select Case True

Case I Like "*LUNDI*": Cellule.Value = DateDepart + X
Case I Like "*MARDI*": Cellule.Value = DateDepart + X
Case I Like "*MERCREDI*": Cellule.Value = DateDepart + X
Case I Like "*JEUDI*": Cellule.Value = DateDepart + X
Case I Like "*VENDREDI*": Cellule.Value = DateDepart + X
Case I Like "*SAMEDI*": Cellule.Value = DateDepart + X
Case I Like "*DIMANCHE*": Cellule.Value = DateDepart + X

End Select

Next

End Sub

Bonne continuation

PEPE

 

[Softmama]

Re : Select Case True

Bonsoir,

Je ne connaissais pas cette utilisation d'un Select Case, je m'empresse de la noter : je la trouve bien utile.