Définir des plages de cellules variables

Version imprimable

11/11/2013, 13h09
Gigelle

1 pièce(s) jointe(s)

Bonjour le Forum,

Je débute en VBA et voici mon problème:

J'ai un fichier avec 2 onglets, l'un appelé "Périmètre" et l'autre appelé "Reporting". Je dois envoyer ce template à plusieurs pays. Après sélection de leur pays dans une liste de validation dont la source est l'onglet "Périmètre" colonne B, chaque pays sélectionne sa ou ses filiale(s) dans une liste de validation dont la source est l'onglet "Périmètre" colonne A. La liste de Pays ne variera pas dans le temps alors que la liste des filiales peut changer car il peut y avoir des filiales vendues ou nouvelles chaque mois. J'ai réussi à créer une liste de validation pour ma cellule Pays et ma cellule Filiale en utilisant INDIRECT(Austria) par exemple. Cependant, au lieu d'utiliser le Gestionnaire de noms et aller sélectionner mes plages de cellules contenant les filiales pour chaque pays je souhaite créer un bouton, avec une macro qui parcourra la colonne B et qui pour chaque changement de pays, ira sélectionner une plage de cellule avec la ou les filiales correspondante(s) ET la nommera du nom du pays. Le tableau périmètre commence en A6 et finit en B1277.
Je vous remercie par avance pour l'aide que vous voudrez bien m'apporter.
Cordialement

A toutes fins utiles, voici le fichier. Petite précision, les filiales se trouvent dans la colonne D et les pays dans la colonne X toujours à partir de la ligne 6. Mon vrai fichier ne comporte aucune cellule vide jusqu'à la ligne 1277. Mais pour des raisons de confidentialité et de taille de fichier, j'ai dû faire un peu de nettoyage.

Cordialement
12/11/2013, 08h38
casefayere

Bonjour le forum, Gigelle,

Ton explication est très confuse et ton fichier n'indique pas vraiment ton but, en attendant, je te propose un bouton qui ouvre un USF, mais qui pour l'instant, à part répertorier les pays, ou les filtrer dans la listbox, ne fait rien d'autre tant que je n'aurai pas compris
12/11/2013, 14h18
canichon

a quoi sert ma colonne "F" dans le tableau ??

quelle est la colonne qui définit la taille (nombre de lignes) du tableau ??

comme le dit casefayere, c'est TRES confus...
on peut comprendre qu'il puisse y avoir de la confidentalité dans tes données mais faut nous donner des billes pour pouvoir t'aider.

ça n'a pas l'air super compliqué mais bon...
12/11/2013, 22h17
Gigelle

Re :

Bonsoir casefayere,

Je suis vraiment désolée si je n'ai pas réussi à me faire comprendre clairement.
En fait je cherchais à créer de façon automatique une liste déroulante qui varie en fonction du choix d'un autre liste déroulante. Dons si l'utilisateur sélectionne le pays "Austria", il ne verra que les filiales du pays "Austria".
Mais il est vrai que je n'avais pas pensé à joindre l'onglet "Reporting", dans lequel, j'avais mis en B5 les pays à sélectionner et en B11 la liste des filiales correspondant au pays sélectionné.

Après une nuit blanche, j'ai finalement réussi à obtenir ce que je voulais. Je mettrais les codes (un mix de macro et de fonctions DECALER) demain car j'ai laissé mon pc professionnel au bureau cette fois ;)

Merci à ceux qui ont pris le temps de me répondre.

RE:

Bonjour le forum,

Désolée pour ma réponse tardive ...
J'ai finalement réussi à créer une liste de validation dépendante (sélection des entités du pays choisi pour chaque pays)

Il fallait en fait utiliser la fonction =DECALER(maplage;0;0;NBVAL(maplage)) dont j'ignorais l'existence.

Comme mon périmètre varie dans le temps, j'ai également utilisé une macro qui extrait les nouvelles entités et les pays associés sans les doublons !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Sub Extrac_Pays() Range("X6").Select Sheets("Périmètre").Range("X5:X1278").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Table").Range( _ "A1"), Unique:=True End Sub Sub Extraire_colPays_and_Entities() 'Extraction colonne Pays (à utiliser pour le cash tax reporting) Sheets("Périmètre").Select Range("X5:X1278").Select Selection.Copy Sheets("Table").Select Range("F5").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False 'Extraction colonne Entity Sheets("Périmètre").Select Range("D5:D1278").Select Selection.Copy Sheets("Table").Select Range("G5").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End Sub
Merci à ceux qui ont tenté de m'aider.

Cordialement,
Gigelle