XL 2010 Alimenter Listbox depuis fichier

ChTi160

XLDnaute Barbatruc

• 25 Juillet 2023

• #2

Bonsoir Hervé
J'espère que tu vas bien?
Peut-être en utilisant l'opérateur " Like "

VB:

If Sheets("GdA").Range(premier) Like "*" & TextBox1.Value &"*""

pourquoi n'utilises tu pas un tableau pour tes recherches ?
Bonne fin de Soirée.
Jean marie

 

Dernière édition: 25 Juillet 2023

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Juillet 2023

• #3

Bonjour.
Essayez :

VB:

Set c = Rng.Find(CDbl(Me.TextBox1.Value), LookIn:=xlValues)

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 25 Juillet 2023

• #4

Bonsoir Jean Marie
Non pas trop j'ai une "crève" depuis 8 jours .... ICI .... c'est le NNNNNORRD !!! gla gla pas vu depuis longtemps
sinon oui a va mieux , le code s'affiche ....mais pas le reste ??? pourtant je décale bien de +1 ?
Bon là je suis mort !!!

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 25 Juillet 2023

• #5

Re , Bonsoir aussi Bernard
Oui tout est mieux maintenant le code s'affiche mais pas le reste pourtant en passant en "pas à pas" je vois bien toutes les valeurs de l'Offset qui s'affectent à la List 0 , 1 , 2 , 3 mais rien dans l'écran ??
J'ai supprimé mes "Width" de col mais c'est pas çà
alors quoi ?
Bon la tête ne suit plus , bonne nuit à vous
et encore Merci

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 25 Juillet 2023

• #6

Re
Un exemple !
N'hésite pas si besoin .
Jean marie

 

Pièces jointes

• Main Chti160.xlsm

  27.1 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Juillet 2023

• #7

Bonjour à tous,

Dans le code de ChTi160 CDbl provoque un bug quand la TextBox est vide ou non numérique.

Donc remplacez :

VB:

If TabBDD(Lgn, 1) Like "*" & CDbl(Me.TextBox1.Value) & "*" Then

par :

VB:

If TabBDD(Lgn, 1) Like "*" & TextBox1 & "*" Then

A+

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 26 Juillet 2023

• #8

Bonjour tous
Salut Gérard , ok mais je revenu à 1ère méthode donc à sa 1ère syntaxe ( Like "*" & TextBox1 & "*" Then)
tout fonctionne bien
Encore merci Jean Marie & Bernard

 

Vote positif 0 Vote négatif