Bonjour,
J'ai un fichier Excel avec une liste d'entreprises.
J'aimerai rajouter une colonne GROUPE en fonction du nom de l'enteprise.
Toutes les entreprises qui commencent par AIR --> on met Groupe 1
et le reste on met Groupe 2
J'ai essayé le code suivant:
Sub AjoutGroupe()
Dim i As Long
With Sheets("Feuil1")
.Range("B1") = "GROUPE"
For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
Select Case .Range("A" & i)
Case "AIR": .Range("B" & i) = "GROUPE 1"
Case Else: .Range("B" & i) = "GROUPE 2"
End Select
Next i
End With
End Sub
Mais je me doutais bien que cela ne fonctionnait pas
Le truc c'est que je sais pas comment dire en VBA : Toutes les noms d'entreprises qui commencent par AIR.
Je joint un fichier test ou cas ou vous auriez une idée
Merci et bonne journée !