Soucis dans le Code de ce Fichier

J

jp14

XLDnaute Barbatruc

• 23 Mars 2009

• #2

Re : Soucis dans le Code de ce Fichier

Bonsoir

C'est un jeu de piste.
A priori il faut modifier cette ligne

Col = 2 'nombres colonnes dans listbox

variable que l'on retrouve dans la ligne pour définir la plage nommé Rng

Code:

............
Set[COLOR="SeaGreen"] Rng[/COLOR] = .Range(.Cells(2, [COLOR="Red"]Col[/COLOR]), .Cells(DerLig, [COLOR="Red"]Col[/COLOR]))
................[COLOR="Blue"][/COLOR]

cette plage est utilisé pour alimenter "Mondico"

Code:

....................
For Each Cell In [COLOR="SeaGreen"]Rng[/COLOR]
        If Not MonDico.Exists(Cell.Value) Then [COLOR="Blue"]MonDico[/COLOR].Add Cell.Value, Cell.Value
.................

Mondico est utilisé pour remplir Combobox1

Code:

....................
    With [COLOR="DarkOrange"]ComboBox1[/COLOR]
    .Clear
   .List = [COLOR="Blue"]MonDico[/COLOR].Items 
................

Le combobox contient les données qui sont dans la colonne numéro 2, colonne spécifiée par le contenu de la variable col.
JP

 

Dernière édition: 24 Mars 2009

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 23 Mars 2009

• #3

Re : Soucis dans le Code de ce Fichier

Bonsoir voisin,
Fichier en PJ

Edit : Salut JP ! 🙂
A+
kjin

 

Pièces jointes

• vaucluse.zip

  28.5 KB · Affichages: 38
• vaucluse.zip

  28.5 KB · Affichages: 34
• vaucluse.zip

  28.5 KB · Affichages: 36

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 23 Mars 2009

• #4

Re : Soucis dans le Code de ce Fichier

Bonsoir,Jp14,Kjin

JP14,
J'ai rien compris a ton explication,désolé

Kjin,mon voisin
Je viens de faire fonctionner ton fichier, mais il y a des Bug
et il n'y a pas toutes les colonnes de datas1, qui s'affiche dans la ListBox


A+++++

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 23 Mars 2009

• #5

Re : Soucis dans le Code de ce Fichier

Re voisin,
Qu' as tu donc fait pour avoir des bugs parce que moi je ne les ai pas.
Parles tu de mon fichier ou de la copie sur le tien ?
J'ai pas toutes les colonnes ! ; j'ai fais comme demandé avec les colonnes B et G à J (il n'y a rien colonne K mais tu peux facilement la rajouter).Les colonnes sont formattées directement dans la fenêtre propriétés de la listbox.(NB colonnes et largeur)
Je n'ai fait que répondre à ta demande, donc je ne me suis pas préoccupé du reste, dans la mesure où tu n'indiques nul part comment tout ça doit fonctionner.
A+
kjin

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 23 Mars 2009

• #6

Re : Soucis dans le Code de ce Fichier

Re KJin

Oups ,erreur de ma part, je voulais dire Colonnes B,C,D,E,F,G,H,I,J

Voila la ligne qui Bug

Li = Sheets("datas1").Columns("A").Find(ListBox1.Value, LookIn:=xlValues, LookAt:=xlWhole).Row 'Me.ListBox1.ListIndex + 2

Cliquez pour agrandir...

A+++++

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 23 Mars 2009

• #7

Re : Soucis dans le Code de ce Fichier

Re,
Comme je te l'ai dit, je me suis contenté de répondre à ta demande : alim de la combo et de la listbox
Je t'avoue que le fichier est un peu décourageant (dito JP, c'est le bazar), d'autant que l'on ne comprend pas ce qu'il faut faire.
J'ai éliminé le bug, c'est déjà ça
A+
kjin

 

Pièces jointes

• vaucluse2.zip

  31.3 KB · Affichages: 27

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 23 Mars 2009

• #8

Re : Soucis dans le Code de ce Fichier

Re

Super merci,KJin

Je suis ok avec toi ,a savoir que le code est complexe
Pourtant je l'ai pris sur XLD
Mais je pense qu'il y a plus simple,
pour en arriver au même résultat
Mais ,bon, j'ai pas trouvé mieux pour arriver a ce que je voulais réaliser

Bonne soirée a tous
Cordialement

 

Vote positif 0 Vote négatif