Remplace le contenu de cellule
Résolu
viret1290
Messages postés
146
Statut
Membre
-
viret1290 Messages postés 146 Statut Membre -
viret1290 Messages postés 146 Statut Membre -
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
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
-
Bonjour
Comme ceci peut-être. A compléterPrivate 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 -
