Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro Recherche avec listview

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Emmanuel31100
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

Emmanuel31100

Guest
Bonjour tout le monde,

Il y a quelques temps (la semaine dernière, comme quoi ça date lol) 😀 j'ai posté une discussion parce que j'avais du mal à créer une macro de recherche avec résultats dans un listbox.

Puis 'Habitude' m'avait conseillé d'abandonner l'idée du listbox mais plutôt de passer par un listview en utilisant les filtres excel. 😎

Aujourd'hui j'essaie tant bien que mal d'adapter le code créé avec une légère modification mais mes connaissances en VBA étant limitées je bloque un peu!🙁

Si j'ai pu adapter le code à mon ancien projet, dans le nouveau le problème est légèrement différent:

J'aimerais en effet que les résultats inscrits dans le listview soient les cellules des colonnes A, F, H, I et E de toutes les lignes où la cellule L serait vide

J'ai beau réfléchir et remanipuler le code, je n'ai aucune idée de comment y arriver!😡

Quelqu'un aurait-il une idée?😱

Ci-joint le fichier qu'Habitude avait créé.
 

Pièces jointes

Trier par date Trier par votes
Re : Macro Recherche avec listview

A F H I et E serait dans l'ordre 0, 5, 7, 8, 4
Et L = 11

Code: 
If f.Name <> "Accueil" Then
        For i = 2 To f.Range("A65536").End(xlUp).Row
            
            nbV = nbV + 1
            v(nbV, 0) = Trim(f.Name)
            v(nbV, 1) = Trim(r.Offset(i - 1, 5)) ' 5 = colonne F
            v(nbV, 2) = Trim(r.Offset(i - 1, 0)) ' 0 = colonne A
            v(nbV, 3) = Trim(r.Offset(i - 1, 2)) ' 2= colonne C
            v(nbV, 4) = Trim(r.Offset(i - 1, 3)) ' 3= colonne D
            v(nbV, 5) = Trim(r.Offset(i - 1, 6)) ' 6= colonne G
            v(nbV, 6) = i
           
        Next i
    End If
Next

Donc..

Code: 
If f.Name <> "Accueil" Then
        For i = 2 To f.Range("A65536").End(xlUp).Row
            If r.Offset(i - 1, 11) = "" Then ' 11 ici c'est la colonne L
            
            nbV = nbV + 1
            v(nbV, 0) = Trim(f.Name)
            v(nbV, 1) = Trim(r.Offset(i - 1, 0)) 
            v(nbV, 2) = Trim(r.Offset(i - 1, 5)) 
            v(nbV, 3) = Trim(r.Offset(i - 1, 7)) 
            v(nbV, 4) = Trim(r.Offset(i - 1, 8)) 
            v(nbV, 5) = Trim(r.Offset(i - 1, 4)) 
            v(nbV, 6) = i
            
            End If
        Next i
    End If
Next
 
Vote positif 0 Vote négatif
Re : Macro Recherche avec listview

Bonsoir Emmanuel, Habitude, et à ceux qui passeront par ici,

Habitude a raison de te suggérer l'utilisation d'une ListView.
sauf que de mon coté; je n'utilise aucun filtres;
Je ne sais même pas ce que cela veut dire dans Excel

Le tri, si nécessaire, je le fais après avoir chargé la ListView.

Il serait bien que tu repartes à zéro, et que tu joignes ton projet.
(Au moins la partie concernée par ta question initiale avec rappel de celle-ci)

A quand tu le pourras et voudras.

Amicalement

Yann
 
Vote positif 0 Vote négatif
Re : Macro Recherche avec listview

Bonjour Habitude, Yann, le forum

La solution apportée par 'Habitude' marche bien! J'ai téléchargé un tutorial que je lis en ce moment-même pour me familiariser avec l'utilisation des listview!

Un gros merci à 'Habitude' pour sa réponse et m'avoir répondu aussi rapidement!
Merci à Yann aussi de s'être penché sur le problème (si d'ailleurs tu en as besoin ou la curiosité je peux t'envoyer la macro complète?)

Emmanuel
 
Vote positif 0 Vote négatif
Re : Macro Recherche avec listview

Merci Emmanuel

Je me doutais un peu de ce lien 🙂.

