VBA : fonction lookup, spécification cellule
Fermé
Bonjour,
J'utilise une fonction lookup afin de rechercher une donnée et ensuite la ranger dans une cellule. Cependant de part le résultat d'un autre test, j'aimerai ranger la donnée sur différentes cellules. Je veux donc définir la cellule A1 de la fonction ci-dessous par une variable.
Range("A1").FormulaR1C1 = _
"=LOOKUP(10000,'\\SUN\.....
Merci pour vos réponses
J'utilise une fonction lookup afin de rechercher une donnée et ensuite la ranger dans une cellule. Cependant de part le résultat d'un autre test, j'aimerai ranger la donnée sur différentes cellules. Je veux donc définir la cellule A1 de la fonction ci-dessous par une variable.
Range("A1").FormulaR1C1 = _
"=LOOKUP(10000,'\\SUN\.....
Merci pour vos réponses
A voir également:
- VBA : fonction lookup, spécification cellule
- Excel compter cellule couleur sans vba - Guide
- Mkdir vba ✓ - Forum VB / VBA
- L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
- Autofill vba ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
1 réponse
Ivan-hoe
Messages postés
433
Date d'inscription
dimanche 17 février 2008
Statut
Membre
Dernière intervention
17 octobre 2008
309
30 juin 2008 à 11:16
30 juin 2008 à 11:16
Bonjour,
La cellule dans laquelle tu veux écrire ta formule est donc variable (en fonction d'un test) : on va donc définir une variable de type Range, qui représentera ta cellule.
Dans ton test, tu affecteras une cellule à MaCellule avec l'instruction Set. Exemple :
Tu pourras ensuite écrire ta formule dans ta cellule
I.
La cellule dans laquelle tu veux écrire ta formule est donc variable (en fonction d'un test) : on va donc définir une variable de type Range, qui représentera ta cellule.
Dim MaCellule as Range
Dans ton test, tu affecteras une cellule à MaCellule avec l'instruction Set. Exemple :
Set MaCellule = range("A" & i)
Tu pourras ensuite écrire ta formule dans ta cellule
MaCellule.FormulaR1C1 = "=LOOKUP(10000,'\\SUN\..... "
I.
30 juin 2008 à 16:25
j'ai même directement écrit:
Range(i & "4").FormulaR1C1 = "=LOOKUP(10000,'\\SUN\..... "