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

[Tophe2]

Bonjour le Forum,

J'ai adapté un fichier que j'ai trouver sur le Forum il y a quelques années maintenant j'ai plusieurs centaines de clients cependant je souhaiterai adapter le remplissage de différents combobox ou textbox en fonction des commandes pour garder en archive le suivi de chacun.
Je bloque sur ce point je ne vois pas comment m'y prendre pour récupérer les données et les avoir sur l'userform pour chaque client.
j'ai créé 2 combobox et une textbox mais j'en aurai plusieurs à faire par la suite cependant si vous avez une piste pour avoir le suivi du client qui resort dans l'userform en tapant son nom ça m'aiderait.

je joins le fichier.

Merci par avance
Cordialement
Christophe

 

[_Thierry]

Bonjour @Tophe2 , le Forum

Tu as des codes de l'USF qui ne vont nulle-part car les Contrôles n'existent pas (Listbox1 par exemple), de là je ne sais même pas par où commencer.

Je te conseille de regarder ce travail où justement tout est axé sur un moteur de recherche assez puissant et polyvalent...

XL 2019 - fiche client et user form

Bonjour à tous c'est toujours un plaisir et une aventure pour moi de venir sur ce forum :) j'ai besoin du même type de code que j'ai trouvé dans la discussion https://www.excel-downloads.com/threads/fiche-client-et-userform.171270/ mais que je n'arrive pas à adapter à mon fichier. J'ai une...

www.excel-downloads.com

Bonne découverte et bon dimanche
@+Thierry

 

[Tophe2]

Bonjour Thierry,

La listbox 1 c'est le N° client 1, 2 , 3 qui se mets automatiquement dès la création d'un client .... les deux combos ne fonctionnent pas car j'essai de trouver pour archiver......

merci pour ton aide je vais regarder ça.

je viens de regarder le fichier c'est fort intéressant, je vais essayer d'adapter certains modules cependant je bloque pour renvoyer certaines données de l'userform en modification ou en création je m'explique j'aimerai qu'il note dans la feuille suivi le numéro client et les éléments des deux combobox et la textbox 25, si vous pouvez m'aider....

le fichier s'utilise en remplissant le nom puis on le sélectionne......

Bon dimanche

Cordialement
Christophe

 

[_Thierry]

Re bonjour @Tophe2

Je ne comprends pas ton problème et je ne trouve pas de Listbox1 dans l'exemple fourni.

Pour la mise à jour de ta feuille "Suivi" rajoutes ces quelques lignes dans le bouton "Modifier" :

Private Sub CommandButton2_Click()    'modifie
Dim L As Integer

