VBA et rechercheV sur deux classeurs
Bonjour.
J'ai besoin de votre aide pour implémenter la fonction vLookup ou rechercheV en VBA avec deux classeurs distincts.
Les deux classeurs contiennent des numéros, symbolisant théoriquement les actions à mettre en place (en colonne A) et en colonne B, leur état d'avancement : rien, en cours ou terminé.
Le classeur "Action1" représente l'avancement à une date D. Le classeur "Action2" représente l'avancement à une date ultérieure par exemple D+7.
Je veux mettre une formule dans le classeur " Action2" en colonne C ressemblant à ça:
=vlookup(1;Classeur Action 1 "tous les données de la table DYNAMIQUE (sauf en-tête);2;FAUX)
Il faut que le code s'adapte aux nombres de lignes variables. De plus le classeur "Action1" change à chaque fois. Il faudrait donc que l'utilisateur puisse choisir lui même le classeur "Action1" sur lequel on veut faire le vlookup.
Merci d'avance de votre réponse.
Bon week-end.
Bonjour,
J'ai beau essayer de comprendre, mais rien à faire,
Un exemple précis serait le bienvenue.
Salut Misterno.
Dans le classeur "Action2", j'ai rajouté dans la colonne C, la formule que je veux automatiser sous VBA.
C'est plus clair ou veux tu encore plus de détails ?
Bonjour Banzai64.
J'ai regardé ton code et il semble correspondre à ce que je veux, ce qui est parfait.
Comme j'ai essayé de comprendre, j'ai une question:
LaPlage = Range("A2:B" & Range("B" & Rows.Count).End(xlUp).Row).Address(ReferenceStyle:=xlR1C1, _
RowAbsolute:=True, _
ColumnAbsolute:=True)J'ai vu ton commentaire sur cette ligne et je voulais juste savoir à quoi correspond précisément:
ReferenceStyle:=xlR1C1, RowAbsolute:=True, ColumnAbsolute:=True
Je vais adapter ce code à ma macro beaucoup plus grosse et je te tiens au courant.
Bonjour
Pour une explication plus complète que je ne saurai te donner, à part que c'est pour dire que c'est pour une notation style Rows Columns avec des références absolues ($)
le mieux tu positionnes le curseur sur le mot ReferenceStyle et du doigt (index droit) tu appuies sur la touche F1 et là miracle (non je déc...e) l'aide de VBA apparait devant tes yeux ébahis
LaPlage = Range("A2:B" & Range("B" & Rows.Count).End(xlUp).Row).Address(ReferenceStyle:=xlR1C1, _
RowAbsolute:=True, _
ColumnAbsolute:=True)Bonne journée
Ok merci.
Je note ton conseil qui sera très utile par la suite.
Par contre, il s'avère que pour adapter le code à ma grosse macro, c'est un peu plus la galère.
Je vais essayer tous seul comme un grand et si j'y arrive pas je reviens sur le post.
En tout cas je te tiens au courant.
Rebonjour tous le monde.
J'ai réussi à adapter le vlookup à ma macro.
Je vous remercie beaucoup de votre aide et pense que je vais revenir dans pas longtemps sur ce forum lol.
Bon week-end.