VLOOKUP

Résolu/Fermé
usdy Messages postés 243 Date d'inscription lundi 4 août 2008 Statut Membre Dernière intervention 20 mai 2018 - 11 août 2009 à 14:24
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 - 11 août 2009 à 17:55
Bonjour TOUT LE MONDE,

Et oui ! j'ai encore un ptit souci (encore tout bête) en VBA :

j'ai une colonne dans laquelle je souhaite mettre une formule colonne "AO":
Range("AO2").FormulaR1C1 = "=VLOOKUP(RC1,month!C1:C30,7,0)"

sauf que je voudrais rendre possible cette formule pour toute la colonne AO, car quand je lance ma macro la
formule s'exécute que sur la première ligne...

merci de m'aider

5 réponses

tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
11 août 2009 à 14:34
Bonjour
essaye un truc comme ça (pas testé)
Selection.AutoFill Destination:=Range("A02:A065536"), Type:=xlFillDefault
0
usdy Messages postés 243 Date d'inscription lundi 4 août 2008 Statut Membre Dernière intervention 20 mai 2018 6
11 août 2009 à 14:40
j'ai testé et ça me met une erreur du style : la méthode autofill de la classe Range a échoué.
J'avais mis la ligne que tu m'a proposé juste après mon vlookup, je ne sais pas si j'ai bien fait !

merci
0
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
11 août 2009 à 14:46
Attention :
Selection.AutoFill Destination:=Range("A02:A065536"), Type:=xlFillDefault
mets un Range("AO2").Select avant ;)
0
usdy Messages postés 243 Date d'inscription lundi 4 août 2008 Statut Membre Dernière intervention 20 mai 2018 6
11 août 2009 à 14:48
oups ! dsl chui trop bête :)

j'ai retesté :

Range("AO2").FormulaR1C1 = "=VLOOKUP(RC1,month!C1:C30,7,0)"
Range("AO2").Select
Selection.AutoFill Destination:=Range("A02:A065536"), Type:=xlFillDefault

mais j'ai le même message d'erreur...
0
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
11 août 2009 à 15:24
MDR !!
j'ai un peu cherché qd meme :
Selection.AutoFill Destination:=Range("A02:A065536
=> avec des "O" plutot que des "0", ce serait mieux non ? (lol, faute de frappe de mon coté au départ)
0
usdy Messages postés 243 Date d'inscription lundi 4 août 2008 Statut Membre Dernière intervention 20 mai 2018 6
11 août 2009 à 16:04
mdr !!!!!!!!!!!!!!!!! ça m'apprendra à faire du copier/coller des codes :)

ça marche à moitié parce que la formule est bien répétée dans toute la colonne
sauf que la formule est mauvaise. Au départ j'avais testé manuellement mon vlookup dans la fenêtre prévue sans passer par du code : =RECHERCHEV($A2;month!$A:$AG;7;0)

sauf que j'ai essayé de la mettre dans mon code j'avais des erreurs à cause des $, sais tu comment traduire :
=RECHERCHEV($A2;month!$A:$AG;7;0) pour que ça puisse être bien mis dans mon code.

merci pour toute ton aide tompols
0
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
11 août 2009 à 16:17
Re,
Essaie avec .Formula plutot que .FormulaR1C1
Range("AO2").Formula = "=VLOOKUP($A2,Feuil1!$A:$AG,7,0)"
0
usdy Messages postés 243 Date d'inscription lundi 4 août 2008 Statut Membre Dernière intervention 20 mai 2018 6
11 août 2009 à 16:52
nickel !!
ca marche !!
merci bcp et bonne soirée
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
11 août 2009 à 17:55
de rien, bonne soirée (je mets le post en "résolu")
0