Astuces Excel
  1. Astuces Excel
  3. Vlookup dans Excel Macro
Intereting Posts
dokuwiki; afficher dynamicment des informations à partir du file Excel? Comment convertir la valeur de la cellule numérique Excel en mots Comment adapter la gamme de calomn calculé à la taille de la table pivot dans Excel 2013 Erreur d'exécution '1004': la méthode 'FormulaR1C1' de l'object 'Range' a échoué Passage entre Excel feuilles dans Apache POI Excel crée un tampon de date lorsqu'une cellule est mise à jour Critère de cellule SUMIF La macro ne fonctionne pas après le changement de path Excel VBA ignore l'erreur Comment pousser une opération sur la stack d'annulation Excel? Erreur de débordement Excel VBA lors de l'exécution d'un process stocké SQL Server avec un paramètre Int Excel VBA search les valeurs dans une autre feuille et copyz-les Déprotéger la feuille de travail partagée OU cacher certains contenus dans une feuille de travail partagée Excel – Comment append une valeur après 3ème / valeur définie pour la cellule Excel dans l'exception C ++ throw 0x800A03EC

Vlookup dans Excel Macro

J'ai créé un formulaire dans Excel qui prend les commentaires des users et enregistre le même dans Sheet2. J'ai une combobox nommée Compte dont les users sélectionnent le nom du count. Cependant, chaque count aura un identifiant unique associé à celui-ci. Je ne veux pas exposer cet Id aux users finaux mais en même time je souhaite que l'Id correspondant au Compte sélectionné soit rempli en feuille2.

J'essaie de faire un Vlookup pour searchr l'Id du count sélectionné.

J'ai configuré les valeurs de count dans Sheet3. 

 Exemple: 
 Colonne A Colonne B
 Compte1 Id12345
 Compte2 Id23456
 Account3 Id34567

Mon code dans la macro Excel ressemble à quelque chose comme ci-dessous. 

Private Sub Save_Click() Dim RowCount As Long Dim myValue as Ssortingng RowCount = Worksheets("Sheet2").Range("A1").CurrentRegion.Rows.Count With Worksheets("Sheet2").Range("A1") .Offset(RowCount, 0).Value = Me.Account.Value myValue = WorksheetFunction.VLookup(Range("A2"), Range("Sheet3!G1:G14"), 2, False)

Je ne sais pas pourquoi il ne fonctionne pas. Toute suggestion sera grandement appréciée.

Merci,

Essaye ça: 

 Private Sub Save_Click() Dim RowCount As Long Dim myValue As Variant Dim Sh2 As Worksheet, Sh2 As Worksheet Dim RefRange As Range With ThisWorkbook Set Sh2 = .Sheets("Sheet2") Set Sh3 = .Sheets("Sheet3") End With RowCount = Sh2.Range("A1").CurrentRegion.Rows.Count Set RefRange = Sh3.Range("G1:H14") '--Change as necessary. Sh2.Range("A1").Offset(RowCount, 0).Value = Me.Account.Value On Error GoTo myValueErrHandle myValue = WorksheetFunction.VLookup(Sh2.Range("A2").Value, RefRange, 2, False) '--More code, etc etc. myValueErrHandle: If Err.Number = 1004 Then MsgBox "No match using VLOOKUP." End If Exit Sub End Sub

Dans la mesure du possible, qualifiez tout ce que vous pouvez et utilisez un code succinct mais significatif. N'utilisez pas Range("A2") si vous voulez ce qui s'y trouve. Utilisez .Value car c'est la meilleure pratique. Pour autant que je voie, il n'y a rien de mal. J'ai également ajouté une Error 1004 gestion Error 1004 sans correspondance. Enfin, notez que j'ai changé mon myValue en Variant , juste pour couvrir les bases.

Dites nous si cela fonctionne.

essaye ça? : Désolé trop longtime pour mettre en commentaire: 

 With Worksheets("Sheet2") .Range("A1").Offset(RowCount, 0).Value = Me.Account.Value myValue = WorksheetFunction.VLookup(.Range("A2"), Sheeet3.Range("G1:H14"), 2, False)" End With

Juste peut-être, alors essayez-le. 

 Sub Lookup() Dim Emp As Ssortingng Dim Lookup_Range As Range Dim Age As Single Emp = "Jitu" Set Lookup_Range = Range("A1:B8") Age = Application.WorksheetFunction.VLookup(Emp, Lookup_Range, 2, False) MsgBox "Age is : $ " & Age End Sub

Tableau: Emp Age bibhash 22 rahul 22 abhisek 23 jitu 21 ans sujit 24 tinku 25 rudra 26