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

Tophe2 · 11 Octobre 2020

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 · 24 Octobre 2020

Non, je n'ai toujours pas compris le synopsis de ce que tu souhaites obtenir action par action, d'autant plus que tu as un exit sub plus un resume next, pas bon tout ca pour l'évenèment change... J'ai laissé tomber.

Tophe2 · 24 Octobre 2020

ok je comprends je souhaitais afficher les info de la feuille suivi dans les comboboxs et textboxs et ceux de la feuille 1 en même temps quand je tape le nom.....

je vais continuer à chercher
Bonne soirée et merci
Christophe

Tophe2 · 24 Octobre 2020

je viens de comprendre mon erreur je ne peux afficher les informations dans les comboboxs... car plusieurs info c'est là qu'il faut mettre en place la listbox et rechercher par N° client.

je vais essayer si d'adapter le code du fichier si vous avez des propositions je prends.

merci encore pour votre soutient
cordialement
Christophe

Tophe2 · 25 Octobre 2020

Bonjour le Forum,
Bonjour Thierry,

je viens de créer une listbox qui va récupérer les information de ma feuille "suivi" je souhaiterai avoir les entêtes de colonne en haut de la liste box c'est le cas avec l'écriture ci dessous cependant quand j'utilise la barre verticale pour descendre la ligne disparait et ne reste pas en haut figé !!!!
ma ligne d'entête se trouve de A1:G1.

voici le code que j'ai récupérer dans un fichier.

Pouvez vous m'aider

Private Sub CommandButton6_Click()

' Remplissage du ListBox avec un variant

Dim rg(1 To 100, 6), i%
With Feuil4
For i = 1 To .[A1].End(xlDown).Row
rg(i, 0) = .Range("A" & i)
rg(i, 1) = .Range("B" & i)
rg(i, 2) = .Range("C" & i)
rg(i, 3) = .Range("D" & i)
rg(i, 4) = .Range("E" & i)
rg(i, 5) = .Range("F" & i)
rg(i, 6) = .Range("G" & i)

Next i
End With
ListBox2.List() = rg

End Sub
Merci
Cordialement
Christophe

ChTi160 · 25 Octobre 2020

Bonjour Tophe2
Bonjour mon ami @+Thierry (content de voir que tu nous suis toujours!)
voilà ce que j'ai fait de ce que j'ai compris
je n'ai pas traité l'ensemble des demandes (Ajout ,Modifier etc etc)
Le suivi n'est pas encore traité .
Christophe ! je m'aperçois qu'on se suit lol
Bonne journée
jean marie

Tophe2 · 25 Octobre 2020

Bonjour Jean Marie,

Content de te lire, ça à l'air complet ce fichier et simple pour toi.
j'essai de mon côté de comprendre comment faire pour afficher l'entête dans la listbox et faire la recherche car le principe m'intéresse mais ce n'est pas évident pour moi.

J'espère que tu vas bien
Bon Dimanche
Christophe

ChTi160 · 25 Octobre 2020

