Select Case avec condition

[EddyValier]

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 !

 

[Paf]

Re : Select Case avec condition

Bonjour,

a priori remplacer

Select Case .Range("A" & i)
                    Case "AIR": .Range("B" & i) = "GROUPE 1"
                    Case Else: .Range("B" & i) = "GROUPE 2"
                End Select

par

If .Range("A" & i) Like "AIR*" then
                    .Range("B" & i) = "GROUPE 1"
                Else
                     .Range("B" & i) = "GROUPE 2"
                End If

A+

Edit: on aurait pu écrire le test de cette façon If Left(.Range("A" & i) , 3) = "AIR" then

 

[Robert]

Re : Select Case avec condition

Bonjour Eddy, Paf, bonjour le forum,

Ou aussi, garder le Select Case mais remplacer :

Select Case .Range("A" & i)

par :

Select Case Left(.Range("A" & i), 3)

 

[EddyValier]

Re : Select Case avec condition

Re,
Merci, cela fonctionne très bien ! ^^