Visual basic boucle

Question

Bonjour, 
Je cherche une boucle qui cherche et remplace une chaine de caractère dans un fichier excel.
Exemple : je cherche la chaine  « jjmmaa »  et la remplacer par « 010110 » et si je trouve « SAAMMJJ » la remplacer par « 1100101 ».

Merci d'avance.

lermite222 · Answer

Bonjour,
Supposons la recherche et changement dans la colonne A (tu ne précise rien)
Sub Remplacer()
Dim Lig As Long
    For Lig = 1 To Range("A65535").End(xlUp).Row
        If Cells(Lig, 1) = "jjmmaa" Then
            Cells(Lig, 1) = "'010110"
        ElseIf Cells(Lig, 1) = "SAAMMJJ" Then Cells(Lig, 1) = "'1100101"
        End If
    Next Lig
End Sub

A+

Visual basic boucle

1 réponse

Discussions similaires

Newsletters