VBA Copier/coller en fonction de critères

Bonjour/Bonsoir à tous,

Je suis débutant VBA et j'ai un fichier à automatiser mais je n'y arrive pas ! Si vous pouvez m'aider, ce serait top !!! Merci :) :

---

Je vous donne un fichier exemple qui va permettre de mieux vous faire comprendre mon problème Pièce jointe 583264

---

Mon document comporte 5 feuilles : 1 feuille BDD / 4 feuilles où je copie colle les données en fonction de critères :

- "BDD" -> Liste que je reçois des RH -> Je colle les données RH (aucun VBA à faire)

- "Liste nominative" -> Liste de toutes les personnes
- "Liste nominative CDI & CDD" -> Uniquement les personnes en CDI et CDD
- "Liste nominative alternants" -> Uniquement les personnes en PRO / CAP / ST
- "ETS" -> rien à faire

Dans la feuille BDD :

1) je colle les données RH de la colonne C -> L
2) Colonne A : formule qui reprend les données de la colonne E
3) Colonne B : formule qui concatène (nom/prénom) colonne C et D
4) Colonne M : formule qui consolide la colonne K et L (Si L est vide alors K / Si L n'est pas vide alors L)
5) Colonne N : formule recherchev avec la feuille "ETS"

Pour la feuille " Liste nominative " :

1) Je copie les données "BDD" : TOUT LE MONDE

2) Je colle dans la feuille "Liste nominative" en commençant à la cellule A5

Voici une macro que j'ai créé et qui fonctionne même si elle est très loin d'être top (je commence le VBA)

Code:

---

 

---

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

Sub Liste_Nominative()   'Je copie le numéro de matricule + nom prénom Sheets("XAABU026").Select Range("A2:B10000").Select Selection.Copy Sheets("Liste nominative").Select Range("A5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False   'Je copie les colonne F (numéro affectation) Sheets("XAABU026").Select Range("F2:F10000").Select Selection.Copy Sheets("Liste nominative").Select Range("C5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False   'Je copie les colonne N (libellé affectation) Sheets("XAABU026").Select Range("N2:N10000").Select Selection.Copy Sheets("Liste nominative").Select Range("D5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False     'Je copie les colonne G à J (affectation) Sheets("XAABU026").Select Range("G2:J10000").Select Selection.Copy Sheets("Liste nominative").Select Range("E5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False   'Je copie les colonne M (Contrat) Sheets("XAABU026").Select Range("M2:M10000").Select Selection.Copy Sheets("Liste nominative").Select Range("I5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False         End Sub

---

Pour la feuille " Liste nominative CDI & CDD " :


1) Je copie les données "BDD" : UNIQUEMENT POUR LES PERSONNES EN CDI ET CDD (colonne M)

2) Je colle dans la feuille "Liste nominative CDI & CDD" en commençant à la cellule A5


Pour la feuille " Liste nominative alternants " :


1) Je copie les données "BDD" : UNIQUEMENT POUR LES PERSONNES EN CAP, PRO, ST (colonne M)

2) Je colle dans la feuille "Liste nominative CDI & CDD" en commençant à la cellule A5



A expliquer c'est un peu difficile donc le document qui accompagne ce post va vous aider à comprendre (je l'espère)

Je vous remercie d'avance pour l'aide que vous allez m'apporter !


PS : Si vous connaissez des livres / vidéos pour apprendre le VBA je suis preneur !! :)

Merci et bonne soirée :)

Alexis

Pièce jointe 583264

Salut.

Au vu de ce que tu m'expliques, je te conseille de te tourner vers Power Query qui va "enregistrer" tes manipulations (suppression de colonnes, filtres, tris, ...) et restituer tes tableaux finaux. Ca coûte quelques clics... à répéter pour chaque filtre. Dans ce cas, les tableaux filtrés ne doivent pas exister au départ, ils seront créés par Power Query lors de la mise en place de la solution, puis mis à jour à chaque appel.

Pièce jointe 583277

Pièce jointe 583278

Pièce jointe 583279

Pièce jointe 583280


