Discussion :

[ferdi182]

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 :

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

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.

[blepy]

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

[Marc-L]

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, …

[Theze]

Bonjour,

Une piste :

Code :

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

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

[vinc_bilb]

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 :

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

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