Copier donnée d'une "base de donnée" avec Commandbutton

Bonjour, alors je m'explique car c'est un peu compliquer. Donc voila j'ai une première page que je nomme base de données car je rentre toutes les informations pour chaque personne (voir screen 1). Dans un second temps j'ai une deuxième page ou la j'ai une liste déroulante qui s'actualise par rapport au Nom que je rajoute dans la base de donnée. (voir screen 2). A coter j'ai créer un CommandButton et voila ou je suis coincé je voudrais que quand je sélectionne un Nom dans ma liste déroulante et que quand j'appuie sur ce bouton de commande, que toute les informations de la personne apparaissent en dessous dans la même forme que le screen 1. Voir screen 4 pour vous montrez comment je voudrais que sa copie
Merci d'avance pour votre aide, j'ai vraiment besoin de vous c'est ma dernière macro pour mon projet de fin d'année et je suis complètement bloquer

screen 1 : https://gyazo.com/dacf56792a3d44904fdec6e5191e8f64
screen 2 : https://gyazo.com/943b03105829da868a6e5a837f0476d0
screen 3 : https://gyazo.com/a790543722fe648b142ff8d00efb2e3e

Salut,

Avant de passer par une macro, pourquoi ne pas utiliser la fonction RECHERCHEV.
Tu recherches le choix de la liste, dans le tableau du sceen1 et le tour est joué.

Pour moi, ici, pas besoin de macroter (action de faire une macro :ptdr:)

Je ne peux pas utiliser cette fonction je pense car déja je suis sur une page différente et de plus, il faut que 17 données soit afficher en meme temps par ligne. Et si il y a plusieurs ligne correspondante a la meme personne je voudrais les deux :/ . Je pense qu'un commandbutton pourrait me facilite la chose si je trouve le bon code.
Cordialement

Il y a 2 choses dans le dernier message :
Le fait que tu sois dans 2 feuilles, n'est pas un problème pour l'utilisation de la fonction recherchev. Tu pourrais même être dans 2 doc différents, çà marcherai.

Par contre, c'est le fait qu'il y ai X lignes correspondants à ta sélection qui fait que là, elle n'est plus utilisable.

Dans ce cas, le plus simple est de ce diriger vers l'utilisation des filtres Avancés. Au pire le tout dans une macro.
Le principe :
Tu nommes la zone avec tes données (par exemple Base)
Tu te places dans l'autre feuille (celle avec la liste)
Tu vas dans l'onglet Données et tu choisis Filtre avancé.
Dans la première zone, tu mets "Base" (nom donné au début)
Tu demandes d'extraire vers un autre emplacement.

Pour compléter, un peu de lecture :
http://philippetulliez.developpez.co...ncedfilter/#LI

Et comme indiqué plus haut, quand tu vois que çà marche. Tu fais simplement une macro avec l'enregistreur et le tour est joué ... tu tu peux, l'affecter à ton bouton, elle est pas belle la vie ?

Ok mais de cette maniere les informations ne seront pas copier comme je veux dans le tableau vide si ?

Je peux aussi utiliser la fonction xlFilterCopy non ? qui reconnait le nom choisi dans la cllule avec la liste déroulante et m'affiche les données ? Car je ne comprend pas trop votre méthode :/

Salut,

Oui c'est un filtre avancé.
Pièce jointe 209930

Si tu veux d'autres info et en plus des exemples VBA :
http://boisgontierjacques.free.fr/pa...#ExtractionVBA

Excusez moi de vous déranger encore je viens d'utiliser ceci que j'ai trouver sur votre lien

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Factures").[A1:H1000].AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=[A1:A2], CopyToRange:=[A5:D5] End Sub

---

J'arrive bien a copier mais il copie toute la base de donnée et non pas juste le nom sélectionner :/
Encore merci de votre aide

Bonjour,

Citation:

---

J'arrive bien a copier mais il copie toute la base de donnée et non pas juste le nom sélectionner :/

---

