ExcelVBA une colonne en plusieurs sur Feuil2

Résolu/Fermé
JD16 Messages postés 14 Date d'inscription mardi 27 janvier 2009 Statut Membre Dernière intervention 11 février 2009 - 27 janv. 2009 à 11:14
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 - 28 janv. 2009 à 17:17
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 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
27 janv. 2009 à 11:25
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 14 Date d'inscription mardi 27 janvier 2009 Statut Membre Dernière intervention 11 février 2009
27 janv. 2009 à 11:46
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 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
27 janv. 2009 à 15:02
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 14 Date d'inscription mardi 27 janvier 2009 Statut Membre Dernière intervention 11 février 2009
27 janv. 2009 à 15:24
oui en fonction du choix de la feuil3:A1 la liste de la feuil3:C5 change
0
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
27 janv. 2009 à 16:17
Bonjour,
Merci, je vous prépare un petit exemple qui utilise fonction et macro.
0
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
27 janv. 2009 à 20:10
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 14 Date d'inscription mardi 27 janvier 2009 Statut Membre Dernière intervention 11 février 2009
27 janv. 2009 à 22:01
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 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
27 janv. 2009 à 22:16
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 14 Date d'inscription mardi 27 janvier 2009 Statut Membre Dernière intervention 11 février 2009
27 janv. 2009 à 22:43
Bonjour,

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

Cordialement
Jean-Daniel
0
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
27 janv. 2009 à 23:04
Bonjour,
Merci, et pour le message d'erreur ?
Avez-vous excel 2007 ou 2003 ?
0
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
27 janv. 2009 à 23:18
Bonsoir,
L'édition du soir est par là :https://www.cjoint.com/?bDxqnaR0ZS
Bonne nuit.
0
JD16 Messages postés 14 Date d'inscription mardi 27 janvier 2009 Statut Membre Dernière intervention 11 février 2009
28 janv. 2009 à 17:03
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 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
28 janv. 2009 à 17:17
Merci, de rien.
0