Discussion :

[nacereddine.mourad]

Bonjour et merci d’avance pour ce forum

Information : cliqué sur le bouton « Chercher le plan du code » dans la feuille P associer arret
Objectif : afficher la colonne B et D dans ListBox2

Ce code alimente la ListBox2 en cherchons le mot dans toute la feuille (fonctionne très bien), mais je n’arrive pas à afficher les colonnes B et D

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
33
34
Private Sub TextBox2_Change()
 
Dim Prem As String
Dim c As Range
 
With Me.ListBox2
    .Clear
    .ColumnCount = 2
    .BoundColumn = 2
    .ColumnWidths = "100;100"
End With
 
If Me.TextBox2 <> "" Then
    With Worksheets("P associer arret").UsedRange
        Set c = .Find(Me.TextBox2, LookIn:=xlValues, lookat:=xlPart)
        If Not c Is Nothing Then
            Prem = c.Address
            Do
                With Me.ListBox2
                    .AddItem c.Row
                    .List(.ListCount - 1, 1) = c.Offset(, 4 - c.Column)
 
                End With
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Prem
        End If
    End With
    '...
 
End If
 
ListBox2 = Null
 
End Sub

Merci encore

[parmi]

Bonjour,

Et si tu enlevais le c.row ?

Code :

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

1
2
3
4
5
                With Me.ListBox2
                    .AddItem                  'c.Row  <<<<<
                    .List(.ListCount - 1, 0) = c.Offset(, 3 - c.Column)  'pas certain de ces valeurs à inscrire...
                    .List(.ListCount - 1, 1) = c.Offset(, 4 - c.Column) 
                End With

[nacereddine.mourad]

merci parmi

modification du code de parmi pour afficher plusieurs colonnes

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
33
Dim Prem As String
Dim c As Range
 
With Me.ListBox2
    .Clear
    .ColumnCount = 3
    .BoundColumn = 3
    .ColumnWidths = "250;180;500"
End With
 
If Me.TextBox2 <> "" Then
    With Worksheets("P associer arret").UsedRange
        Set c = .Find(Me.TextBox2, LookIn:=xlValues, lookat:=xlPart)
        If Not c Is Nothing Then
            Prem = c.Address
            Do
                With Me.ListBox2
                    .AddItem                  'c.Row  <<<<<
                    .List(.ListCount - 1, 0) = c.Offset(, 2 - c.Column)
                    .List(.ListCount - 1, 1) = c.Offset(, 4 - c.Column)
                    .List(.ListCount - 1, 2) = c.Offset(, 5 - c.Column)
 
                End With
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Prem
        End If
    End With
    '...
 End If
 
ListBox2 = Null
 
End Sub

L’anomalie est quand je veux aller à la ligne de litem sélectionné sa donne l’erreur d’exécution ‘13’
Incompatibilité de type sur la 3ém ligne

Code :

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

1
2
3
4
5
If ListBox2.ListIndex <> -1 Then
Sheets("P associer arret").Activate
Sheets("P associer arret").Rows(Me.ListBox2.List(Me.ListBox2.ListIndex)).Activate
Unload Me
End If

merci

[parmi]

Comme ta listbox est chargée sous conditions, la ligne de la listbox ne correspond pas aux lignes de la feuille.
Il te faut utiliser Find() pour trouver l'item dans la feuille ou encore faire une boucle et vérifier les valeurs jusqu'à trouver la bonne ligne.