Discussion :

[ezkbkt]

Bonjour je souhaite coller une recherchev sur toutes les lignes actives de la dernière colonne + 1

Code :

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

1
2
3
4
5
6
7
8
9
Sub tricv()
 
Dim C As Range, DerCol As Long, DerLig As Long
DerCol = Cells(1, Columns.Count).End(xlToLeft).Column
DerLig = Range("A1:A" & Rows.Count).End(xlUp).Row
 
Cells(1, DerCol + 1).FormulaR1C1 = "=VLOOKUP('Analyse LT RH - TRI CV'!RC[-1],'Analyse Hebdomadaire RH'!R[-1]:R,4,FALSE)"
 
End Sub

Pour l'instant je ne peux que coller la formule sur la première ligne de la dernière colonne alors que j'aimerais la tirer sur jusqu'à la dernière ligne.

J'ai essayé plusieurs solutions mais je vous avoue que je suis un peu perdu.

[Menhir]

Code :

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

1
2
3
4
5
Sub tricv()
   Dim Fin As Range
   Set Fin = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell)
   Cells(1, Fin.Column + 1).Resize(Fin.Row, 1).FormulaR1C1 = "=VLOOKUP('Analyse LT RH - TRI CV'!RC[-1],'Analyse Hebdomadaire RH'!R[-1]:R,4,FALSE)"
End Sub

[ezkbkt]

Code :

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

1
2
3
4
5
Sub tricv()
   Dim Fin As Range
   Set Fin = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell)
   Cells(1, Fin.Column + 1).Resize(Fin.Row, 1).FormulaR1C1 = "=VLOOKUP('Analyse LT RH - TRI CV'!RC[-1],'Analyse Hebdomadaire RH'!R[-1]:R,4,FALSE)"
End Sub

Merci ca fonctionne parfaitement !

[mfoxy]

Bonjour,

L'utilisation de code Vba ne serait pas nécessaire en utilisant un tableau structuré, disponible depuis office 2007.
Cfr le point V-c de ce tutoriel.


https://fauconnier.developpez.com/tu...x-structures/#