A voir également:
- Remplace le contenu de cellule
- Remplacer le contenu de céllules automatiquement ✓ - Forum - VB / VBA
- Remplace le contenu de cellule ✓ - Forum - VB / VBA
- Remplacer le contenu de plusieurs cellules ✓ - Forum - Excel
- Remplacer le contenu d'une cellule ✓ - Forum - VB / VBA
- Remplacer #div/0 par cellule vide ✓ - Forum - Excel
2 réponses
Frenchie83
- Messages postés
- 2178
- Date d'inscription
- lundi 6 mai 2013
- Statut
- Membre
- Dernière intervention
- 16 janvier 2021
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