Macro Recherche et remplace

[BRUNO62]

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+

 

[Theze]

Re : Macro Recherche et remplace

Bonjour,

Pourquoi le sujet "Macro Recherche et remplace" ?
Teste ceci :

    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

Hervé.

 

[Modeste]

Re : Macro Recherche et remplace

Bonjour Bruno,

Essaye avec

Sub lulu()
For lig = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(lig, 1).Value Like "*a*" Then Cells(lig, 1) = 1 & Cells(lig, 1)
Next lig
End Sub

[Edit:] Oups! Bonjour Theze, désolé pour la collision

 

[BRUNO62]

Re : Macro Recherche et remplace

Bonjour Theze et modeste,

Merci, à vous. C'est OK.
A+