Select Case Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
melanie57
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 24 janvier 2014
Version d'Excel : 2010

Message par melanie57 » 25 avril 2014, 11:18

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 !
AjoutGroupe.xlsm
(19.24 Kio) Téléchargé 27 fois
°oO Mélanie57 °oO Enjoy your life !
T
ThomasFFFFF
Jeune membre
Jeune membre
Messages : 36
Inscrit le : 4 novembre 2013
Version d'Excel : 2010

Message par ThomasFFFFF » 25 avril 2014, 11:47

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
Avatar du membre
mbbp
Passionné d'Excel
Passionné d'Excel
Messages : 6'293
Appréciations reçues : 228
Inscrit le : 29 mars 2014
Version d'Excel : 2007 FR

Message par mbbp » 25 avril 2014, 11:55

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
Avatar du membre
melanie57
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 24 janvier 2014
Version d'Excel : 2010

Message par melanie57 » 25 avril 2014, 12:11

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 :roll:
cela fera partie d'une application automatisant des opérations statistiques (graphiques, tableaux...)
°oO Mélanie57 °oO Enjoy your life !
p
psdi
Membre fidèle
Membre fidèle
Messages : 214
Inscrit le : 8 décembre 2013
Version d'Excel : 2013 FR

Message par psdi » 25 avril 2014, 12:35

Bonjour,

En vba : avec un if

Cordialement

Désolé , Mélanie57, pas vu, je cherchais de mon coté et à ma manière.
Cordialement
Copie de AjoutGroupe.xlsm
(19.64 Kio) Téléchargé 12 fois
Avatar du membre
mbbp
Passionné d'Excel
Passionné d'Excel
Messages : 6'293
Appréciations reçues : 228
Inscrit le : 29 mars 2014
Version d'Excel : 2007 FR

Message par mbbp » 25 avril 2014, 12:58

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.

http://forum.excel-pratique.com/excel/c ... 46-10.html.

mbbp
AjoutGroupe.xlsm
(18.37 Kio) Téléchargé 18 fois
Z
Zongo86
Jeune membre
Jeune membre
Messages : 36
Appréciation reçue : 1
Inscrit le : 18 juillet 2012
Version d'Excel : 2010 Fr

Message par Zongo86 » 25 avril 2014, 13:51

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.
Avatar du membre
mbbp
Passionné d'Excel
Passionné d'Excel
Messages : 6'293
Appréciations reçues : 228
Inscrit le : 29 mars 2014
Version d'Excel : 2007 FR

Message par mbbp » 25 avril 2014, 13:58

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
Avatar du membre
melanie57
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 24 janvier 2014
Version d'Excel : 2010

Message par melanie57 » 28 avril 2014, 15:14

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,
°oO Mélanie57 °oO Enjoy your life !
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Select Case
    par TeamG1 » 20 décembre 2016, 10:12 » dans Excel - VBA
    3 Réponses
    248 Vues
    Dernier message par TeamG1
    20 décembre 2016, 11:14
  • Select Case
    par cfn3cfn » 9 juillet 2016, 12:47 » dans Excel - VBA
    18 Réponses
    525 Vues
    Dernier message par cfn3cfn
    10 juillet 2016, 14:45
  • select case
    par nico157 » 11 avril 2018, 18:45 » dans Excel - VBA
    5 Réponses
    226 Vues
    Dernier message par jmd
    15 avril 2018, 08:28
  • Problème select case
    par vba35 » 17 décembre 2019, 09:45 » dans Excel - VBA
    3 Réponses
    39 Vues
    Dernier message par vba35
    17 décembre 2019, 10:32
  • [MACRO] Select case
    par Jefekoi » 1 décembre 2018, 10:27 » dans Excel - VBA
    3 Réponses
    91 Vues
    Dernier message par Jefekoi
    1 décembre 2018, 11:42
  • Select case compilation
    par Jamais203 » 23 septembre 2019, 10:16 » dans Excel - VBA
    6 Réponses
    85 Vues
    Dernier message par Jamais203
    23 septembre 2019, 11:47