Discussion :

[jeje5969]

Bonjour,
je cherche à récupérer la valeur d'une cellule en fonction d'un nom qu'il posséde dans une autre feuille.
Sachant qu il ne faut pas que je nomme cette feuille car l’année prochaine il cherchera la valeur dans la feuille de cette année.
En fait je veux comparer les valeurs de cette année avec celles de l'année derniere.

je pensais a une rechercheV mais je me retrouve avec le nom de la feuille fixe

Code :

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

1
2
ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-7],'PDCT Prédetente 2018'!RC[-7]:R[133]C[1],7,FALSE)"

dans mon exemple il va rechercher ds la feuille PDCT Prédetente 2018. mais l'année prochaine il devra chercher dans 2019

Merci

[Menhir]

En supposant que tes onglets soient dans l'ordre :

Code :

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

1
2
3
Dim Dest As String
Dest = Worksheets(ActiveCell.Worksheet.Index - 1).Name
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-7],'" & Dest & "'!RC[-7]:R[133]C[1],7,FALSE)"

[jeje5969]

Merci Menhir !

[jeje5969]

J'ai un autre pb avec la formule
chaque année ça va me rajouter une colonne du coup la recherche va se décaler et ne plus fonctionner

mon élement a rechercher sera toujours ds la colonne B, par contre au fur et a mesure des années il devra être inserer dans une colonne en plus cette année en colonne i, l'année prochaine en J, etc....

Code :

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

1
2
3
Dim Dest As String
Dest = Worksheets(ActiveCell.Worksheet.Index + 1).Name
Range("i2:i" & [F65536].End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC[-7],'" & Dest & "'!R2C2:R200C10,7,FALSE)"

Comment je peux faire ?
Merci

[Menhir]

Il suffit de mettre la référence de l'élément chercher en absolu et non en relatif.
Et c'est plus simple à faire avec des références type A1 que R1C1.

Code :

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

1
2
3
Dim Dest As String
Dest = Worksheets(ActiveCell.Worksheet.Index + 1).Name
Range("I2:I" & Cells(Rows.Count, "F").End(xlUp).Row).Formula = "=VLOOKUP($B2,'" & Dest & "'!$B:$J,7,FALSE)"

[jeje5969]

Merci Menhir
Par contre la premiere fois ça marche mais apres au lieu de copier dans la colonne J il copie ds la colonne I

Code :

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

Range("I3:I" & Cells(Rows.Count, "F").End(xlUp).Row).Formula = "=VLOOKUP($B3,'" & Dest & "'!$B:$J,7,FALSE)"

[Menhir]

Je ne comprends pas ta demande.

[jeje5969]

Chaque année dans cette feuille ma macro rajoute une colonne.
la premiere année elle va etre en I , la seconde en J etc...
le code ci dessous :

Code :

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

1
2
Dest = Worksheets(ActiveCell.Worksheet.Index + 1).Name
Range("I3:I" & Cells(Rows.Count, "F").End(xlUp).Row).Formula = "=VLOOKUP($B3,'" & Dest & "'!$B:$J,7,FALSE)"

ce code met bien a jour la rechercheV dans la colonne I mais l'année suivante au lieu de mettre la rechercheV dans la colonne J il le met dans la colonne I

chose logique vu ma ligne de code qui commence par range("I3:I)

Vois tu mon Pb ?

[Menhir]

Comment peut-on faire le lien entre un numéro de colonne et une année ? Comment sait-on quelle année doit être traitée ?

[jeje5969]

Au début de ma macro j'ai une MsgBox qui demande l'année, et dans ma macro j'insère une colonne que je nomme ex:2019.

[Menhir]

Si tu as la position de l'entête de ta colonne, il suffit de la décaler avec un Offset(1, 0) pour désigner la cellule du dessous et de l'étirer avec un Resize (selon Cells(Rows.Count, "F").End(xlUp).Row ).
Lire ça :
https://msdn.microsoft.com/fr-fr/lib...0(v=office.15)
https://msdn.microsoft.com/fr-fr/lib...4(v=office.15)

[jeje5969]

Comment je peux faire une fois que j'ai récuperer la lettre de la colonne de ma cellule active pour remplacer mon code ou apparait range("I3:I"........
Car sinon ma macro ecrase tout le temps dans la meme colonne a savoir la I

Code :

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

1
2
3
col = Replace(Chr(64 + Fix((ActiveCell.Column - 1) / 26)) & _
       Chr(65 + ((ActiveCell.Column - 1) Mod 26)), Chr(64), "") 'récupere la lettre de la colonne ds laquelle la cellule est active
Range("I3:I" & Cells(Rows.Count, "F").End(xlUp).Row).Formula = "=VLOOKUP($B3,'" & Dest & "'!$B:$J,7,FALSE)"

J'espere etre clair.
Merci d'avance

[jeje5969]

c'st bon j'ai trouvé
pour info voila le code

Code :

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

1
2
3
4
5
col = Replace(Chr(64 + Fix((ActiveCell.Column - 1) / 26)) & _
       Chr(65 + ((ActiveCell.Column - 1) Mod 26)), Chr(64), "") 'récupere la lettre de la colonne ds laquelle la cellule est active
 
 
Range(col & "3:" & col & Cells(Rows.Count, "F").End(xlUp).Row).Formula = "=VLOOKUP($B3,'" & Dest & "'!$B:$J,7,FALSE)"