XL 2016 chercher valeur dans une ListBox

[marc.gilliand]

Bonjour,
j'ai ce bout de code :
Private Sub TextBox1_Change()

Application.ScreenUpdating = False

' Range("A2:A24").Interior.ColorIndex = 2
ListBox1.Clear

If TextBox1 <> "" Then
For ligne = 2 To 24
If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
Cells(ligne, 1).Interior.ColorIndex = 43
ListBox1.AddItem Cells(ligne, 1)
End If
Next
End If

End Sub

j'aimerai que dans mon UF, Xl me remonte toutes les valeurs. Lorsque je taperai P, il me remonterait que les types de pièce commencant par P et ainsi de suite.....

 

[marc.gilliand]

@marc.gilliand

ajout : ce serait mieux aussi que tu mettes ton code VBA entre balises de code ; et aussi que tu joignes un fichier (sans données confidentielles) au lieu d'une image png ! et pas d'image jpg non plus ! comme tu es Junior avec 54 messages, tu devrais déjà le savoir ! (on ne devrait pas avoir à te le dire !)​

soan

Je ne peux pas envoyer de fichier, car il est trop lourd. Et à ce moment du projet je ne peux pas l'alléger. Alors comment faire ?

 

[soan]

@marc.gilliand : essaye de zipper ton fichier.

 

[marc.gilliand]

Déjà fait. 1.4 MB

 

[marc.gilliand]

@marc.gilliand

ah, ben dans c'cas c'est fichu : la taille maxi est 1 Mo, et la Charte du site XLD interdit de mettre un fichier sur un site externe de partage de fichiers comme mon-partage.fr ou cjoint.com ! ​

soan

et avec juste le Userform, c'est possible de m'aider ?

 

[job75]

Bonjour marc.gilliand, soan,

C'est pourtant simple, allégez votre fichier en conservant seulement :

- la base de données avec une centaine de lignes sans données confidentielles

- l'UserForm.

A+

 

[job75]

Et à ce moment du projet je ne peux pas l'alléger. Alors comment faire ?

Allons ne dites pas n'importe quoi, vous pouvez toujours alléger une copie du fichier, comme je l'ai indiqué.

 

[marc.gilliand]

.ch est pour la suisse : ça c'est réel ; si bluewin est un vrai serveur suisse et pas un serveur fictif, l'email est réel, donc confidentiel ➯ il ne doit pas être mis sur le forum ! Loi européenne RGPD !​

soan

voilà le fichier allégé. J'espère que vous allez pouvoir m'aider. L'userform en question est le N° 2. Et votre réponse à mon post de jeudi à 10h26. Merci d'avance

 

[job75]

Merci mais c'est une usine à gaz et vous ne donnez pas le mode d'emploi.

Quelle feuille contient la base de données et sur quel bouton faut-il cliquer pour ouvrir l'UserForm ?

 

[marc.gilliand]

Merci mais c'est une usine à gaz et vous ne donnez pas le mode d'emploi.

Quelle feuille contient la base de données et sur quel bouton faut-il cliquer pour ouvrir l'UserForm ?

la base de donnée est la feuille "Suivi des paiements" et pour accéder à l'UF2, ouvrir via VBA

 

[soan]

@marc.gilliand

la base de donnée est la feuille "Suivi des paiements" et pour accéder à l'UF2, ouvrir via VBA

j'ai téléchargé le fichier de ton post #8, et :

soan

 

[marc.gilliand]

@marc.gilliand

Regarde la pièce jointe 1106380



j'ai téléchargé le fichier de ton post #8, et :

Regarde la pièce jointe 1106381

soan

Je crois que je vais demander à quelqun ce petit service. Merci quand même. Et belle soirée.

 

[job75]

Je crois que je vais demander à quelqun ce petit service. Merci quand même. Et belle soirée.

Demandez mais vous n'aurez guère de réponses puisque vous ne nous dites pas où est le problème.