Remplace le contenu de cellule
Résolu/Fermé
viret1290
Messages postés
138
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 138 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 138 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
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Verrouiller cellule excel - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Contenu sme - Forum YouTube
- Aller à la ligne dans une cellule excel - Guide
2 réponses
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
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
138
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