Discussion :

[Sillystick]

Bonjour la communauté,

Tout d'abord je tiens à dire que je suis un gros débutant du VBA et que ma question concerne peut-être un code de 4 lignes mais voila j'ai trouver la réponse nul-part..

Voila mon problème. J'aimerai feeder mensuellement une partie d'une base de données à partir d'une autre base de données. Les base en questions fonctionnent comme un tableau à double entrée il y a un identifiant dans la première colonne et un identifiant en premiere ligne pour chaque colonne. Les deux sont dans le même classeur sur des sheet différente (disons sheet1 pour la base de donnée réceptrice et sheet2 pour la base de donnée qui va donné).

Je pourrais donc faire un simple vlookup dans les colonnes concernée de la sheet1 malheureusement la base qui doit être feeder ne peut pas contenir de formule.

Je n'ai pas trouver de bout de code duquel je pourrais commencer et je suis malheureusement trop débutant pour partir "from scratch". Quelqu'un pour aider un débutant ? Merci d'avance.

[clementmarcotte]

Bonjour,

je suis malheureusement trop débutant pour partir "from scratch". Quelqu'un pour aider un débutant ? Merci d'avance.

Dans Excel, et Word, il y a un enregistreur de macros pour t'aider à commencer. C'est un peu long à expliquer ici, mais, il y a la marche à suivre dans ton aide.

[parmi]

Bonjour,

Si un VLookUp peut servir, tu pourrais générer ces formules par code, si nécessaire, et les remettre en valeur par la suite.

Code :

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

1
2
3
Range("B2:B" & nbLignes).Formula = "=VLOOKUP(.....)"
Range("B2:B" & nbLignes).Copy
Range("B2:B" & nbLignes).PasteSpecial xlPasteValues

Ça te copiera ta formule dans toute ta colonne de données et la mettra en valeur par la suite. Il s'agit juste de faire attention aux "$" dans les adresses.

Il y a aussi possibilité de passer par WorksheetFunction.VLOOKUP
À voir dans ton aide...

Autrement, il te faudrait boucler lignes et colonnes et ça risque d'être pas mal plus long, selon moi...

[Sillystick]

Merci pour ta réponse parmi,

j'ai essayer d'adapter ton code comme suit:

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
 
Sub copy()
Dim i As Variant
Dim b As Variant
 
 
b = Worksheets("Page5_1").Range("A3:h106")
 
 
For i = 3 To 7
 
Worksheets("sheet1").Select
Range("B" & i) = WorksheetFunction.VLookup(Range("A" & i), b, 2)
Next i
Range("B2:B" & 7).copy
Range("B2:B" & 7).PasteSpecial xlPasteValues
 
 
 
End Sub

Seulement adapter ce code pour les 4000 lignes sera vite fais mais pas pour les 25 colonnes... est ce que par hasard quelqu'un aurait une idée de code plus "léger" ?

[parmi]

Si tu es capable d'écrire tes formules dans ta feuille, tu peux aussi le faire dans le code.

Aucun besoin de boucle là-dedans...

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
Sub Copie()
    Dim nbLignes As Long
 
    Application.Calculation = xlCalculationManual 'passe en mode calcul manuel
 
    Worksheets("sheet1").Activate   'Pas vraiment nécessaire si on la nomme expressément...
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
 
    Range("B3:B" & nbLignes).Formula = "=VLookup(A3, Page5_1!$A$3:$H$106, 2, FALSE)"
    Range("C3:C" & nbLignes).Formula = "=VLookup(A3, Page5_1!$A$3:$H$106, 3, FALSE)"
    Range("D3:D" & nbLignes).Formula = "=VLookup(A3, Page5_1!$A$3:$H$106, 4, FALSE)"
 
    Application.Calculation = xlCalculationAutomatic 'passe en mode calcul automatique pour mettre à jour les formules une seule fois
 
    Range("B2:Z" & nbLignes).copy
    Range("B2:Z" & nbLignes).PasteSpecial xlPasteValues
 
    Range("A1").Select
    Application.CutCopyMode = False
 
End Sub

[Sillystick]

Merci parmi ton code marche à ravire ! J'ai d'autre question mais je pense ouvrir une nouvelle discussion car ce n'est plus relater à cette problèmatique.