Remplacer La formule "egal" par "contient" en VBA
Bonjour
J'ai besoin de votre aide, j'arrive presque au bout de ma macro et il me reste un détail à régler, à savoir modifier le format de cellule des dates dans le fichier joint.
J'ai deux colonnes avec des Dates dont la place peut être aléatoire.
Il faut donc tester si la valeur en Ligne 1 contient le mot "Date" avant de sélectionner la colonne en entier et changer le format.
Avec mon code ci dessous ca marche uniquement si la leur est exactement egale à "Date d'expédition confirmée" or, je souhaiterais remplacé le egal par contient le mot "Date"
Savez vous si c'est possible svp?
Merci d'avance
Sub Macro1()
'
' Macro1 Macro
'
Range("A1").Select
While ActiveCell.Value <> ""
While ActiveCell.Value = "Date d'expédition confirmée"
ActiveSheet.Columns(ActiveCell.Column).EntireColumn.Select
Selection.NumberFormat = "m/d/yyyy"
ActiveCell.Offset(0, 1).Select
Wend
ActiveCell.Offset(0, 1).Select
Wend
'
End Sub
Bonjour,
While ActiveCell.Value Like "*Date*"Bonjour,
Remplace la ligne du code comme suivant :
While ActiveCell.Value Like "Date*"Sub Macro1()
For Each c In Range("A1", "H1")
tablo = Split(c.Value)
For i = LBound(tablo) To UBound(tablo)
If tablo(i) = "Date" Then c.EntireColumn.NumberFormat = "m/d/yyyy"
Next
Next
End SubOuais bon j'suis en retard et mon code est pas le meilleur, et alors ? >.<