Pour du VBA, j'ai répondu à une question similaire dans cette discussion. Je vais l'adapter pour toi ci-dessous.

Sans Power Query, je te conseille évidemment de travailler avec des tableaux structurés que tu vas placer où tu veux dans ton classeur. En utilisant les tableaux structurés en VBA, tu vas voir que tu ne dois t'inquiéter à aucun moment de l'endroit où tu places tes tableaux. Tu dois juste bien choisir les noms de tes tableaux. Sur base de mon exemple à adapter à ton cas, on dispose d'un tableau Tableau1 qui contient les données de départ et de trois tableaux cibles t_CDI, t_CDD et t_Alternants



Apparemment, tu disposes déjà des tableaux qui doivent recevoir les données filtrées. Donc, je propose ceci:

• Une fonction générique qui copie les données d'un tableau dans un autre, avec option de vider le tableau cible avant;
• La fonction générique proposée dans l'autre discussion pour filtrer les lignes;
• Une procédure qui lie le tout.

Voici la procédure qui permet de copier un tableau source sur un tableau cible de même structure en gardant ou non les données de la cible. La petite difficulté réside dans la gestion de la ligne de total. On lui passe le nom de la source, le nom de la cible et on précise si on veut vider la cible avant.

Code:

---

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

Sub CopyTable(ByVal SourceName As String, ByVal TargetName As String, ClearBefore As Boolean) Dim Source As Range, Target As Range Dim TotalRangeVisible As Boolean   TotalRangeVisible = Range(TargetName).ListObject.ShowTotals Range(TargetName).ListObject.ShowTotals = False If ClearBefore Then If Not Range(TargetName).ListObject.DataBodyRange Is Nothing Then Range(TargetName).ListObject.DataBodyRange.Delete Set Target = Range(TargetName)(1) Else Set Target = Range(TargetName).ListObject.ListRows.Add().Range(1) End If   Set Source = Range(SourceName) Target.Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value Range(TargetName).ListObject.ShowTotals = TotalRangeVisible End Sub

---

Voici une procédure qui supprime les lignes d'un tableau qui ne contiennent pas une valeur précise dans une colonne donnée. On lui passe le nom du tableau, le nom de la colonne et la valeur qui doit être gardée

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub deleteRows(ByVal TableName As String, ByVal ColumnName As String, ByVal Value As Variant) Dim t Dim i As Long, back As Variant   t = Range(TableName).ListObject.ListColumns(ColumnName).DataBodyRange.Value For i = UBound(t, 1) To 1 Step -1 back = t(i, 1) If back <> Value Then Range(TableName).ListObject.ListRows(i).Delete Next End Sub

---

Tu remarqueras que ces procédures ne mentionnent nulle part les noms de tes tableaux, ni les valeurs à garder, pas plus que l'emplacement de tes tableaux sur la feuille. C'est la procédure qui va appeler ces codes en boucle qui va contenir tes "valeurs métiers", c'est-à-dire les noms de tes tableaux, de la colonne à tester et des valeurs à garder. Pour boucler, on utilise un array qui va contenir les données souhaitées

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim t Dim i As Long   t = VBA.Array("t_CDI", "CDI", "t_CDD", "CDD", "t_Alternants", "Alt") For i = 0 To 4 Step 2 CopyTable "tableau1", t(i), True deleteRows t(i), "Type", t(i + 1) Next End Sub

---

Je joins un fichier qui contient la solution Power Query et les codes VBA.

Bonjour Pierre :) ,

Un grand merci pour ton aide ! Les solutions sont très bien expliquées et répondent à mon problème !

Je ne connaissais pas Power Query et cette solution me convient parfaitement ! Je viens de tester et comme tu le dis "Ca coûte quelques clics" donc c'est exactement ce que je recherche.

Concernant la méthode VBA, j'ai essayé de comprendre. C'est pas forcément évident quand on est débutant mais je vais étudier cette piste. Tant que je ne maîtrise pas les lignes de codes, je ne vais pas pouvoir les insérer dans mes fichiers étant donné que je ne suis pas le seul à les utiliser. En cas de problème, je ne serais pas capable de les résoudre. Je vais donc rester sur la méthode de Power Query qui est simple et répond à mes attentes.

