Comparaison Listboxes multicolonne puis extraction

Version imprimable

Bonjour à tous nos valeureux confinés!

J'ai galéré toute la journée d'hier sur une problématique qui me semblait pourtant simple... (bon avec les enfants et leurs devoirs dans le salon, ça n'aide pas à se concentrer)...

Je souhaite comparer 2 listbox multicolonne aux contenus un peu différents:

Listbox 2 prends sa source dans un onglet "nomenclature" d'article et récupère les codes des pièces qui composent l'article + nom fournisseur et description de ces pièces.
Listbox 3 s'appuie sur les codes des pièces pour aller chercher de nouvelles informations dans un onglet "références"

une colonne est donc commune : les codes pièces en column1... je souhaiterai extraire la liste des pièces qui ne sont pas présentes dans l'onglet "références" et visualiser leur code, nom fournisseur et description dans une listbox 4.

puis éventuellement le renvoyer sous un onglet pour impression... mais je n'en suis pas encore là!

Voici d'où je pars, et je n'y arrive pas: la listbox4 demeure vide, ne me remonte que la première colonne ou 100 fois la dernière ligne! (nième tentative de variante... sans succès!)
Code:

1 2 3 4 5 6 7 8 'retrouve les références manquantes For v = 0 To ListBox2.ListCount - 1 If Me.ListBox2.Column(0, v) <> Me.ListBox3.Column(0, v) Then Me.ListBox4.AddItem Me.ListBox2.List(v, 0) Me.ListBox4.List(v, 1) = Me.ListBox2.List(v, 1) Me.ListBox4.List(v, 2) = Me.ListBox2.List(v, 2) End If Next v
cet essai bloque en erreur 381 à la ligne 4...

Help !!

Et accessoirement, une petite "colle"...

je remplis une série de textboxes depuis l'onglet "2" selon la sélection d'un item de ma combobox puis lance une recherche dans l'onglet "ICPE" selon ce qui a été renseigné en Textbox 60

Code:

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
35
'renseigner les champs des mentions de dangers et de leurs seuils et rubriques respectifs
For j = 1 To 40
Me.Controls("TextBox" & j).Value = ""
Next j
 
Dim Ligne As Long
 
   Set ws = Worksheets("2")
 
   Ligne = Me.ComboBox1.ListIndex + 4
 
    Me.TextBox1 = ws.Cells(Ligne, 11)
    Me.TextBox2 = ws.Cells(Ligne, 12)
    Me.TextBox3 = ws.Cells(Ligne, 13)
    Me.TextBox4 = ws.Cells(Ligne, 14)
    Me.TextBox5 = ws.Cells(Ligne, 15)
    Me.TextBox6 = ws.Cells(Ligne, 16)
    Me.TextBox7 = ws.Cells(Ligne, 17)
    Me.TextBox8 = ws.Cells(Ligne, 18)
    Me.TextBox9 = ws.Cells(Ligne, 19)
    Me.TextBox10 = ws.Cells(Ligne, 20)
    Me.TextBox50 = ws.Cells(Ligne, 50)
    Me.TextBox60 = ws.Cells(Ligne, 4)
 
 Dim nomcherche As String, Cellule As Variant
 
nomcherche = TextBox60.Value
 
With Worksheets("ICPE").Range("B1:B1400")
 
Set Cellule = .Find(nomcherche, LookIn:=xlValues)
    If Not Cellule Is Nothing Then
    TextBox70.Value = Left(Cellule.Offset(0, -1).Value, 4)
 End If
End With

tout fonctionne sauf la partie recherche (séparément la macro fonctionne)... pourquoi ne prends elle pas en compte la valeur de ma textbox60?

15/04/2020, 11h11
Patrice740

Bonjour

Citation:

Envoyé par IronHeavy

Et accessoirement, une petite "colle"...

Qu'est-ce que ça donne avec :

Code:

nomcherche = ws.Cells(Ligne, 4).Value
15/04/2020, 11h27
IronHeavy

Bonjour Patrice740,

Je viens d'essayer, ça n'agit pas non plus!
15/04/2020, 11h46
Patrice740

Citation:

Envoyé par IronHeavy

Je viens d'essayer, ça n'agit pas non plus!

2 possibilités :
- tu cherches pas au bon endroit
- la valeur cherchée n'est pas présente (elle n'est pas rigoureusement identique), attention au type de valeur, aux caractères non visibles ...

c'est à devenir fou!

le même code fonctionne parfaitement dans une autre formulaire...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub TextBox2_Change() Dim nomcherche As String, Cellule As Variant nomcherche = TextBox2.Value With Worksheets("ICPE").Range("B1:B1400") Set Cellule = .Find(nomcherche, LookIn:=xlValues) If Not Cellule Is Nothing Then TextBox8.Value = Left(Cellule.Offset(0, -1).Value, 4) End If End With End Sub
EDIT: par acquis de conscience, j'ai fermé et rouvert le fichier... maintenant ça fonctionne???

Mais une seule fois... si je retouche à la combobox, la recherche ne s'effectue de nouveau plus, je suis forcé de fermer puis rouvrir le fichier pour que cela redevienne fonctionnel!

la fiabilité du bousin m'inquiète... comment consolider cela?