Discussion :

[casefayere]

Bonjour,

J'ai regardé ton fichier ce matin et te propose une disposition différente avec un USF (UserForm1) qui comprend 1 MultiPage. Pour l'instant, je n'ai pas supprimé les autres USF, qui ne serviraient plus, bien sur.

Dis-moi si ça te va, si oui, on essayera d'avancer

Bonne journée

[chombriko]

Bonjour,

Après avoir regardé ce que tu me proposé , j'aurai voulu savoir pourquoi le choix d'un Multipage? Sa permet d'avoir un programme plus simple?
Sinon l'idée me va très bien!

Par contre lorsque je tape la recherche du nom de client , je souhaiterai seulement avoir le nom du client et ne pas voir son ID, est ce possible?

Re,

En faite en essayant d'adapter à mon fichier, peu importe le client que je rentre même s'il a des marques d'équipement et bien j'ai la fenêtre "pas de correspondance " qui apparait.

De plus , rien ne s'affiche dans la liste des marques même si le client en possède , pourtant lorsque je le test sur le fichier que tu ma envoyé sa marche à merveille , mais une fois que le programme doit faire la même procédure sur mon fichier et bien sa marche plus

[casefayere]

Bonsoir,

je souhaiterai seulement avoir le nom du client et ne pas voir son ID, est ce possible?

sans problème

pourtant lorsque je le test sur le fichier que tu ma envoyé sa marche à merveille , mais une fois que le programme doit faire la même procédure sur mon fichier et bien sa marche plus

tout dépend de l'organisation de tes écritures, attention que les données que tu compares ou que tu recherches aient la même structure (les formats) et attention aux espaces inutiles éventuels en début et fin de mot, je ne me souviens plus si j'ai prévu un "Trim" dans les recherches.
Si mon fichier fonctionne, le tien devrait fonctionner en tenant compte de ce que je viens d'écrire.

Bonne soirée

[chombriko]

Bonjour,

Après essai , si je laisse cette ligne de code comme tu me la envoyée cela marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Activate()
NcRecherche.BoundColumn = 2
 
With Sheets("Table adresse")
 
  derlg = .Range("A" & .Rows.Count).End(xlUp).Row
  Clt = .Range("A2:B" & derlg)
  NcRecherche.List = Clt
 
End With
End Sub

Mais avec ce code j'obtiens une fenêtre avec à gauche l'ID (que je ne veux pas voir) et à droite le nom du client (ce que je veux voir).

En retouchant ce code j'arrive à obtenir seulement le nom du client mais plus aucune marque ne s'affiche.
Chaque fois qu'un client est sélectionné la fenêtre pas de correspondance apparaît
Voici ce que donne le code une fois retouché

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Activate()
 
With Sheets("Table adresse")
 
  derlg = .Range("B" & .Rows.Count).End(xlUp).Row
  Clt = .Range("B2:C" & derlg)
  NcRecherche.List = Clt
 
End With
End Sub

Je dois sûrement adapter le code en Private Sub NcRecherche_Change() mais après plusieurs essais je ne trouve pas ce qui cloche

De plus , je ne comprend pas à quoi servent les ListBox "tbRecherche","clientP2", et "TbEquip"

[chombriko]

Re,

Je viens de comprendre pour les ListBox, mais est-il possible de les retirer et de rentrer directement le nom du client recherché dans la ComboBox (c'est ce que je faisais jusqu'à présent , donc les ListBox seraient inutiles).

[chombriko]

Bonjour tous le monde!

Je réactualise la discussion étant que je suis toujours bloqué

Bonne journée!