Remplace le contenu de cellule Résolu/Fermé

Question

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

Configuration: Windows 7 / Mozilla 11.0

Frenchie83 · Answer

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

viret1290 · Answer

Merci ça fonctionne

Remplace le contenu de cellule

2 réponses

Discussions similaires