Cela signifie peut-être que ta zone des critères n'est pas correcte.
La plage A1:A2 est sur quelle feuille ?
En VBA, pour éviter tout problème, il est indispensable de préciser la filiation complète des plages de données utilisées (Classeur + feuille + plage de cellules),

Bonsoir merci de votre réponse , ma zone de critère correspond a quoi ? je voudrais afficher les données sur une feuille différente. Je vous met le fichier en dessous sa sera plus simple pour vous de voir ce que je veux faire. Je voudrais juste sélectionner dans la liste déroulante le nom et qu'il affiche toutes les informations de celle-ci je vous (de la page Feuil2 a la page infirmiere)
Merci de votre aide Pièce jointe 210218

Salut,
Tu as deux corrections à faire.
La première, dans ton code :

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Feuil2").[A9:Z1000].AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=[H4:H5], CopyToRange:=[A9:Z9] End Sub

---

Le texte en rouge indique la zone de critère, qui dans ton tableau à la zone avec la liste déroulante.

Deuxième.
Comme tu le vois, ta zone de critère est sur deux lignes.
La première ligne indique sur quelle colonne porte le crière.
La seconde quelle est la valeur du filtre.
Donc, tu dois mettre en H4,le nom de la colonne sur laquelle porte le filtre : NOM.
Pour que cela ne soit pas trop génant, tu peux changer la couleur du texte pour qu'il ne se voit pas

Merci de votre réponse rapide je viens de faire les modification que vous m'avez annoncer tout marche sans probleme ! Merci mais j'ai encore un petit probleme normale que les H M et S ne sont pas recopier dans le tableau ?

Salut,

Pour moi, la colonne H fonctionne.

Pour les colonnes qui sont à coté. Excel entre ta base de données (Feuil2) et ta zone d'extraction (Infirmière) il sait quelles colonnes récupérer en utilisant le nom de la colonne.

Tu doit donc avoir un en tête de colonne pour chaque colonne. En J, P et V, il y a les intitulés avec les fusions de cellules.
Pour les autres colonnes Excel ne peut pas deviner ...

Bonjour,

Petite parenthèse...
Si tu veux que le changement s'effectue seulement lors du changement de H5, il faut le spécifier, sinon cette macro va s'enclencher à chaque changement sur la feuille.

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "H5" Then Sheets("Feuil2").[A9:Z1000].AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=[H4:H5], CopyToRange:=[A9:Z9] End if End Sub

---

Merci beaucoup a vous deux tout marche nickel ! :D encore merci de votre aide

Excusez moi petite question encore ! QUand je protege la feuille comme par exemple tout les colonne Nom, Prenom etc QUand je modifie le nom dans la liste déroulante j'ai un débogage qui s'affiche une idée ?

Bonjour,

la plage complète qui reçoit des données issue du filtre avancé est bien déverrouillée ?

dans tous les cas, plutôt que de tailler ta feuille avec des plages verrouillées ou non (pas toujours pratique et souple), je te conseille, dans ta procédure évènementielle, de faire précéder l'application du filtre d'une dé-protection de la feuille, et d'une nouvelle protection de la feuille juste après.

Oula je veux bien mais comment faire ^^ J'ai pas tout compris ^^

1) Avant la ligne de code où le filtre avancé est utilisé :déprotéger la feuille
2) Après la ligne de code où le filtre avancé est utilisé : protéger la feuille

Pour le point 1, tu as de la chance, il n'y a qu'une ligne de code dans ta procédure, ça devrait être facile de trouver la bonne
Pour le point 2, tu as aussi de la chance, si t'as trouvé la ligne du point 1, t'as trouvé la ligne d'après


Avec l'enregistreur de macro, tu simules une protection de feuille et une déprotection
Tu obtiens tes deux méthodes (pas si mauvaises que ça d'ailleurs, contrairement à l'habitude)
Tu les places là où il faut et tu testes

si ça marche pas ou mal, reviens avec ton code ET les deux méthodes pour obtenir de l'aide. Mais tu n'apprendras rien si on te donnes la solution immédiatement, crois-moi :zoubi:

BOnjour , désolé de la réponse tardive ! Mais comment integrer les macro au code ?