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

Messages postés
117
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
26 août 2019
- - Dernière réponse : viret1290
Messages postés
117
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
26 août 2019
- 29 janv. 2016 à 11:42
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

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

Afficher la suite 

2 réponses

Messages postés
2028
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 décembre 2019
239
0
Merci
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
117
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
26 août 2019
2
0
Merci
Merci ça fonctionne