Discussion :

[NEC14]

Bonjour à tous,

Je vous souhaite une très bonne année 2018, surtout une très bonne santé.
Voici mon problème : Dans une feuille de calcul j'ai inséré une TextBox ainsi qu'une Listbox.
La TextBox me permet de rechercher du texte dans un tableau situé dans la même feuille.
Dans la ListBox s'affiche le résultat de ma recherche.

Maintenant, ce que je cherche à faire : Je clique sur une donnée de ma ListBox, le curseur se positionne sur la ligne de la donnée dans le tableau.

Voici mon début de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Option Compare Text
Private Sub TextBox1_Change()
    Application.ScreenUpdating = False
 
    Range("F7:F5065").Interior.ColorIndex = 2
    ListBox1.Clear
 
    If TextBox1 <> "" Then
        For Ligne = 7 To 5065
            If UCase(Cells(Ligne, 6)) Like "*" & UCase(TextBox1) & "*" Then
                Cells(Ligne, 6).Interior.ColorIndex = 43
                ListBox1.AddItem Cells(Ligne, 6)
                ListBox1.AddItem Cells(Ligne, 8)
            End If
        Next
   End If
End Sub

Merci par avance pour votre aide

[Phil Free]

Bonjour,

meilleurs vœux à toi aussi

concernant ce poste je serais tenté de dire : oui et donc ....

c'est bien tu nous exposes ton objectif mais quel est le problème ?
Que fais et/ou ne fait pas ton code ?
Quel message d'erreur ?
Sur quel point es-tu bloqué ?

etc

Philippe

[NEC14]

Bonjour Philippe,

Merci pour ta participation. En fait je n'arrive pas ajouter le bout de code me permettant de sélectionner la ligne où se trouve la donnée.
Je sais qu'il faut que celui-ci soit dans la ListBox mais je ne parvient pas à trouver la solution. Je continue de chercher de mon côté

[pijaku]

Bonjour,

Une ListBox peut être multicolonnes.
On peut même "masquer" une des colonnes.
Pour cela, modifier les propriétés ColumnCount et ColumnWidths.

Il te suffit donc, au remplissage de ta listbox de mettre le numéro de ligne dans la seconde colonne (masquée) de ta listbox.
Puis d'utiliser l'événement Private Sub ListBox1_Click() pour "sélectionner" la ligne stockée dans cette seconde colonne.

EDIT : c'est une façon de faire.
Une autre consiste à utiliser la méthode Find.
Cf aide interne VBA à la rubrique : Range.Find, méthode

[NEC14]

J'ai tenté de faire ça mais j'ai un message d'erreur au niveau de "Ligne" - Erreur de compilation, Sub ou Fonction non définie
Que n'ai-je pas fait correctement ?
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub ListBox1_Click()
        Dim cherche As String
cherche = ListBox1.Value
Set maplage = Sheets("GENERAL").Range("F") & Ligne(1) & ":F" & Derligne
Set a = Cells.Find(What:=cherche, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
Msbox = a.Row

End Sub

Les 2 codes combinés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Option Compare Text
 
Public Derligne As Long
Public a As Range
 
Private Sub ListBox1_Click()
Dim cherche As String
cherche = ListBox1.Value
Set maplage = Sheets("GENERAL").Range("F") & Ligne(1) & ":F" & Derligne
Set a = Cells.Find(What:=cherche, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
Msbox = a.Row
 
End Sub
 
Private Sub TextBox1_Change()
    Application.ScreenUpdating = False
 
    Range("F7:F5065").Interior.ColorIndex = 2
    ListBox1.Clear
 
    If TextBox1 <> "" Then
        For Ligne = 7 To 5065
            If UCase(Cells(Ligne, 6)) Like "*" & UCase(TextBox1) & "*" Then
                Cells(Ligne, 6).Interior.ColorIndex = 43
                ListBox1.AddItem Cells(Ligne, 6)
                ListBox1.AddItem Cells(Ligne, 8)
            End If
        Next
 
   End If
End Sub

[NEC14]

J'ai fait une première modification sur cette ligne :

Avant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set maplage = Sheets("GENERAL").Range("F") & Ligne(1) & ":F" & Derligne

Après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set maplage = Sheets("GENERAL").Range("F" & Ligne(6) & ":F" & Derligne)

Mais j'ai un message d'erreur sur Ligne(6) - "Incompatibilité de types"