Bonjour,
Je cherche à faire quelque chose de simple apparemment mais cela ne fonctionne pas et comme je ne suis pas un pro du VBA, je demande votre aide.
Je souhaite faire une rechercheV en VBA entre 2 classeurs.
Dans mon premier classeur j'entre le nom d'un salarié et je souhaite qu'il me renvoie la date d'embauche qui se trouve dans un second classeur. Que les 2 classeurs soient ouverts ne change rien. J'ajoute que je souhaite qu'il me retourne le résultat dans la cellule D15.
Donc voici mon code:
Mais j'ai l'erreur " Erreur d'exécution '9': L'indice n'appartient pas à la sélection ", que faire pour résoudre le problème ?
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 Sub Cherche() Dim retFind As String Dim f As Variant 'Dim source As Workbooks 'Set source = Workbooks.Open("C:\Users\Administrateur\Desktop\Documents VBA\personnel.xlsx") Range("D15").Select f = Application.VLookup(Sheets("C:\Users\Administrateur\Desktop\Documents VBA\[Avances.xlsx]Fichier").Range("A4"), Sheets("C:\Users\Administrateur\Desktop\Documents VBA\[Personnel.xlsx]Salaires").Range("A2:J1500"), 6, True) If IsError(f) Then retFind = "Element non trouvé" Else retFind = f End If End Sub
Merci d'avance pour votre aide.
Fred
Partager