Discussion :

[anthony14123]

Bonjour,
Voila j'ai un formulaire contenant des TextBox... Je voudrai en fonction de la valeur d'une première textbox, changer la valeur de la seconde. Les valeurs sont présentes dans une feuille nommé Listing.
J'obitens l'erreur '1004': Impossible de lire la propriété VlookUp de la classe WorksheetFunction.

Merci d'avance de votre aide.

Code :

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

1
2
3
4
5
6
 
Private Sub CB_actualiser_Click()
 
Me.Tb_nom_du_fournisseur.Value = Application.WorksheetFunction.VLookup(Me.Tb_code_fournisseur.Value, Worksheets("Listing").Range("A1:C13052"), 2, False)
 
End Sub

[EngueEngue]

Vire ton worksheetfunction: laisse ton application.vlookup

La formule semble correcte

[anthony14123]

Je viens de modifier cela.
Il me met désormais

Erreur d'exécution '-2147352571 (80020005)':
Impossible de définir la propriété Value. Type mismatch.

Cela ne peux pas venir du contenu trop long de ma cellule de la colonne 2?

[EngueEngue]

C'est quoi le contenu ?

[parmi]

Est-ce possible que le nom de ton onglet "Listing" contienne un espace ?
La formule semble correcte...

[anthony14123]

C'est une suite de chiffres, cela peut aller jusqu'à 10 chiffres.
Je viens de vérifier, il n'y a pas d'espace dans le nom de la feuille, je viens de regarder...

[EngueEngue]

Code :

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

Range("A1:C13052").value

essaie..

Peux tu nous filer ton classeur ? J'ai déjà rencontré des problèmes avec Vlookup, c'était souvent parce qu'il ne trouvait pas la data...

[anthony14123]

Je viens de modifier les données pour enlever certaines données... J'ai donc réduit au passage la taille de mes datas...
Merci d'avance

[EngueEngue]

Ton classeur est défectueux. Je n'arrive pas à résoudre l'erreur et j'ai plein d'erreurs sans raison. Il ne te reste plus qu'à le refaire. Tu peux contourner le problème en alimentant une combobox avec tes codes fournisseurs puis en cherchant la value du listindex dans la colonne 2

[anthony14123]

J'ai contourné le problème. Voici mon 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
19
20
21
22
23
24
25
26
27
Private Sub Cb_maison_Change()
    Application.ScreenUpdating = False
    Dim FindString As String
    Dim Rng As Range
    FindString = Me.Cb_maison.Value
    If Trim(FindString) <> "" Then
        With Sheets("Listing").Range("u:u")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
                ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
                Me.Tb_maison.Value = ActiveCell.Value
 
            Else
                Me.Tb_maison.Value = ""
            End If
        End With
    End If
    Feuil6.Select
    Application.ScreenUpdating = True
End Sub

[parmi]

Petite parenthèse bien que le sujet soit clos...

Évite les Select/Activate lorsque c'est possible. Ça ralentit souvent les macros pour rien.

Ce bout de code

Code :

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

1
2
3
4
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
                ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
                Me.Tb_maison.Value = ActiveCell.Value

devrait pouvoir devenir

Code :

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

1
2
            If Not Rng Is Nothing Then
                Me.Tb_maison.Value = Range("V" & Rng.Row).Value