Remplace le contenu de cellule
Résolu
viret1290
Messages postés
141
Date d'inscription
Statut
Membre
Dernière intervention
-
viret1290 Messages postés 141 Date d'inscription Statut Membre Dernière intervention -
viret1290 Messages postés 141 Date d'inscription Statut Membre Dernière intervention -
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
