Listebox selectif

bonjour

dans on listbox j'ai le code ci-joint

Private Sub ListBox2_Click()
Dim J As Long
For J = 8 To .Range("D" & Rows.Count).End(xlUp).Row
      If .Range("D" & J) <> "" Then Me.ListBox2.AddItem .Range("D" & J)
    Next J
  End With

End Sub

le code fonctionne bien, mais ce que je voudrais, c'est que dans la colonne D j'ai principalement des case remplis avec des chiffres, et quelques unes avec des lettres.

pourriez vous m'aider a faire le même code mais qui fait apparaitre que les chiffres!!

merci d'avance

Bonsoir,

1. Il manque un With quelque chose pour que votre code fonctionne...

2. En rajoutant un

if isnumeric(.range("d" & j))

Cdt,

Darzou

merci pour la réponse rapide

c'est vrais qu'il manque un with, ( j'ai copié/colé juste avant)

mais.... le...code que tu m'a donné je l'insére dans quel endroit

merci


merci pour la reponce rapide

c'est vrais qu'il manque un with, ( j'ai copié/colé juste avant)

mais.... le...code que tu m'a donné je l'incere dans quel endroit

merci

Private Sub ListBox2_Click()
Dim J As Long
  with quelquechose
    For J = 8 To .Range("D" & Rows.Count).End(xlUp).Row
      If .Range("D" & J) <> "" and isnumeric(.range("d" & j)) Then Me.ListBox2.AddItem .Range("D" & J)
    Next J
  End With
End Sub

Cdt,

Darzou

re

malheureusement ça ne fonctionne pas

le listbox met les case en chiffres et les cases en lettres

!!!


re

malheuresement ca ne fonctionne pas

le listbox met les case en chiffres et les cases en lettres

!!!

Sans fichier, je n'irai pas plus loin...

re

ça se passe dans la listbox2

je voudrais qu'elle ne m'affiche que les case en chiffres

merci

16inventaire-v-16.xlsm (130.63 Ko)

bonsoir,

je te conseille de regarder aussi ta procédure initlistbox.

Me.ListBox2.Clear

A mettre avant le remplissage de la listbox.

Cdt,

Darzou

bonjour

merci DARZOU, merci H2so4

le problème est toujours le même, et je bloc. si quelqu'un peu m'aider

merci d'avance

L'évènement Listbox_Click dans lequel se trouve votre sub n'est peut-être pas l'évènement approprié.

re

c'est sure que je me goure quelque part!!

je coule

merci pour l'aide

rebonsoir,

comme déja signalé auparavant, regarde ta procédure initlistbox. tu y remplis aussi listbox2, et tu dois là aussi mettre les instructions pour ne pas prendre tout ce qui n'est pas numérique.

If .Range("D" & J) <> "" And IsNumeric(.Range("D" & J)) And .Range("D" & J) Like Me.TextBox9 & "*" Then Me.ListBox2.AddItem .Range("D" & J)

merci

le principe de la non apparence des case en lettre fonctionne

mais ce que je n'arrive pas a faire c'est que maintenant les 2 listebox sont liées.

y a t il un moyen de faire ça indépendamment l'une de l'autre???

merci

BOnjour

je ne trouvez pas de solution

si quelqu'un peu m'aider

merci

bonjour

je n'arrive pas a trouver la solution!!!

de l'aide

merci

Bonsoir

Je ne sais pas si j'ai compris la question

A tout hasard

Bonjour BANZAI

comme a chaque fois, je trouve mon bonheur avec toi

merci énormément

ça fonctionne


re BANZAI

je ne voudrais pas abuser, mais je ne sait pas pourquoi le bouton CommandButton3_Click ne fonctionnepas ( ca ne fonctionnais pas avant non plus)

???

merci

Bonsoir

Utilité de ce bouton ?

La recherche se fait dynamiquement lors de la modification du textbox9

re

la recherche se fait dynamique, oui, mais n’empêche que je n'ai aucune information concernant le N° de châssis cherché.

je ne sait pas pourquoi je n'y arrive pas, ( pourtant j'ai bien fait pour les autres

dans ce cas quand je clic sur le bouton, je devrait avoir les résultats ci dessous

Me.TextBox10 = Cells(J, 7)

Me.TextBox11 = Cells(J, 5)

Me.TextBox12 = Cells(J, 6)

ou est ce qu'elle est la faille

merci pour ton aide précieuse

PS: j'aimerais que tu me réponde si possible) en code, comme ça j'apprend au fur et à mesure

Rechercher des sujets similaires à "listebox selectif"