Discussion :

[Nicolas_re]

Bonjour à tous !

Je m'excuse d'avance si cette question a déjà été posée. Je suis au tout début de mon apprentissage VBA et j'aurais besoin de votre aide.
J'ai pour but dans mon entreprise d'automatiser des RechercheV répétitifs.

J'explique donc mon problème :
J'ai 2 feuilles Excel contenant 2 tableaux et partageant un ID en commun.

J'aimerais pouvoir créer une macro en VBA (activable donc par un bouton), qui permettrait de remplir le tableau de la feuille 1 avec des informations de la feuille 2.

De plus, il faudrait que, si l'on vient à rajouter une colonne dans le fichier à remplir, l'opération se fasse toujours sans toucher au code. Il faudrait donc se servir du nom de la colonne pour l'identifier.

Dans un second temps, il faudrait pouvoir faire cette opération de RechercheV entre plusieurs fichiers Excel également (mais présents das le même dossier).

Je vous remercie d'avance pour votre aide !

Cordialement,

Nicolas

[Nicolas_re]

J'ai essayé cela mais j'obtiens une erreur :

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
Sub Test()

Dim SourceLastRow As Long
Dim OutputLastRow As Long
Dim fichierARemplir As Worksheet
Dim fichierBase As Worksheet

'Nom des feuilles
Set fichierARemplir = Worksheets("Feuil1")
Set fichierBase = Worksheets("Feuil2")

'Dernière ligne du fichier d'entrée
With fichierARemplir
    SourceLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With

With fichierBase
    'Détermine dernière ligne dans la colonne B
   OutputLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    .Range("B & SourceLastRow").Formula = _
   "=VLOOKUP(B2,'" & fichierBase & "'!$A$2:$B$" & OutputLastRow & ",2,0)"
End With


End Sub

"Erreur d'exécution 438 : Propriété ou méthode non gérée par cet objet".

Je n'arrive pas à savoir comment faire pour appliquer la formule pour récupérer les valeurs de la colonne de l'autre feuille sur toute ma colonne jusqu'à la dernière ligne...

Edit : j'arrive désormais à afficher uniquement des "0" dans ma colonne. Ca ne récupère pas les valeurs mais ça ne m'affiche plus d'erreurs :

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
Sub MakeFormulas()
 
Dim SourceLastRow As Long
Dim OutputLastRow As Long
Dim fichierARemplir As Worksheet
Dim fichierBase As Worksheet
 
'Nom des feuilles
Set fichierARemplir = Worksheets("Feuil1")
Set fichierBase = Worksheets("Feuil2")
 
'Dernière ligne du fichier d'entrée
With fichierBase
    SourceLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With
 
' MsgBox SourceLastRow
 
With fichierARemplir
    'Détermine dernière ligne dans la colonne B
   OutputLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    .Range("B2:B" & SourceLastRow).Formula = _
   "=VLOOKUP(B2,'" & fichierBase.Name & "'!$A$2:$B$" & OutputLastRow & ",2,0)"
End With
 
 
End Sub

Edit n°2 : Problème résolu ! Pour ceux que ça pourrait aider voici le 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
28
Sub MakeFormulas()
 
Dim SourceLastRow As Long
Dim OutputLastRow As Long
Dim fichierARemplir As Worksheet
Dim fichierBase As Worksheet
 
'Nom des feuilles
Set fichierARemplir = Worksheets("Feuil1")
Set fichierBase = Worksheets("Feuil2")
 
'Dernière ligne du fichier d'entrée
With fichierBase
    SourceLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With
 
' MsgBox SourceLastRow
 
With fichierARemplir
    'Détermine dernière ligne dans la colonne B
   OutputLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
 
    .Range("B2:B" & OutputLastRow).Formula = _
   "=VLOOKUP(A2,'" & fichierBase.Name & "'!$A$2:$B$" & SourceLastRow & ",2,0)"
End With
 
 
End Sub

J'avais mis le mauvais référentiel en commun dans la formule et avais inversé les 2 longueurs de colonnes. Il me reste plus qu'à trouver un moyen pour que je puisse réaliser cela même si je supprime/rajoute des colonnes.