Select Case

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 !

27ajoutgroupe.xlsm (19.24 Ko)

Bonjour,

je ne pense pas que ce soit possible car le mot "air" est dans la même cellule que le reste du nom de l'entreprise

Bonjour le forum,

melanie57 a écrit :

Toutes les entreprises qui commencent par AIR --> on met Groupe 1

et le reste on met Groupe 2

Pourquoi avec du VBA ?

B2 : =SI(GAUCHE(A2;3)="AIR";"Goupe 1";"Groupe 2")

A tirer vers le bas.

mbbp

Re,

du VBA car cela fera partie du application automatisation des opérations (graphiques, tableaux...)

On m'a soufflé la solution suivante:

Sub AjoutGroupe()
Dim i As Long
    With Sheets("Feuil1")
          .Range("B1") = "GROUPE"
            For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
                  If .Range("A" & i) Like "AIR*" then
                     .Range("B" & i) = "GROUPE 1"
                 Else
                      .Range("B" & i) = "GROUPE 2"
                 End If
            Next i
    End With
End Sub

et ça marche


melanie57 a écrit :

Re,

du VBA car cela fera partie du application automatisation des opérations (graphiques, tableaux...)

Escusez moi je ne sais plus écrire

cela fera partie d'une application automatisant des opérations statistiques (graphiques, tableaux...)

Bonjour,

En vba : avec un if

Cordialement


Désolé , Mélanie57, pas vu, je cherchais de mon coté et à ma manière.

Cordialement

Re,

J'ai essayé la macro : quel que soit le nom de l'entreprise : "groupe 2".

Alors que ma formule fonctionne.

Extrait de la charte du forum :

"n'oubliez pas de remercier tous ceux qui vous ont aidé"

Ce n'est pas la première fois que je participe à tes discussions.

https://forum.excel-pratique.com/excel/calculer-l-evolution-d-un-ca-t49446-10.html.

mbbp

18ajoutgroupe.xlsm (18.37 Ko)
mbbp a écrit :

Re,

J'ai essayé la macro : quel que soit le nom de l'entreprise : "groupe 2".

Alors que ma formule fonctionne.

bonjour,

Il ya un autre module auquel le bouton fait référence, tu remplace son contenue par le code de Melanie, ça marche.

Re,

Bonjour,

"Il ya un autre module auquel le bouton fait référence, tu remplace son contenue par le code de Melanie, ça marche"

Tu as raison.

Mais reste le problème du remerciement.

mbbp

Bonjour,

Cela fait quelques jours que je ne me suis pas connectée sur le forum !

Merci pour votre aide et escusez d'être passée pour une impolie, ce n'était pas mon intention.

Cordialement,

Rechercher des sujets similaires à "select case"