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
A voir également:
- Remplace le contenu de cellule
- Quel site remplace coco - Accueil - Réseaux sociaux
- Fermeture de Coco : les internautes à la recherche d'un remplaçant - Accueil - Réseaux sociaux
- Fusionner deux cellules excel en gardant le contenu - Guide
- Excel cellule couleur si condition texte - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Bureautique
2 réponses
Bonjour
Comme ceci peut-être. A compléter
Cdlt
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
