Discussion :

[guigui71]

Bonjour à tous,


J'aimerai définir des noms, mais de façon automatique (j'en ai environ 1000 à faire)

Je ne m'y connais pas du tout en macro, et j'aimerai savoir si quelqu'un pourrait me guider ?


je vous mets un extrait de comment ce présente mon classeur excel

FOURNISSEUR	MARQUE
ABEILLE	SANS MARQUE
ABEILLE	SIROP
BACARDI - MARTINI FRANCE	42 BELOW FEIJOA
BACARDI - MARTINI FRANCE	42 BELOW FAERFA
BACARDI - MARTINI FRANCE	42 BELOW FAZADA

Un fournisseur peut être rattaché à une ou plusieurs marques.

et j'aimerai trouvé une solution que de tout créé à la main.

[Igloobel]

Salut,

J'aimerai définir des noms, mais de façon automatique (j'en ai environ 1000 à faire)

Des Noms sur quoi et pour quoi faire ?

à bientôt

[guigui71]

pour créer des listes de choix dynamiques via la fonction indirect

je veux afficher dans une première liste tous mes fournisseurs, et dans une deuxième liste, les marques associées en fonction du fournisseur choisi

[Menhir]

Il va falloir être beaucoup plus clair dans l'explication de ton problème parce que là, je ne comprends absolument pas ce que tu souhaites.

Est-ce que tu veux faire une génération aléatoire de noms uniques de fournisseurs ?

[jfontaine]

Bonjour,

Voila un code qui va créer les plages nommées à condition que les fournisseurs soient triés et se suivent
Pas de contrôle si la plage est déjà existante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim i As LongDim strFournisseur As String
Dim ShPlage As Range
 
 
strFournisseur = Me.Range("A1").Value
 
 
For i = 1 To Me.Range("A" & Rows.Count).End(xlUp).Row + 1
    If Me.Range("A" & i).Value <> strFournisseur Then
 
        ThisWorkbook.Names.Add Name:=Me.Range("A" & i).Offset(-1, 0).Value, RefersToLocal:=ShPlage
        Set ShPlage = Me.Range("B" & i)
        strFournisseur = Me.Range("A" & i).Value
 
    Else
        If ShPlage Is Nothing Then
            Set ShPlage = Me.Range("B" & i)
        Else
            Set ShPlage = Union(ShPlage, Me.Range("B" & i))
        End If
    End If
 
Next i

[guigui71]

j'ai en colonne A, une liste dédoublonné de 1000 fournisseurs, et en colonne B, une liste de 3000 marques

1 fournisseur peut avoir 1 ou plusieurs marques associées.

je veux afficher dans un autre onglet via des listes deroulantes dynamiques dans une colonne A le fournisseurs (qui sera une liste déroulante de tous mes fournisseurs), et dans une colonne B, une liste déroulante dynamique de toutes mes marques :


si je choisi le fournisseurs "ABEILLE", je veux pouvoir afficher dans ma colonne marque, uniquement les marques rattachées au fournisseur soit SANS MARQUE ou SIROP

[Menhir]

Pour la première liste, c'est pas compliqué.
Tu sélectionnes toutes les cellules de tes fournisseur et tu leur donnes le nom "ListeFournisseurs" (Onglet Fonction > Définir un nom).
Ensuite, tu sélectionnes la cellule dans laquelle tu veux placer ta liste déroulante.
Tu vas dans Ruban Données > Validation des données.
Pour "Autoriser", tu choisis "Liste".
Tu laisses cochés les options "Ignorer si vide" et "Liste déroulante".
Dans "Source", tu tapes "=ListeFournisseurs".

Par contre, faire la même chose avec une liste variable en fonction du contenu d'une cellule, c'est beaucoup plus coton.
La seule solution que je vois, c'est de mettre une macro liée à l'évènement Change de la feuille de calcul qui aille directement modifier la liste de la cellule de droite chaque fois que celle de gauche sera modifiée.
Mais ça va être lourd en terme d'exécution et complexe en terme de codage.

[Igloobel]

Bonsoir,

Menhir a dit

Par contre, faire la même chose avec une liste variable en fonction du contenu d'une cellule, c'est beaucoup plus coton.
La seule solution que je vois, c'est de mettre une macro liée à l'évènement Change de la feuille de calcul qui aille directement modifier la liste de la cellule de droite chaque fois que celle de gauche sera modifiée.
Mais ça va être lourd en terme d'exécution et complexe en terme de codage.

Eh bien en fait pas tant que ça !!!!!

Voici donc mon astuce:
1°) Créer une première liste (Là tout le monde est d'accord)
2°) Récupérer la position dans cette liste de l'élément sélectionner et s'en servir pour charger une autre liste.

Cela sous-entend plusieurs listes définies à l'avance

Voici mon exemple joint : Exo-12_Liste_filtree.xls

Car un exemple vaux mieux qu'un long discours. (le fichier est en format 2003 et il fonctionne très bien sous 2007. je ne l'ai pas tester en 2010 et 2013 mais je ne pense pas qu'il y ait des problèmes)
Du temps ou j'étais formateur c'était l'un de mes exercice préférer que je faisait subir à mes élèves

Dans mon exemple j'ai 5 listes mais je pense que pour notre ami cela risque d'être ... beaucoup plus, donc pas mal de travail en perspective

Je n'ai malheureusement pas plus simple à proposer mais j'ai peur que cela soit quand même trop fort pour notre amis qui a dit :

... Je ne m'y connais pas du tout en macro, ...

Si quelqu'un à une solution encore plus simple je suis preneur.

à bientôt

[guigui71]

Bonjour à tous,

Merci de m'avoir aidé, mais j'ai opté pour créer les listes à la main.

j'ai bien aimé ta macro pour afficher le résultat de ce que l'on cherche, mais celà serai trop compliqué de le faire (j'ai environ 13000 lignes à remplir)

Je vais essayer de fouiller un peu pour voir s'il n'y a pas une façon plus rapide !

Merci à vous

[Menhir]

Si tu veux t'y attaquer par VBA, il faudrait aller voir du côté de la propriété Validation de l'objet Range désignant la cellule qui contient la validation de données (la liste déroulante).
Il faudra modifier sa propriété Formula1 en y indiquant la formule qui ne représente que les cellules que tu souhaites.
Attention à les indiquer en références absolu (avec des $ si tu es en référence A ou sans parenthèses si tu es en références L1C1).