Re
Christophe tu n'est pas sans savoir que le remplissage d'une listbox et le traitement de ses entêtes n'est pas évident .
Listbox folie par RowSource(entête possibles)
Nombre de colonne > a 10.
Si remplissage via AddItem Nombre des colonnes limité à 10(pas d'entêtes)
Utiliser la méthode list ou Column pour le remplissage permet un nombre de colonnes > 10
Il faudrait que tu nous dises ce que tu veux voir affiché dans tes listbox(recherche , suivi )
Que dois tu pouvoir modifier ?
Etc etc
Bonne fin de journée
Jean marie
(Depuis mon téléphone)

Tophe2 · 25 Octobre 2020

Jean Marie,

oui je sais que ce n'est pas évident et je vois sur le net et le forum les propositions mais sans succès pour l'instant je ne désespère pas il y aura environs 10 colonnes dans la listbox.

dans la listbox c'est ce qui se trouvera dans la feuille Suivi (modèle dans le fichier joint plus haut) c'est le détail de la commande et pouvoir rechercher soit par N° client ou par le nom mais il y a des homonymes (nom et prénom) dans la liste que j'ai le tout c'est pour avoir un suivi des clients quand quelqu'un revient de voir rapidement les différentes commandes.

il peut y avoir un nouveau client qui vient uniquement pour des renseignements et donc pas de commande à enregistrer à ce moment là.

Pour Modifier tous les éléments du client adresse, tel, ....... la commande peut être modifiée mais c'est plus rare.

je viens de me rendre compte que mon bouton modifier ne fonctionne plus !!

En espérant être plus précis.
Bon Dimanche
Cordialement
Christophe

Tophe2 · 25 Octobre 2020

Re,

Je souhaite modifier le N° Client en ajoutant CL avant le chiffre, j'ai fait ça mais ça ne fonctionne pas il ne me change plus le N° client !! CL1, CL2, CL3 .......

With Sheets("Feuil1")

Lig = .Range("A65536").End(xlUp).Row + 1
DerLig = [A65000].End(xlUp).Row
x = Application.Max(Range("A2:A" & DerLig))
Me.TextBox1.Value = x + 1

.Cells(Lig, 1).Value = "CL" & CDbl(TextBox1)

merci pour votre aide
Cordialement
Christophe

ChTi160 · 25 Octobre 2020

Re
Pourquoi CDbl () ?
Tu mets en variable Dim x As Long et tu peux aller de

Contient des entiers 64 bits (8 octets) signés dont la valeur est comprise entre-9223372036854775808 et 9 223 372 036 854 775 807 (9.2... E + 18).

Dim StrCL as String
Pourquoi pas faire ?

VB:

StrCL= "CL" &  x + 1
Me.TextBox1.Value =StrCL
.Cells(Lig, 1).Value = StrCL

Ensuite , je pense que tu vas avoir un problème avec ta Fonction "Max"

VB:

x = Application.Max(Range("A2:A" & DerLig))

Car tu vas avoir des String dans la Colonne "A" soit ex : CL1 , CL2 , CL3
il va falloir faire autrement pour Incrémenter le Numéro de tes Clients
un Truc du genre :

VB:

x= Mid(.Cells(DerLgn, 1), 3) 'On récupére la partie Numérique
puis :
StrCL= "CL" &  x + 1 'et On incrémente
Me.TextBox1.Value =StrCL
.Cells(Lig, 1).Value = StrCL

Pourquoi utilises tu deux façons différentes pour récupérer la dernière ligne Non Vide?

VB:

Dim NvelleLig as long
      Lig = .Range("A65536").End(xlUp).Row + 1
DerLig = [A65000].End(xlUp).Row
'tu peux faire . Ex
DerLig = [A65000].End(xlUp).Row
NvelleLig = DerLig + 1

jean marie

Tophe2 · 25 Octobre 2020

Re,

j'ai bien modifié le code et le CL s'affiche sauf que maintenant le chiffre ne change plus.

Christophe

ChTi160 · 25 Octobre 2020

Re
je ne comprends pas ce que tu veux dire Lol
qu'a tu mis comme Code pour incrémenter la Référence du Client suivant ?
Question :
Pourquoi mettre "CL" devant la Référence de test Clients ?
jean marie

Tophe2 · 25 Octobre 2020

Re,

je vais regarder ça plus de prêt je dois de toute façon faire une erreur je reprends ce passage.

Pour le CL devant le chiffre je me dis que c'est peut être plus simple pour après ?

Christophe

ChTi160 · 25 Octobre 2020

re
un exemple
jean marie

ChTi160 · 25 Octobre 2020

Re
Pour éviter ce problème d'incrémentation
Tu pourrais lors de l'enregistrement de ton Client lui affecter un Numéro
ex : "CL suivi du Numéro du Jour (44129)et de Heure Minute Secondes , ca sera toujours différent et Numérique.
Soit Aujourd'hui à 16:45:19

"CL44129164519"

jean marie

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

Tophe2

XLDnaute Impliqué

Pièces jointes

_Thierry

XLDnaute Barbatruc

Tophe2

XLDnaute Impliqué

Tophe2

XLDnaute Impliqué

Tophe2

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Pièces jointes

Tophe2

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Tophe2

XLDnaute Impliqué

Tophe2

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Tophe2

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Tophe2

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

Discussions similaires