Bonjour à MichelXLD également, un maître en Excel (c'est sincère) qui est apparu en coup de vent il y a peu 😉.
 
Vote positif 0 Vote négatif
Re : Macro Recherche avec listview

Bonjour Emmanuel, Habitude, MJ13, et à ceux qui passeront par ici,

Merci Emmanuel pour ce lien très utile.

Habitude et MJ13; vos interventions ont porté leurs fruits. Bravo.

Amicalement

Yann

Cf Signature
 
Vote positif 0 Vote négatif
Re : Macro Recherche avec listview


Oui c'est effectivement ca que je fais.
Je charge toute dans la listView au départ.
Mais aussi dans le vecteur.
Sinon je devais récupérer les données après chaque demande.

Un tri pour moi est d'afficher Toute les données dans un ordre quelconque.
Alors qu'un filtre consite à afficher seulement les données désirées.
 
Vote positif 0 Vote négatif
Re : Macro Recherche avec listview

Bonjour habitude et à ceux qui passeront par ici,

Il est vrai qu'il m'arrive aussi de faire un choix sélectif de colonnes à
charger ou non dans mes ListView.

Dans cet exemple ci-dessous, je ne le fais pas:

Code: 
For i = 2 To ActiveSheet.UsedRange.Rows.Count
.ListItems.Add , , ActiveSheet.Cells(i, 1).Value
    For j = 2 To ActiveSheet.UsedRange.Columns.Count
    .ListItems(.ListItems.Count).ListSubItems.Add , , ActiveSheet.Cells(i, j).Value
     Next j
Next i

C'est juste pour montrer que les "Offset" ne sont pas de mes copains.

Cependant; dans la boucle "j" il est possible d'ajouter un "Select Case j"
qui va choisir ces colonnes.

Je pense que cette méthode pourrait être un peu plus légère...

A voir!

Amicalement

Yann
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
997
Corentin26270
C
C
  • Question Question
Microsoft 365 Recherche infos partielles et résultats en liste déroulante
Réponses
3
Affichages
592
chris
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
L
  • Question Question
XL 2016 Recherche de partie de mot dans les cellules d'un tableau et extractions des résultats
2
Réponses
29
Affichages
2 K
Lorenzini
L
M
  • Résolu(e)
Microsoft 365 Sélection ligne dans ListBox avec boutons précédent-suivant
4 5 6
Réponses
88
Affichages
5 K
meyscal
M
C
  • Résolu(e)
Microsoft 365 Transposition de données automatiquement selon critères, c'est possible ?
Réponses
14
Affichages
1 K
job75
A
  • Question Question
XL 2019 Récupérer les résultats d'une recherche de Google Maps ou Earth sur un tableau Excel
2
Réponses
20
Affichages
4 K
Pierred
P
  • Résolu(e)
XL 2013 Userform recherche - Listbox double clic renvoi vers cellule
Réponses
7
Affichages
1 K
CGU2022.
R
  • Question Question
Microsoft 365 ListBox / ListView et combobox avec choix de colonnes
2
Réponses
20
Affichages
4 K
RaVenSs
R
J
  • Résolu(e)
XL 2016 RESOLU Saisie intuitive TextBox vers ListBox
2
Réponses
25
Affichages
4 K
jorge1201
J
A
  • Résolu(e)
XL 2016 Décompte de valeurs précises avec bornage
Réponses
11
Affichages
1 K
albuqs
A
M
  • Résolu(e)
XL 2013 Recherche selon critère et transposer des données avec récurrence
Réponses
3
Affichages
1 K
MarieChérie
M
T
  • Question Question
Microsoft 365 Planning de réservation de matériel (avec gestion des stocks) - Formules utiles ?
Réponses
7
Affichages
2 K
vgendron
  • Question Question
XL 2013 listbox avec + de 11 colonnes (colonne A à colonne L)
Réponses
11
Affichages
3 K
patricktoulon
Y
  • Résolu(e)
XL 2010 filtre listview par nom et date
Réponses
10
Affichages
2 K
patricktoulon
C
  • Question Question
XL 2013 Macro VBA appliquer une formule somme.si.ens à un tableau et ensuite une recherche mutli critere
Réponses
12
Affichages
2 K
Dranreb
L
  • Question Question
Microsoft 365 Userform : Combobox triée/sans doublons avec saisie intuitive/recherche multimots
Réponses
8
Affichages
3 K
AtTheOne
O
  • Question Question
XL 2010 2 couleurs de police différentes dans une même colonne listview
Réponses
0
Affichages
549
oliviercharles
O
G
  • Question Question
Microsoft 365 Listview affichage barre des titres
Réponses
2
Affichages
689
GALOUGALOU
J
  • Question Question
Microsoft 365 Macro pour importer les données d'un onglet à un autre
Réponses
3
Affichages
1 K
jps89
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…