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

 

[Tophe2]

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]

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]

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]

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]

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]

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]

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]

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]

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

 

[ChTi160]

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

 

[Tophe2]

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]

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]

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

 

[Tophe2]

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]

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

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