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

Tophe2 · 25 Octobre 2020

Re,

Merci de ton aide et tes propositions j'avance un peu et doucement mais c'est vrai que j'adapte certains codes donc il doit y avoir des erreurs ou des lignes qui doivent poser PB.

Il faudrait reprendre le code je vais déjà insérer ton test dans le fichier et voir comment ça se passe....

En tout cas merci pour toutes tes propositions
Bonne Soirée
Christophe

Tophe2 · 1 Novembre 2020

Bonjour Le Forum,
Bonjour Jean Marie,

je suis reparti du départ avec les éléments que j'ai pour avancer sur le fichier.

j'ai un message d'erreur en voulant remplir ma Listbox erreur d'exécution code 6 dépassement de capacité, je ne comprends pas pourquoi !! de plus je souhaite mettre les entêtes dans la listbox j'ai activé columnheads mais il ne m'affiche rien dedans j'ai bien le cadre c'est tout .

voici mon code :
Private Sub Btn_Suivi_Click()

Dim rg(1 To 100, 8), 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)
rg(i, 7) = .Range("H" & i)
rg(i, 8) = .Range("I" & i)

Next i
End With
ListBox2.List() = rg

End Sub

Merci pour votre aide
Cordialement
Christophe

ChTi160 · 1 Novembre 2020

Bonsoir Christophe
Pour ce qui est des entêtes ça n'est possible que si tu alimentes ta listbox via la méthode RowSource.
Jean marie

ChTi160 · 1 Novembre 2020

Re ensuite ta façon d'alimenter ta listbox n'est pas conforme.
Tu as aussi ton tableau rg qui est définit avec 8 colonnes et tu en affecté 9 de 0 à 8
Jean marie

Tophe2 · 1 Novembre 2020

Bonjour Jean Marie,

J'ai essayé mais il m'affiche l'entête sur la ligne 2 et non dans l'entête j'ai sélectionné par exemple A1:I1000

je comprends pas ce qu'il manque

merci
Bonne Soirée
Christophe

Tophe2 · 1 Novembre 2020

Re,

Pour alimenter la listBox j'ai trouvé ce code sur le net et il fonctionne sur un autre fichier mais là je sèche, j'ai modifié la ligne en mettant 9 mais toujours le même problème.

merci pour ton aide.
cordialement
Christophe

ChTi160 · 1 Novembre 2020

Re
Tu as aussi définit le nombre de ligne de ton tableau 100 il faut être sur que i ne sera pas plus grand.
Enfin plein de choses qui ne vont pas.
Souvent on remplit le tableau en fonction de la BDD on le redimensionne au fur et à mesure.
En agissant sur le nombre de colonnes.
Ex ta BDD a 8 colonnes et x lignes
Ton tableau sera dimensionné
ReDim Preserve Tableau(8 , i) 8 étant la partie fixe de ta base de données.
X étant la variable colonne
Qu'on incrémenté a chaque passage de la boucle sur les lignes de la BDD.
Puis Tableau(1,i)=rg(lgn,1)
Tableau(2,i)=rg(lgn,2)
Etc etc
Jusqu'à
Tableau(8,i)=rg(lgn,8)
Jean marie
Depuis mon téléphone

Tophe2 · 1 Novembre 2020

Re,

Ok merci pour ta réponse je vais regarder ça j'espère y arriver encore merci pour ton aide.

si tu as un exemple je prends .

Bonne Soirée
Christophe.

ChTi160 · 1 Novembre 2020

Re
de retour sur mon PC
sans fichier pas évident Lol
je vais essayer de te faire un fichier exemple.
jean marie

ChTi160 · 1 Novembre 2020

Re
le fichier !
n'hésite pas si besoin!
Tu devrais comprendre et ainsi maitriser Lol
jean marie

Tophe2 · 1 Novembre 2020

Re,

Merci, je regarde je devrai y arriver à reproduire le code en fonction de mon besoin.

Pour l'entête à afficher que dois je faire, dans un ancien fichier j'avais listfillrange à remplir mais je ne le retrouve pas ....

Merci pour tout
Bonne Soirée et bonne semaine
Christophe

Tophe2 · 1 Novembre 2020

re,

Je viens d'adapter en fonction de mon fichier, j'ai un message d'erreur 380, impossible de définir la propriété column, valeur de propriété non valide, je comprends pas pourquoi sur mon fichier cela ne fonctionne pas ????

il souligne en jaune cette ligne : .Column = Tablo

ton fichier fonctionne très bien dès que j'adapte ça marche pas !!!!

Merci pour ton temps
Bonne Soirée
Christophe.

ChTi160 · 1 Novembre 2020

Re
surement que ton Tableau est Vide !
pas évident sans fichier lol
jean marie

Tophe2 · 1 Novembre 2020

Re,

Oui je dois enlever toutes les données

Je viens d'ajouter d'autres données dans la feuille ça fonctionne par contre le ".clear" n'efface pas le tableau avant de mettre les données, j'ai ajouté cela "UserForm1.ListBox2.Clear" mais rein ne se passe

Voilà le fichier ....

merci encore de ton aide précieuse
Bonne Soirée
Christophe

ChTi160 · 1 Novembre 2020

Re
voilà ce que j'ai mis et qui semble fonctionner tu me parles de .clear pour un tableau puis de la ListBox arffff

VB:

Private Sub Btn_Suivi_Click()

Erase Tablo 'Ici on efface le tableau
x = 0
With Worksheets("Suivi")
' j'ai supprimé le 'UserForm1.ListBox2.Clear inutile voir plus bas
  DerLgn2 = .Cells(.Rows.Count, 1).End(xlUp).Row 'Derniere ligne non vide en partant du bas
  For Lgn = 2 To DerLgn2 'Pour chaque ligne de la deuxieme a la DerLgn
    x = x + 1 'On incremente le Numero de la colonne du tableau
  ReDim Preserve Tablo(9, x) 'On redimensionne le tableau
    Tablo(1, x) = .Cells(Lgn, 1) 'On affecte la valeur de la Cellule Ligne(Lgn) et Col =1
    Tablo(2, x) = .Cells(Lgn, 2) 'On affecte la valeur de la Cellule Ligne(Lgn) et Col =2
    Tablo(3, x) = .Cells(Lgn, 3) ' Col=3
    Tablo(4, x) = .Cells(Lgn, 4) ' Etc
    Tablo(5, x) = .Cells(Lgn, 5) ' Etc
    Tablo(6, x) = .Cells(Lgn, 6) ' Etc
    Tablo(7, x) = .Cells(Lgn, 7) ' Etc
    Tablo(8, x) = .Cells(Lgn, 8) ' Etc
    Tablo(9, x) = .Cells(Lgn, 9) ' Etc jusqu'a Col=9
  Next
End With
With UserForm1
 With .ListBox2
      .ColumnCount = 9 'Nombre de colonne de la ListBox
      .ColumnWidths = "47,47;47;47;47;47;47;47;47" 'Largeur des Colonnes Visibles
      .Clear 'On efface la ListBox avant de coller le tableau<---------------Ici
      .Column = Tablo 'On colle le tableau des vleurs dans la ListBox via la methode Colonne ou List
 End With
End With  
End Sub

jean marie

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

Tophe2

XLDnaute Impliqué

Pièces jointes

Tophe2

XLDnaute Impliqué

Tophe2

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Tophe2

XLDnaute Impliqué

Tophe2

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Tophe2

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

Tophe2

XLDnaute Impliqué

Tophe2

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Tophe2

XLDnaute Impliqué

Pièces jointes

ChTi160

XLDnaute Barbatruc

Discussions similaires