Je te remercie pour cette aide ! :D:D


Dernière question : je souhaite vraiment apprendre le VBA, as-tu des livres / formations à me conseiller ?



Merci et bon week-end à toi ! :)

Alexis

Bonsoir Alexis, Pierre et le Forum,

Citation:

---

je souhaite vraiment apprendre le VBA, as-tu des livres / formations à me conseiller ?

---

Très bonne démarche. :ccool:
Tu peux consulter ce billet que j'ai rédigé sur mon blog

Il n'est que trop évident de te conseiller de fréquenter le Forum, ses tutoriels et ses contributions.

Pour ce qui est du Forum, ne serait-ce qu'étudier un seul code en décortiquant toutes les méthodes et propriétés qui y sont reportées.
Exemple, celui de Pierre ci-dessus.
(Au passage, sur les tableaux structurés 2 tutoriels Présentation et VBA)

J'entends par là aller chercher la documentation qui y est relative (espaces Microsoft, tutoriels du forum, les blogs, la FAQ, etc...)
En 2 clics sur ce forum, Office\Excel, tu pourras t'apercevoir de toutes les possibilités offertes.

D'autre part, je ne peux que recommander de ne pas être trop ambitieux au départ, mais de chercher à développer un code, même le plus simple, avec rigueur, affecter une bonne architecture à son projet, bien déclarer ses variables.
Voilà qui est énorme, et qui fait - trop - souvent défaut.

Sur la manière d'apprendre, on peut envisager de construire, en parallèle, sa propre documentation.
Moi-même, je construis, depuis 11 ans, un espace Excel VBA, subdivisées en thèmes les plus divers (Objet Range, tableaux structurés, pilotage Outlook...)
Ce sont de modestes fichiers Word et Excel affectés de noms explicites (Filtrer un tableau structuré..).
Chacun reporte un code, certes, mais aussi le(s) lien(s) (adresse internet) dont il est issu. Ceci pour observer, voire étudier, son contexte.

Voilà.

J'espère que ces quelques pistes t'aideront dans une démarche constructive.

Bienvenu sur ce Forum. Bonne continuation et à bientôt.

Marcel

J'ajouterai à ce que dit Marcel (Hello), que tu peux aussi te placer dans la procédure Test et presser F8. Tu vas alors avancer "en pas à pas" pour exécuter le code ligne par ligne. Si tu partages ton écran entre Excel et VBA et qu'Excel affiche le tableau t_CDI, tu pourras suivre l'exécution facilement. Pour mieux comprendre chaque ligne, je te conseille de placer une ligne de total dans le tableau t_CDI et d'y mettre quelques valeurs. A chaque passage de boucle dans Test, tu peux passer sur le tableau suivant (l'ordre de passage est celui que tu peux "lire" dans l'array). Ca te permettra de décortiquer chaque ligne de code comme le dit Marcel et de voir le résultat côté Excel.

Le code que je te donne ici me semble compréhensible sans commentaires, mais il nécessite évidemment des connaissances Côté Excel, notamment sur les tableaux structurés.

Bonsoir MarcelG,

Merci pour ton aide. C'est toujours agréable d'avoir le soutien de personnes expérimentées ! Je vais regarder les différents liens dans le document Word que tu proposes sur ton blog. :D

J'utilise beaucoup Excel dans ma vie professionnelle (contrôle de gestion) et pour mes études.
Cela fait un moment que le VBA m'attire mais je ne savais pas par où commencer. J'ai donc essayé de développer des codes simples même si ce n'est pas simple au début.
Lorsque je bloque, je vais sur Internet ou sinon je viens sur ce forum voir si une personne a la solution. Bien évidemment, je ne copie pas bêtement le code, j'essaie de le comprendre.


Concernant la documentation, j'ai commencé à en faire une.
J'ai créé un document OneNote qui contient mes 2 ou 3 "réussites".


En tout cas, merci beaucoup pour les pistes et tes conseils ! :D:D

A bientôt,

Alexis