Remplace le contenu de cellule [Résolu/Fermé]

Signaler
Messages postés
115
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
26 août 2019
-
Messages postés
115
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
26 août 2019
-
Bonjour,
J'aimerai dans un fichier Excel 2010, faire une macro pour que les différentes façon qui ont été utilisé pour écrire "français", "franais" etc.... que la macro remplace automatiquement tout ça et écrive à la place FRANCAIS et de même pour des autres langues.
Je vous ai mis un fichier afin de voir mon code, qui ne fonctionne malheureusement pas.
Merci de votre aide

https://www.cjoint.com/c/FACskr2UrWh

2 réponses

Messages postés
2172
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 novembre 2020
297
Bonjour
Comme ceci peut-être. A compléter
Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim i As Integer
    For i = 3 To Feuil1.Cells(1, 1) + 2
        Select Case Cells(i, 3)
            Case Is = "ALBANAIS FRANCAIS"
                Cells(i, 5) = "ALBANAIS/FRANCAIS"
            Case Is = "ANGLAIS "
                Cells(i, 5) = "ANGLAIS"
            Case Is = "ANGLAIS-ARABE"
                Cells(i, 5) = "ANGLAIS/ARABE"
                
            Case Is = "ARAB", "ARABE ", "ARABE  ", "ARABE 1347"
                Cells(i, 5) = "ARABE"

            ' etc......

            Case Else
              Cells(i, 5) = Cells(i, 3)
       End Select
    Next
End Sub

Cdlt
Messages postés
115
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
26 août 2019
2
Merci ça fonctionne