code vba copier coller les données dans plusieurs feuilles selon conditions Résolu/Fermé

Question

Bonjour le forum, 

Je suis novice dans VBA et j'ai pu trouver un code qui me permet de trier et cumuler des données.

Et maintenant je suis bloqué à la 2ème étape: j'aimerais qu'on m'aide à trouver un code qui me permettra de transposer les informations du tableau qu'on obtient après avoir cliqué le bouton "tri et cumul des données".  J'aimerais qu'à partir de ce tableau pouvoir transférer ou copier-coller automatique chaque ligne sur les autres feuilles du classeur en fonction du n° de réceptionnaire:

Si n°réceptionnaire = 1000954 copier coller toutes les lignes ayant le même n° de réceptionnaire à la suite des lignes vides dans la feuille "LKW Walter"
Si n°réceptionnaire = 1000916 copier coller toutes les lignes ayant le même n° de réceptionnaire à la suite des lignes vides dans la feuille "DSV"
Si n°réceptionnaire = 1000125; 10002812; 1010626; 1000804 copier coller toutes les lignes ayant le même n° de réceptionnaire à la suite des lignes vides dans la feuille "WOEHL"
Si n°réceptionnaire = 1003386; 1000249 copier coller toutes les lignes ayant le même n° de réceptionnaire à la suite des lignes vides dans la feuille "GEODIS"

Si possible transférer les données sur les feuilles à la suite de chaque ligne sans écraser les anciennes données.

Merci d'avance pour votre aide.


Configuration: Windows / Chrome 71.0.3578.98

titeufdu89 · Answer

Bonjour, 

Dans quelle colonne sont contenus les numéros de réceptionnaire? 
Quelle est le nom de ta feuille de base? 

Bonne journée 

Jc

cracram · Answer

j'aurais aimer joindre le fichier mais je ne sais pas comment faire. mais ci-joint une capture de d'écran du classeur.

titeufdu89 · Answer

A tester... ce code dispatche les lignes dans les feuilles correspondantes et supprime les ligne de la feuille vl06o à mesure. Colle ce code dans un module de ton fichier et ça devrait faire l'affaire

Sub repartition_info()
Dim ws As Object, b As Object
Set b = Worksheets("vl06o") '<< feuille de base
col = 9 '<< numéro de colonne contenant les numéro de réceptionnaire dans la feuille de base

For i = 1 To b.Range("I65536").End(xlUp).Row
        Select Case b.Cells(i, col).Value
        Case "1000954"
        Set ws = Worksheets("LKW Walter")
        Case "1000916"
        Set ws = Worksheets("DSV")
        Case "1000125", "10002812", "1010626", "1000804"
        Set ws = Worksheets("WOEHL")
        Case "1003386", "1000249"
        Set ws = Worksheets("GEODIS")
        Case Else
        GoTo nex
        End Select
    b.Rows(i).Copy ws.Rows(ws.Range("A65536").End(xlUp).Row + 1)
    b.Rows(i).EntireRow.Delete
    i = i - 1
nex:
Next i
End Sub

titeufdu89 · Answer

Re, voici ton fichier : https://www.cjoint.com/c/IAyjSXsvL3N
clique sur le bouton "dispatche et suppression" pour exécuter la macro

NB : comme le fichier contient une macro, enregistre le avant de l'ouvrir et contrôle que l'extension du fichier soit bien ".xlsm". Si ce n'est pas le cas modifie la manuellement en renommant le fichier. Sinon il est possible que tu aies un message d'erreur en l'ouvrant directement depuis cjoint. 

Bonne journée 

Jc

Code vba copier coller les données dans plusieurs feuilles selon conditions

4 réponses