Bonjour à tous,
Je cherche à avoir le chiffre 1 qui apparaît devant chaque mot contenant un "a" dans la colonne A.
Voir pièce jointe
Merci, pour votre aide
Bon dimanche
A+
Pourquoi le sujet "Macro Recherche et remplace" ?
Teste ceci :
Code:
Dim Plage As Range
Dim Cel As Range
With Worksheets("Feuil1")
Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
For Each Cel In Plage
If Cel.Value Like "*a*" Then Cel.Value = "1 " & Cel.Value
Next Cel
End Sub