Astuces Excel
  1. Astuces Excel
  3. Excel VBA Utilisation de la valeur de la cellule dans la formule Vlookup
Intereting Posts
Requête Excel concernant les instructions IF Appeler un classur ouvert dans VBA Excel 2013 copy le formatting conditionnel dans toutes les cellules d'une colonne en hausse Les caractères japonais ne s'affichent pas correctement dans ReadOnlySharedSsortingngsTable Comment planifier l'import de données depuis Excel vers le server sql? Impossible de find un projet ou une bibliothèque, faire reference avec FileSystemObject avec Excel VBA sur Mac Atsortingbuer une valeur à la list Application à time Comment mettre en évidence toutes les occurrences d'une sous-string spécifique dans une cellule? Impossible d'afficher l'onglet sur le champ suivant sur le formulaire user Avantages et inconvénients de VSTO vs Excel-DNA? Utilisez Excel pour les calculs dans l'application Web Graphique personnalisé en excel, la valeur x est toujours 100% et y est inférieur ou supérieur à, montrant que le pourcentage Modification du format de text jusqu'à la date de réouverture du file TSV Excel regex match et returnner plusieurs references dans la formule

Excel VBA Utilisation de la valeur de la cellule dans la formule Vlookup

J'essaie de créer un vlookup sur une feuille de calcul qui a le même nom que la valeur de la cellule dans ma feuille active.

J'ai créé la pensée suivante, je pourrais utiliser le 'str' dans ma formule vlookup, mais j'obtiens 'Erreur d'exécution' 1004 ': erreur définie par l'application ou définie par l'object' 

Sub copy() Dim LastRow As Long Dim str As Ssortingng str = Cells(1, 5).Value With Sheets("Overview") LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row With .Range("E2:E" & LastRow) .Formula = "=VLOOKUP(B2, & str &!B:F,5,FALSE)" End With End With End Sub

Quelqu'un peut-il voir ce que je fais mal?

Vous avez défini str dans VBA, mais vous l'avez référé dans la formule sans fermer les guillemets, essayez ceci: 

 Sub copy() Dim LastRow As Long Dim str As Ssortingng str = Cells(1, 5).Value With Sheets("Overview") LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row With .Range("E2:E" & LastRow) .Formula = "=VLOOKUP(B2," & str & "!B:F,5,FALSE)" End With End With End Sub