Discussion :

[dvdhag123]

Bonjour,
Je ne comprends pas une partie de ce code, ci dessous le code, et ce que j'en ai compris:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-13],W!C[-13]:C[-4],1,)"

Vlookup signifie la recherche vertical
-RC[-13], Valeur recherché
-W!C[-13]:C[-4], le tableau ou il faut rechercher moi s'est dans l'onglet "W" il fait de A jusque J
-1, L'élément a prendre

Je souhaite le comprendre pour le modifier, remplacer les -13 et -4..


Et j'aurais aimé changer ce code pour que ça me prenne de N2 jusque la fin et non jusque 2652 car si je copie ce code dans un autre fichier qui fait plus ou moins 2652 il faudrait que je change a chaque fois le nombre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.AutoFill Destination:=Range("N2:N2652")

Merci

[illight]

Si mes souvenirs sont bons, cela te permet de savoir par rapport à ta position actuelle où tu vas.

Explications ici :

http://www.developpez.net/forums/d44...l-formular1c1/

Je te conseille d'utiliser FormalLocal, où tu pourras utiliser une écriture "normale"

[dvdhag123]

Bonjour merci de ta réponse

Mais je ne sait utiliser cette formule " FormulaLocal "
Ma valeur recherché commence en A2
le tableau ou il faut rechercher moi s'est dans l'onglet "W" il fait de A jusque J A:J
1, Le 1er élément a prendre
Ancien code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Range("N2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-13],W!C[-13]:C[-4],1,)"
    Range("N2").Select
    Selection.AutoFill Destination:=Range("N2:N2652")
    Range("N2:N2652").Select

Le nouveau serait peut être mais je ne pense pas du tout...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Range("N2").Select
    ActiveCell.FormulaLocal = "=VLOOKUP(A2,W!A:J,1,)"
    Range("N2").Select
    Selection.AutoFill Destination:=Range("N2:N2652")
    Range("N2:N2652").Select

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  Range("N2").FormulaLocal = "=RECHERCHEV(A2;W!A:J;1;FAUX)"
  Range("N2").AutoFill Range("N2:N2652")

Et j aimerais changer le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range("N2:N2652")

par un code qui me prendrais jusqu’à la fin de mon tableau.

Merci

[dvdhag123]

le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  Range("N2").FormulaLocal = "=RECHERCHEV(A2;W!A:J;1;FAUX)"
  Range("N2").AutoFill Range("N2:N2652")

Fonctionne me reste a trouver comment selectionner jusque la fin du tableau