ExcelVBA une colonne en plusieurs sur Feuil2

Résolu
JD16 Messages postés 15 Statut Membre -  
Le Pingou Messages postés 12653 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Copier en VBA les communes (O) de la feuil1 dans la feuil2 dans plusieurs colonnes avec le N° du département en ligne1 et en plus créer une liste de communes pour chaque département (exemple ici liste11, liste25, liste49, liste79, etc.), Les listes vont me servir en menu déroulant (Excel). Aujourd'hui la liste est comme ça mais demain des communes en "N" peuvent être en "O" et avoir plus de départements et créer d'autre liste.
Feuil1
dép Oui/Non Communes
11 O communes1
11 O communes2
11 N communes3
11 O communes4
11 O communes5
11 O communes6
11 N communes7
25 O communes1
25 O communes2
25 O communes3
25 O communes4
25 O communes5
25 O communes6
25 N communes7
25 O communes8
49 O communes1
49 O communes2
49 O communes3
49 O communes4
49 O communes5
79 O communes1
79 O communes2
79 O communes3
79 O communes4
79 O communes5
79 O communes6
79 N communes7
79 N communes8
79 O communes9

Feuil2
11 25 49 79

communes1 communes1 communes1 communes1
communes2 communes2 communes2 communes2
communes4 communes3 communes3 communes3
communes5 communes4 communes4 communes4
communes6 communes5 communes5 communes5
000000000 communes6 communes6
000000000 communes8 communes9

Liste11 Liste25 Liste49 Liste79
Les zeros espace vide

A voir également:

10 réponses

Le Pingou Messages postés 12653 Date d'inscription   Statut Contributeur Dernière intervention   1 465
 
Bonjour,
Il n'est certainement pas nécessaire du VBA pour réaliser des listes déroulantes.
Pouvez-vous préciser le contenu de chaque listes déroulantes ?
0
JD16 Messages postés 15 Statut Membre
 
Je souhaite automatiser à chaque modification de la feuille1, je lance la mise a jour et l’ancienne liste est remplacée par la nouvelle.
La liste déroulante est dans une cellule de la feuil3(exemple (C5) en fonction du département que j’ai entré dans la cellule (A1) de la feuil3.
0
Le Pingou Messages postés 12653 Date d'inscription   Statut Contributeur Dernière intervention   1 465
 
Bonjour,
Oui, dans se sens une macro serait utile pour mettre à jour vos listes.
Est-ce se que j'ai bien compris:
la liste déroulante en "Feuil3!C5" est dépendante du choix que vous faites en "Feuil3!A1" ?
0
JD16 Messages postés 15 Statut Membre
 
oui en fonction du choix de la feuil3:A1 la liste de la feuil3:C5 change
0
Le Pingou Messages postés 12653 Date d'inscription   Statut Contributeur Dernière intervention   1 465
 
Bonjour,
Merci, je vous prépare un petit exemple qui utilise fonction et macro.
0
Le Pingou Messages postés 12653 Date d'inscription   Statut Contributeur Dernière intervention   1 465
 
Bonjour,
Vous trouvez ma proposition sur se lien : http://www.cijoint.fr/cjlink.php?file=cj200901/cijhrrPCtt.xls
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
JD16 Messages postés 15 Statut Membre
 
Merci mais il y a une erreur (1004) pour la mise a jour sur la ligne
deli = Sheets("Feuil2").Cells(80000, d).End(xlUp).Row + 1

de plus j'aimerai avoir dans la liste que les communes en colonne B en O(Oui).


Cordialement
Jean-Daniel
0
Le Pingou Messages postés 12653 Date d'inscription   Statut Contributeur Dernière intervention   1 465
 
Bonjour,
Est-ce que l'erreur se produit avec mon classeur ?
Que dit exactement le message d'erreur ?
Merci de votre réponse.
0
JD16 Messages postés 15 Statut Membre
 
Bonjour,

je l'ai effectué avec le classeur pour faire un essai..

Cordialement
Jean-Daniel
0
Le Pingou Messages postés 12653 Date d'inscription   Statut Contributeur Dernière intervention   1 465
 
Bonjour,
Merci, et pour le message d'erreur ?
Avez-vous excel 2007 ou 2003 ?
0
Le Pingou Messages postés 12653 Date d'inscription   Statut Contributeur Dernière intervention   1 465
 
Bonsoir,
L'édition du soir est par là :https://www.cjoint.com/?bDxqnaR0ZS
Bonne nuit.
0
JD16 Messages postés 15 Statut Membre
 
Bonjour,
Je viens d'installer ta macro dans mon programme, il fonctionne comme je souhaitais.
Encore merci cela m'a evité de chercher une formule pendant des heures.

Cordialement
Jean-Daniel
0
Le Pingou Messages postés 12653 Date d'inscription   Statut Contributeur Dernière intervention   1 465
 
Merci, de rien.
0