Macro excel fonction rechercheV

Bonjour,
Je me permets de vous écrire afin d'avoir un peu d'aide étant novice sous Excel/VBA.
Je souhaite créer une macro qui importe deux fichiers distincts pour effectuer une fonction de "recherche Verticale" et, par la suite extraire le résultat en format CSV.

J'ai réussi à réaliser les premières étapes d'imports via le module "enregistrer une macro". Cependant lorsque je procède à l'enregistrement de la fonction rechercheV.
En effet, lors de l'enregistrement de la fonction, celle ci a été faite par rapport à la "taille" de mon tableau à traiter. Cependant celui ci peut changer.
Ci dessous la fonction enregistrée :

***********************************************

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

' Creation_fichier_import Macro '   ' Sheets("Export_OSS").Select Cells.Select Range("C2").Activate Selection.Copy Sheets("Import_OSS").Select ActiveSheet.Paste Range("C2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'Site ID'!C[-2]:C[-1],2,0)" Range("C2").Select Selection.AutoFill Destination:=Range("C2:C11") Range("C2:C11").Select

---

****************************************************
J'aimerais donc que la fonction rechercheV s'applique à l'ensemble des cellules du tableau a traiter (tableau présent dans la feuille "Export_OSS"), et éviter qu'ils s'arrête à la cellule C11 :).
Pouvez vous m'aider sachant que je suis totalement novice en VBA ?

Enfin, si je souhaite exporter le résultat dans un CSV où toute les données d'une même ligne serait concaténées sur une seule cellule et séparées par des virgules, dois je réaliser une fonction en conséquence ou l'export en CSV suffira ?

Merci d'avance pour votre aide.

Cordialement.

Bonjour

2 questions :
La première comment rendre un code VBA dynamique en fonction du nombre de ligne, nous sommes là dans l'intérêt d'une programmation, enregistrer une macro permet l'apprentissage du code, mais à chaque fois, il faut le reprendre et l'adapter, faire une boucle dans le cas présent en fonction du nombre de ligne renseignées.
La deuxième, une possibilité est de concaténer dans une seule cellule par ligne selon le format attendu pour l'usage externe, cela permet de bien maîtriser le format.

A+
Bertrand

Bonjour !

Déjà éviter les boucles autant que possible !

Juste voir ce que retournent les propriétés CurrentRegion{.Address} & UsedRange{.Address} …     (cf aide VBA)

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour,

Une piste :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Test()   With Worksheets("Export_OSS")   'ici, en référence A1 .Range("C2").Formula = "=VLOOKUP(" & Range("B2").Address(0, 0) & ",'Site ID'!A:B,2,0)"   'en supposant que la colonne B définisse la taille de la plage en colonne C .Range("C2").AutoFill .Range("C2:C" & .Cells(.Rows.Count, 2).End(xlUp).Row)   End With   End Sub

---

Bonjour,

Ah, les joies et les travers de l'enregistreur de Macros .... Mais heureusement qu'il existe:)

Ceci étant, par rapport à votre code, quelques suggestions:

1. Regardez bien les tutoriels VBA: ils sont une mine précieuse d'informations et d'exemples
2. Proscrire les Select et Activate qui sont lents et peu réutilisables
3. Ne pas oublier que VBA traite des objets et qu'il est intéressant de les manipuler

Brut de fonderie (regardez bien la fenêtre Immédiate du VBE), voilà un exemple de votre code modifié:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Option Explicit   Sub Test_Dvp()   Dim SrcRng As Range, DestRng As Range, WshP As Worksheet   ' Initialisation Set WshP = Sheets("Import_OSS")   ' On sélectionne le range à copier avec une extension à la région (Ctrl + * sous Excel) Set SrcRng = Sheets("Export_OSS").Range("A1").CurrentRegion 'A adapter Debug.Print SrcRng.Address, SrcRng.Cells.Count   ' Copy SrcRng.Copy Destination:=WshP.Range("A1")   ' Destination Set DestRng = WshP.Range("A1").CurrentRegion Debug.Print DestRng.Address   ' On enlève la 1ère ligne et on garde la 3ème colonne Set DestRng = DestRng.Offset(1, 0).Columns(3).Resize(DestRng.Rows.Count - 1, 1) Debug.Print DestRng.Address   DestRng.FormulaR1C1 = "=VLOOKUP(RC[-1],C[-2]:C[-1],2,0)" 'A adapter: on assigne les formules en une passe   End Sub

---