XL 2013 Un p'tit coup de main sur un vba

[greglewotan]

Bonsoir,

je suis en galère, n'étant pas très doué sur VBA, j'ai besoin de votre aide. En effet je lutte avec acharnement .
J'ai créer un userform me permettant d'effectuer quelques requêtes simples cependant il me reste quelques détails à régler, auriez vous l'amabilité de m'aider.
Dans le fichier joint, j'ai quelques soucis, en effet
- Dans mes listes box la molette de souris ne fonctionne pas, j'ai bien trouvé quelques codes mais je n'arrive pas à les intégrer. Je cherche également a créer une box de recherche "intuitive" ou les résultats s'affichent progressivement au fur et à mesure dans la grande liste box.
- Je souhaiterai pouvoir rajouter des commentaires en K, je n'arrive pas à créer la box..
merci de votre aide et/ou de vos conseils.

 

[Compte Supprimé 979]

Bonjour

je suis en galère, n'étant pas très doué sur VBA, j'ai besoin de votre aide. En effet je lutte avec acharnement .

Et bien alors pourquoi en utiliser

On peut souvent faire pleins de choses sans utiliser VBA

 

[youky(BJ)]

Bonjour,
Voici un code à compléter si besoin pour l'instant je mets que 3 colonnes
Je recherche que sur les 3 premières colonnes aussi
Bruno

Private Sub TextBoxRech1_Change()
Me.ListBox1.Clear
If Me.TextBoxRech1 = "" Then Exit Sub
k = 0
With Feuil3.Range("A2:C" & Feuil3.[B65000].End(3).Row)
Set c = .Find(TextBoxRech1.Text, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If lig <> c.Row Then
ListBox1.AddItem Feuil3.Cells(c.Row, 1)
ListBox1.List(k, 1) = Feuil3.Cells(c.Row, 2)
ListBox1.List(k, 2) = Feuil3.Cells(c.Row, 3)
'ici la suite si besoin

k = k + 1
lig = c.Row
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

 

[greglewotan]

Bonjour


Et bien alors pourquoi en utiliser

On peut souvent faire pleins de choses sans utiliser VBA

Bonjour,

il s'agit de créer un interface pour des utilisateurs qui ne maitrise pas excel
merci

 

[greglewotan]

Bonjour,
Voici un code à compléter si besoin pour l'instant je mets que 3 colonnes
Je recherche que sur les 3 premières colonnes aussi
Bruno

Private Sub TextBoxRech1_Change()
Me.ListBox1.Clear
If Me.TextBoxRech1 = "" Then Exit Sub
k = 0
With Feuil3.Range("A2:C" & Feuil3.[B65000].End(3).Row)
Set c = .Find(TextBoxRech1.Text, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If lig <> c.Row Then
ListBox1.AddItem Feuil3.Cells(c.Row, 1)
ListBox1.List(k, 1) = Feuil3.Cells(c.Row, 2)
ListBox1.List(k, 2) = Feuil3.Cells(c.Row, 3)
'ici la suite si besoin

k = k + 1
lig = c.Row
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

Bonjour,
Voici un code à compléter si besoin pour l'instant je mets que 3 colonnes
Je recherche que sur les 3 premières colonnes aussi
Bruno

Private Sub TextBoxRech1_Change()
Me.ListBox1.Clear
If Me.TextBoxRech1 = "" Then Exit Sub
k = 0
With Feuil3.Range("A2:C" & Feuil3.[B65000].End(3).Row)
Set c = .Find(TextBoxRech1.Text, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If lig <> c.Row Then
ListBox1.AddItem Feuil3.Cells(c.Row, 1)
ListBox1.List(k, 1) = Feuil3.Cells(c.Row, 2)
ListBox1.List(k, 2) = Feuil3.Cells(c.Row, 3)
'ici la suite si besoin

k = k + 1
lig = c.Row
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

Bonjour,
merci d'avoir pris le temps de me répondre, votre solution fonctionne, merci encore.
Je suis encore avec un 2 problèmes, le scroll de la souris dans mes box ne fonctionnent pas, auriez vous une idée ?

 

[youky(BJ)]

J'avais cela mais ne fonctionne plus sur les nouvelles versions, donc le scroll est à l'eau.
Pour aider, déjà mettre la propriété des combobox ListRows=39 au lieu de 8
Et aussi utiliser les flèches haut et bas et rapides si présentes.
Bruno

EDIT
voir sur ce lien

https://www.excel-downloads.com/threads/scroll-dans-des-combobox.20029286/#post-20218868