Synthèse Une clefs de ref dans une liste déroulante ?? code VBA please idée
Bonjour à Tous,
J'essaye de faire une synthèse Classique avec une seule clefs de référence qui se situe dans une liste déroulante.
J'ai trois fichier avec des donnée Différente lié à la même clefs de recherche le truc c'est que quand j'utilise mon Vlookup je n'ai qu'une donné qui sort même si je déroulé tjs la même.
J'aurais souhaité avoir un exemple de code qui pourrait allé chercher sous plus colonne et feuille des données matchant avec la clefs sur un onglet synthèse svp ?
Si quelqu'un peux m'aider svp
Hello,
Merci pour ton retour
J'ai trouvé une solution ci-dessous mon code :
Private Sub CommandButton1_Click()
'déclaration des variables
Dim MonGerant As Range
Dim ListeGerants As Range
Dim NbLignes As Long
Dim LigneActive As Long
' Affectation des Vairables
Set ListeGerant = Sheet3.Range("A2", Sheet3.Range("A1").End(xlDown))
NbLignes = ListeGerants.Rows.Count
LigneActive = 0
'On insère une nouvelle Feuille
Sheets.Add
Sheet3("A1").EntireRow.Copy ActiveCell
Range("A2").Select
'on boucle Chaque Gerant se trouvant dans la liste
For Each MonGerant In ListeGerants
'on se decale d'une ligne vers le bas
LigneActive = LigneActive + 1
'on recherche le Gérant qui aété saisie dans la liste déroulante
If MonGerant.Offset(0, 11).Value = Me.CBGérant.Value Then
' si la Gérant est trouvé, on récupère l'enregistremsent du gerant
MonGerant.EntireRow.Copy ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Next MonGerant
Range("A1").Select.entirecolunm.AutoFit
Activecell.currentregion.EntireColumn.autofit
End Sub
Une erreur s'affiche 91
si quelqu'un peut m'aider
RE
Tu as 2016 donc c'est probablement faisable de façon simple et efficace par PowerQuery intégré à Excel, sans VBA
Mais sans fichier fourni peu de chance que quelqu'un ici te donne une solution viable...
ET merci d'éviter les MP...
Hello,
Merci pour ton retour
Mes meilleurs vœux pour cette nouvelle année.
J'ai trouvé mon erreur j'en ai une deuxième qui s'affiche
avec le fichier joint
Merci pour tout par avance
str1
Bonjour
Solution PowerQuery obtenue en quelques clics
J'ai juste une ligne de VBA pour rafraichir l'extraction au changement de choix
Merci bcp
Juste pour ma culture personnel j'aimerais bcp comprendre pourquoi mon code ne fonctionne pas
str1
RE
Il y a pas mal d'erreurs :
définition des plages comme
- Sheet3("A1")
- Range("A1").Select.entirecolunm (outre la faute de frappe, le select n'a pas de sens)
- MonGerant.Offset(0, 11) qui pointe sur le colonne L et non la colonne Gérant ce qui du coup compare 0 au nom du gérant recherché...
plein de choses inutiles ou mal gérées comme LigneActive = LigneActive + 1 qui valorise la variable mais ne l'utilise pas, ce qui copierait toutes les lignes trouvées toujours en ligne 1...
A noter qu'Excel propose tous les outils pour debugger...
Ceci serait faisable par VBA avec un filtre avancé bien plus efficace qu'une boucle.
Mais depuis 2016 on remplace le filtre avancé par une requêtes PowerQuery dans la plupart des cas....
encore moi
je n'arrive pas à changer les noms dans la liste même en utilisant ton code
Si tu peux m'aider
RE
Dans mon fichier ? Il marche parfaitement
Il y a une requête PowerQuery, la ligne de code ne fait que la relancer en fonction du choix
Soit plus précis sur ce que tu as fait ou pas et sur ce qui se passe ou pas...
je n'avais tout simplement powerquery thanks