Remplace le contenu de cellule
Résolu/Fermé
viret1290
Messages postés
137
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
12 octobre 2022
-
28 janv. 2016 à 19:16
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 29 janv. 2016 à 11:42
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 29 janv. 2016 à 11:42
A voir également:
- Remplace le contenu de cellule
- Word a trouvé du contenu illisible - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Fusionner le contenu de 2 cellules excel - Guide
- Excel cellule couleur si condition texte - Guide
2 réponses
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
29 janv. 2016 à 07:19
29 janv. 2016 à 07:19
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
viret1290
Messages postés
137
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
12 octobre 2022
2
29 janv. 2016 à 11:42
29 janv. 2016 à 11:42
Merci ça fonctionne
