XL 2013 Archiver le suivi des clients pour avoir un visuel dans une fenêtre

ChTi160

XLDnaute Barbatruc

• 8 Novembre 2020

• #61

Bonjour ,
Tu as besoin de visualiser les 9 dans ta Listbox ?
Bonne journée
Jean marie

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 8 Novembre 2020

• #62

Bonjour Jean Marie,

Oui je souhaite avoir le visuel du suivi des commandes des clients en recherchant par le N° client par exemple puis en cliquant sur la ligne d'une commande avoir le détail qui s'affiche.
Bonne Journée
Christophe

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 8 Novembre 2020

• #63

Re
Les 9 colonnes visibles donc?
Jean marie
Depuis mon téléphone

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 8 Novembre 2020

• #64

Re,

Oui
Bonne Journée
Christophe

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 8 Novembre 2020

• #65

Re
en regardant le code "CommandButton1"
je me dis que tu vas récupérer plusieurs fois le même Client dans ta base de Données!
je ne comprends pas peux tu m'expliquer ?

VB:

 Set c = plage.Find(Me.TextBox1, , , xlPart)
 If Not c Is Nothing Then
      premier = c.Address
      Do
          Me.ListBox1.AddItem
          lig = c.Row - plage.Row + 1
          For col = 1 To nbcol
            Me.ListBox1.List(i, col - 1) = plage.Cells(lig, col)
          Next col
              i = i + 1 'Pourquoi faire ?????
        Set c = plage.FindNext(c) 'Next pourquoi ??????
      Loop While Not c Is Nothing And c.Address <> premier
  End If

je m'arrête là ! lol
jean marie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 8 Novembre 2020

• #66

Re
je viens de comprendre Lol
la colonne Code c'est le Code Client ?
je m'y remets ;
jean marie

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 8 Novembre 2020

• #67

Re,

Oui c'est ça, un client est enregistré une fois cependant il peut faire plusieurs commandes....

Christophe

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 10 Novembre 2020

• #68

Bonjour Christophe
Bonjour le Fil , le Forum
j'espère que tu vas bien !
En pièce jointe un fichier ou j'ai travaillé a la recherche des Clients et leur mise en place dans un ComboBox ainsi que l'action sur le Choix d'un ou des Clients dans ce ComboBox .
tu regardes et me dis ce que tu en penses.
jean marie

 

Pièces jointes

• Essai Recherche Chti160.xls

  111.5 KB · Affichages: 7

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 10 Novembre 2020

• #69

Re
une autre version
jean marie

 

Pièces jointes

• TestChti160-2.xlsm

  16.3 KB · Affichages: 8

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 10 Novembre 2020

• #70

Bonjour Jean Marie,
Bonjour le forum,

Tout va bien, et toi ?

Sur le 1er fichier je trouve le principe très bien de faire remonter les codes identiques ou quasi dans la combobox je suppose quand sélectionnant une ligne cela peut apparaitre je viens de sélectionner le code CL1 et j'ai le CL123, CL1 et CL11 qui s'affiche ne peut on pas dans le choix de la combobox afficher dans la listbox que celui sélectionné.

Quand on sélectionne une ligne dans la listbox elle reste en bleu, la fenêtre s'affiche avec la textbox comment fait on pour désélectionner la ligne à la fermeture de l'userform ?

je vais essayer d'intégrer le code dans le fichier de départ et voir le fonctionnement avec plus de données.

Dans le 2ème fichier envoyé je ne vois rien s'afficher aucune donnée c'est normal ?

Merci de ton aide et de tes propositions
Bonne Journée
Christophe

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 10 Novembre 2020

• #71

Re
????
Je comprends pas
Tu tapes cl dans le textBox tu obtiens
Tous et Les différents "CL" trouvés.
Et donc l'ensemble des lignes correspondantes dans la listbox
Si je ne me trompes en sélectionnant par exemple CL1 tu n'as que les lignes qui correspondent à CL1.
Je n'ai peut être pas compris lol
Jean marie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 10 Novembre 2020

• #72

Re
une petite vidéo pour imager mes Dires lol
jean marie

 

Pièces jointes

• TestAffichage.gif

  116.3 KB · Affichages: 12

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 11 Novembre 2020

• #73

Bonjour Jean Marie,
Bonjour le Forum,

Oui c'est tout a fait ça mais en cliquant sur CL1 je n'avait pas que les CL1 puisque j'avais aussi CL11 et CL123 mais sur ta vidéo en cliquant sur la ligne ça s'affiche dans les textboxs ci dessous c'est super , ce n'était pas le cas dans le fichier joint.

Merci
Bonne Journée
Christophe

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 11 Novembre 2020

• #74

Re
Effectivement
Pour ce qui est du choix dans le Combobox "ComboBox1_Change"
j'ai mis :

"*" & UCase(.Text) & "*"

Cliquez pour agrandir...

il faut :

UCase(.Text)

Cliquez pour agrandir...

voir le Fichier joint!
jean marie

 

Pièces jointes

• Essai Recherche Chti160-2.xls

  96 KB · Affichages: 11

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 11 Novembre 2020

• #75

Re,

J'ai fait la modif du code sur ton fichier la recherche est super et tout fonctionne.

J'essaie d'intégrer ton code sur mon fichier Client de départ en changeant l'userform1 de ton fichier en 2 et en modifiant le nom de la plage BD en MonSuivi et le nom de la feuille BD en Suivi cependant j'ai un message d'erreur quand je clique sur le bouton se trouvant dans l'userform1 pour afficher l'userform2 (j'espère être clair !!), j'ai intégré le module de classe et le module1 dans mon fichier.

Voici le message : erreur d'exécution 9 l'indice n'appartient pas à la sélection j'ai dû oublier de modifier une ligne cependant je ne vois pas , en faisant débogage il va sur cette ligne dans combox1 change -----> TabRecup(C, ii) = Tablo(L, C)

Si tu as une piste pour réparer ça, je me doute que ce n'est pas évident sans le modèle.

Edit : Si je renseigne un code client qui n'existe pas par erreur dans la textbox il y a un message d'erreur qui s'affiche, est il possible de l'enlever ?

Merci encore de ton aide
bonne Soirée
Christophe

 

Dernière édition: 11 Novembre 2020

Vote positif 0 Vote négatif