Affichage resultat de recherche

Re : Affichage resultat de recherche

Bonsoir,
si tu veux le faire apparaître dans un commentaire au survol de la cellule, tu peux adapter :
boisgontierjacques.free.fr/BDPlanComment
A+

Re : Affichage resultat de recherche

Re le forum, Hippolite
Merci pour ta reponse, je vais regarder le lien

Re : Affichage resultat de recherche

Bonjour Gexk,

Ex: pour 233157, afficher 532B79 7637P 6,9Eq
532B80 3000P 5Eq ​

Cliquez pour agrandir...

Où va-t'on chercher ces données ???

Je joints mon fichier pour plus d'explications

Cliquez pour agrandir...

C'est une blague ???


Plus sérieusement, ça manque cruellement d'explications claires et précises

à+
Philippe

Édit: Bonjour Hippolite

Re : Affichage resultat de recherche

Bonsoir Gexk5, Hippolite, phlaurent55,

@ phlaurent55 : les données sont sur la 1ère feuille (Calcul charge Mach)

@ Gexk5 : vois si la solution proposée sur le fichier joint répond à ta demande.

Cordialement à tous.

Re : Affichage resultat de recherche

Bonjour le forum, Hippolite, phlaurent55, Papou-net
Merci pour ta reponse Papou-net, a premiere vue, tu as lu le post entier et regardé mon fichier aussi ( lol )
Comme tu as fais me convient parfaitement, juste une petite question, est il possible de ne pas afficher la reference si la quantité est égale a 0???

Encore merci pour ta reponse

Re : Affichage resultat de recherche

Re le forum,hippolite, phlaurent, Papou-net
Après intégration dans mon fichier original, j'ai bien le Userform qui s'affiche mais pas les listview avec les resultats, en reconfigurant la feuille Calcul Charge Mach comme ma feuille originale dans le fichier exemple, reponse de Papou-net , ca fonctionne
Quelqu'un a une idée, j'ai oublié quelque chose, je ne vois pas

Voici le code de Papou

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Left(ActiveCell.Value, 3) = 233 Then Exit Sub
On Error Resume Next
With Sheets("Calcul charge Mach")
Set Mach = .Range("4:4").Find(ActiveCell.Value, LookIn:=xlValues, lookat:=xlWhole)
If Mach Is Nothing Then Exit Sub
cl = Mach.Column - 1
UserForm1.ListView1.ColumnHeaders.Clear
UserForm1.ListView1.ListItems.Clear
UserForm1.ListView1.ColumnHeaders.Add , , "Référence", 70
UserForm1.ListView1.ColumnHeaders.Add , , "Quantité", 70
UserForm1.ListView1.ColumnHeaders.Add , , "Nb d'Equipe", 60
lv = 1
For Each Cel In .Range(.Cells(5, cl), .Cells(68, cl)).SpecialCells(xlCellTypeConstants)
UserForm1.ListView1.ListItems.Add lv, , .Cells(Cel.Row, cl)
' For c = cl To cl + 2
UserForm1.ListView1.ListItems(lv).ListSubItems.Add 1, , .Cells(Cel.Row, cl + 1)
UserForm1.ListView1.ListItems(lv).ListSubItems.Add 2, , .Cells(Cel.Row, cl + 2)
' Next
lv = lv + 1
Next
End With
UserForm1.ListView1.View = lvwReport
UserForm1.Show
End Sub
Ma base de donnée commencait a la colonne A, jusqu' à la ligne 68
Ma nouvelle base commence en colonne G , jusqu'à la ligne 433, j'ai donc changé
For Each Cel In .Range(.Cells(5, cl), .Cells(433, cl)).SpecialCells(xlCellTypeConstants)
Help!!!!

Merci de vos lumières

Re : Affichage resultat de recherche

Bonsoir Gexk5,

Tu dois, dans l'éditeur VBA , cliquer droit dans 'Boîte à outils', 'Contrôles supplémentaires" et sélectionner 'Microsoft ListView Control, version..'

Je pense que ton problème vient de là.

Cordialement.

Re : Affichage resultat de recherche

Re le forum,
Le problème est resolu, en fait dans les colonnes references, il ne faut pas de formule, alors que dans ma base originale, toutes les valeurs sont des repport de celulle, en mettant en "dur" les ref, ca fonctionne.

Pas d'idées pour ne pas afficher si la quantité est a 0 ?????
Merci pour votre aide

Re : Affichage resultat de recherche

Pas d'idées pour ne pas afficher si la quantité est a 0 ?????

Cliquez pour agrandir...

Bonjour Gexk5,

Il faut rajouter une condition If...Then dans la boucle, comme ci-dessous :


Bonne soirée.

Cordialement.

Re : Affichage resultat de recherche

Re le forum, Papou-net
Un grand merci pour ton aide, le code fonctionne impecc