Discussion :

[Audrey R.]

Bonjour,

Je suis débutante dans le code VBA. Cependant, dans le cadre de mon travail, je dois créer un fichier Excel qui prend en considération cette fonction. Tel que mentionné dans le titre, avec un code VBA, je voudrais copier une ligne d'une feuille à une autre, et ce avec une condition.

Dans ma pièce jointe intitulée Exemple, j'ai 4 feuilles. La feuille Donnees serait remplit au fur et à mesure. Puis, j'ai les feuilles M,R et G qui doivent récupérer les données, si elles sont concernées. L'objectif étant que la feuille Donnees répartissent les projets, dans la bonne feuille, en fonction de la colonne 'Mesure'


Ainsi,

Si nous avons un projet dont la colonne mesure est 'M', la ligne entière serait copier dans la feuille M.

Si nous avons un projet dont la colonne mesure est 'R', la ligne entière serait copier dans la feuille R.

Si nous avons un projet dont la colonne mesure est 'G', la ligne entière serait copier dans la feuille G.


Ainsi, selon l'exemple en pièce jointe, nous aurions 2 lignes, dans la feuille M, 2 lignes dans la feuille R et 1 ligne dans la feuille G.



Merci !

[deedolith]

Salut,

As-tu obligation de passer par VBA ?
Ce que tu décrit est fesable via Power query.

[Audrey R.]

Bonjour deedolith,

L'utilisation de VBA serait préférable, puisque l'équipe en question est familière avec celui-ci. Par contre, si c'est possible avec Power query, je suppose que je pourrais leur expliquer le tout. Comment devrais-je faire ?

Merci,
Audrey

[deedolith]

Je n'ai pas les compétences suffisantes pour te faire un cours sur Power Query.
Le mieux est de te trouver un bon tutoriel, ou une formation.
Par exemple: https://www.developpez.net/forums/bl...ique-surcroit/

[Audrey R.]

Bonjour,

Merci grandement. Je vais regarder le lien envoyé précédemment.

Bonne journée à vous !

[BENNASR]

Bonjour
pour VBA testez :

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
Sub test()
Application.ScreenUpdating = False
Dim sh As Worksheet
Dim filtre
Dim lig As Long
lig = Sheets("Donnees").Cells(Rows.Count, 2).Row
For Each sh In Sheets
If sh.Name <> "Donnees" Then
filtre = sh.Name
MsgBox filtre
Sheets("Donnees").Range("B4:E" & lig).AutoFilter Field:=3, Criteria1:=filtre
Sheets("Donnees").Range("B4:E" & lig).SpecialCells(xlCellTypeVisible).Copy Destination:=sh.Range("B4")
End If
If Sheets("Donnees").FilterMode Then Sheets("Donnees").ShowAllData
Next sh
Application.ScreenUpdating = True
End Sub

[BENNASR]

Pour PowerQuery
il suffit de mettre tes données sous forme de tableau structuré
démerrer powerQuery
filtrer tes données selon la mesure
et chaque fois tu ajoute une ligne dans ta base de données, il suffit de cliquer sur actualiser et tu aura ce que tu veux sans code ni VBA
solution fortement recommandée voir ton exemple :

[Audrey R.]

Bonjour !

Finalement, nous allons utiliser Power query, puisque le tout semble moins complexe avec cette solution.

Ainsi, merci à deedolith, pour le lien explicatif et merci à BENNASR pour le code VBA et la petite vidéo sommaire associée à Power query.

Je vous souhaite une merveilleuse journée ,
Audrey