'On Error Resume Next
    If OptionButton4 = True Then
        With Sheets("Feuil1")
            .Cells(Index, 1).Value = CDbl(TextBox1)    'CDbl(TextBox1)
            .Cells(Index, 2).Value = TextBox2
            .Cells(Index, 3).Value = TextBox3
            .Cells(Index, 4).Value = TextBox4
            .Cells(Index, 5).Value = TextBox5   'CDate(TextBox5)
            .Cells(Index, 6).Value = TextBox6
            .Cells(Index, 7).Value = TextBox7
            .Cells(Index, 8).Value = TextBox8
            .Cells(Index, 9).Value = TextBox9
            TextBox10.Text = "I"
            .Cells(Index, 10).Value = TextBox10
            .Cells(Index, 11).Value = Format(TextBox11.Value, "0# ## ## ## ##")
            .Cells(Index, 12).Value = Format(TextBox12.Value, "0# ## ## ## ##")
            .Cells(Index, 13).Value = TextBox13
            .Cells(Index, 14).Value = TextBox14
            .Cells(Index, 15).Value = TextBox15
            .Cells(Index, 16).Value = TextBox16
            .Cells(Index, 17).Value = TextBox17
            .Cells(Index, 18).Value = TextBox18
            .Cells(Index, 19).Value = TextBox19
            .Cells(Index, 20).Value = TextBox20
            .Cells(Index, 21).Value = TextBox21
            .Cells(Index, 22).Value = TextBox22
            .Cells(Index, 23).Value = TextBox23
            .Cells(Index, 24).Value = TextBox24
        End With
       
        'ajout @+Thierry >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        With Sheets("Suivi")
             L = .Range("A65535").End(xlUp).Row + 1
             .Cells(L, 1).Value = Me.TextBox2
             .Cells(L, 2).Value = Me.ComboBox1.Value
            .Cells(L, 3).Value = Me.ComboBox2.Value
            .Cells(L, 4).Value = Me.TextBox25.Value
        End With
        'fin @+Thierry <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    End If

    Me.OptionButton4 = False
   Me.CommandButton2.Enabled = False
   'EffaceControl Me
   Call EffaceTout
   TextBox2.SetFocus
 
    ActiveWorkbook.Save '''' Enregistrer Excel
   
End Sub

Bonne journée
@+Thierry

 

[Tophe2]

Bonjour Thierry

Super ça fonctionne j'ai m'y testbox1 à la place du testbox2 car par la suite je souhaiterai rechercher par N° client car plusieurs client du même noms..... et voir pour faire la même chose que sur le fichier que tu m'as envoyé pour la fonction recherche sur le N° client .....

Merci pour ton aide précieuse, si tu as une idée je prends pour rechercher rapidement le suivi des commandes via le N° Client, je vais avancé sur les combobox et textbox.....

Merci, Merci et bon dimanche

bien cordialement
Christophe

 

[Tophe2]

Bonjour le Forum,
Bonjour Thierry,

j'essai d'avancer sur le fichier je n'arrive pas à afficher les éléments de la feuille suivi dans les textbox et combobox appropriés pouvez vous me dire ce qui ne va pas dans le code ci dessous.

Avec le fichier en pièce.

Private Sub ListBox1_Change()
On Error Resume Next
If ListBox1.ListIndex = -1 Then Exit Sub

Index = ListBox1.List(ListBox1.ListIndex, 1)


If Index > 0 Then
With Sheets("Feuil1")
TextBox1.Text = .Cells(Index, 1)
TextBox2.Text = .Cells(Index, 2)
TextBox3.Text = .Cells(Index, 3)
TextBox4.Text = .Cells(Index, 4)
TextBox5.Text = .Cells(Index, 5)
TextBox6.Text = .Cells(Index, 6)
TextBox7.Text = .Cells(Index, 7)
TextBox8.Text = .Cells(Index, 8)
TextBox9.Text = .Cells(Index, 9)
TextBox10.Text = .Cells(Index, 10)
TextBox11.Text = .Cells(Index, 11)
TextBox12.Text = .Cells(Index, 12)
TextBox13.Text = .Cells(Index, 13)
TextBox14.Text = .Cells(Index, 14)
TextBox15.Text = .Cells(Index, 15)
TextBox16.Text = .Cells(Index, 16)
TextBox17.Text = .Cells(Index, 17)
TextBox18.Text = .Cells(Index, 18)
TextBox19.Text = .Cells(Index, 19)
TextBox20.Text = .Cells(Index, 20)
TextBox21.Text = .Cells(Index, 21)
TextBox22.Text = .Cells(Index, 22)
TextBox23.Text = .Cells(Index, 23)
TextBox24.Text = .Cells(Index, 24)



End With


If L > 0 Then

With Sheets("Suivi")
L = .Range("A65535").End(xlUp).Row + 1

Me.ComboBox1.Value = .Cells(L, 2).Value
Me.ComboBox2.Value = .Cells(L, 3).Value
Me.ComboBox3.Value = .Cells(L, 4).Value
Me.TextBox25.Value = .Cells(L, 5).Value
Me.TextBox26.Value = .Cells(L, 6).Value
Me.ComboBox4.Value = .Cells(L, 7).Value

End With

End If

End Sub
merci pour votre aide
Cordialement
Christophe

 

[_Thierry]

Bonjour @Tophe2

Peux-tu poster un fichier exemple sans données confidentielles, car je n'ai pas le temps de reconstruire un fichier pour tester ton code.

@+Thierry

 

[_Thierry]

Re bonsoir

Ok merci pour l'edit avec le fichier, mais c'est tordu, cette ListBox1 est cachée et n'apparaitrait lors des change de TextBox2 ou de TextBox4...

Ce serait bien d'avoir le synopsis de ce que tu souhaites obtenir action par action...

Enfin le ListBox1_Change semble contenir des actions/conditions incohérentes... ou impossibles, j'ai du mal à suivre ta logique... et la finalité !

Bonne soirée
@+Thierry

 

[Tophe2]

Bonjour Thierry,

j'ai un fichier client (plusieurs centaines de lignes) la listbox me permet de choisir le nom et prénom de mon client j'ai des noms identiques donc je clique sur le bon client via la listbox puis les éléments s'affichent dans les textboxs maintenant je me rends compte que je souhaite avoir un suivi des différentes commandes ou prestations via une listbox élaborée (j'ai vu dans un fichier il recherche le texte taper "Full Text") comme j'ai pu voir dans certains fichiers afin d'afficher le suivi (feuille suivi) du client que j'aurai recherché dans cette listbox soit via le nom par exemple mais là je suis parti sur le N° client qui lui est unique.

Il est vrai que j'essai d'adapter certains codes que j'ai pu trouver pour avancer, tu es un expert et tu trouves mon code bizarre ou incohérent je comprends très bien mais jusqu'à présent il fonctionne en fonction de mes besoins, création client et modification mais là c'est vrai que je bloque pour l'évoluer.

j'espère être clair.

merci en tout cas de ton aide et du temps que tu peux m'accorder

bien cordialement
Christophe

 

[_Thierry]

oui ça c'est l'idée de base, mais pas un synopsis.

Que veux-tu faire en saisissant dans les textbox pour afficher la listbox qui doit servir de moteur de recherche pour remplir ces textbox... C'est le serpent qui se mord la queue là, ou je n'ai rien compris !!! lol

@+Thierry

 

[Tophe2]

J'ai trouvé ce principe d'afficher la listbox quand je rentre les premières lettre du nom dans un fichier sur internet donc j'ai essayer de l'adapter à mon utilisation

Je souhaite créer les nouveaux clients et les enregistrer dans le fichier je souhaite pouvoir les modifier puis si un client revient plusieurs fois pouvoir enregistrer et suivre toutes les commandes ou prestations que j'ai pu faire pour lui et les afficher afin d'avoir un suivi et fidéliser aussi les personnes.

les listbox affichent les éléments il faut que je puisse les modifier si changement et l'onglet suivi que je cherche à créer c'est pour suivre les commandes et les voir quand je cherche un client ou lors d'une recherche particulière.

Suis je plus clair .....

Christophe

 

[_Thierry]

Regardes cet exemple de moteur de recherche que j'ai fait pour le forum cet été...

 

[Tophe2]

oui c'est exactement celui là que j'ai vu pour rechercher via la textbox en faisant la recherche intelligente et les éléments s'affichent il est vraiment super et le principe correspond parfaitement, je pense, à ma situation. j'ai vu ton prénom dans le code mais en date de 2005 je pensais pas que c'était aussi récent .

Tu penses que le fichier peut être adapté avec ce principe ?

 

[_Thierry]

Re bonsoir,

Oui il peut, en fait sur cet exemple, celui de cet été 2020 (en 2005 j'étais déjà sur XLD, mais c'est probablement un autre fichier), il y a une base de données, et quelques "Static Data" en base Tables. C'est sûrement adaptable, il faut juste que tu t'en "impregnes" pour que tu comprennes le principe.

Bon courage
@+Thierry

 

[Tophe2]

ok je vais regarder ça et voir comment l'adapter, tu as pu voir pourquoi le code ne fonctionne pas sur l'affichage des combobox et textbos de la feuille suivi ?