Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Vlookup et variable

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bernard34

XLDnaute Nouveau
Bonsoir à tous,

J'essaie de remplacer ceci:

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Fichier2!R5C1:R31000C14,5)"


par cela

.Range("BI4").Value = WorksheetFunction.VLookup(.Range("BI4").Value, Sheets("Fichier2").Range("A5:C & derliA"), 2, False)

mais cela ne fonctionne pas.

En fait dans la formule je veux remplacer le R31000 par derliA

Merci de vos conseils

Bernard
 
Re : Vlookup et variable

bonjour Bernard

une premiere correction (difficile de faire des tests)

.Range("BI4").Value = WorksheetFunction.VLookup(.Range("BI4").Value, Sheets("Fichier2").Range("A5:C" & derliA), 2, False)
 
Re : Vlookup et variable

Bonsoir Pierre-Jean et merci de ta prompte réponse!

Avec ceci,

.Range("BI4").Value = WorksheetFunction.VLookup(.Range("BI4").Value, Sheets("Fichier2").Range("A5:N" & derliA), 2, False)



j'obtiens le message "référence incorrecte ou non qualifiée."


J'ai essayé ceci:

'déclaration de la variable
Dim maplage As Range
'initialisation de la variable
Set maplage = Range("A5:N" & derliA)

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Fichier2!maplage ,2)"


Mais il n'en veut pas non plus.

Merci de ton (votre intérêt)

Bernard
 
Re : Vlookup et variable

Re

teste:

Code:
Range("B14").FormulaLocal = "=RECHERCHEV(A14;Fichier2!A5:N" & derliA & ";2)"

le A14 correspond au RC1 de la version formulaRC1

Attention le . avant Range suppose un with anterieur dont tu ne parles pas
 
Re : Résolu: Vlookup et variable

Bonsoir le forum, Bonsoir Pierre Jean,

Voici ce que j'ai fait et cela fonctionne parfaitement:

derliA = Range("A65536").End(xlUp).Row
Range("BI4").FormulaLocal = "=RECHERCHEV($A4;Fichier2!$A$5:$N$" & derliA & ";2)"
Range("BJ4").FormulaLocal = "=RECHERCHEV($A4;Fichier2!$A$5:$N$" & derliA & ";3)"

Vraiment merci!

Bernard
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
724
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
998
P
Réponses
3
Affichages
528
J
  • Question Question
Réponses
2
Affichages
994
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…