Discussion :

[HankMoody]

Bonjour à tous,

Je vous présente le problème: Un tableau A est mis à jour quotidiennement.
Ce tableau contient une colonne "nom" de 8 noms possibles (il peut y avoir plusieurs fois le même nom) ainsi que des colonnes "quantités, "types" etc.

Je souhaite créer une macro dans chacun de 8 autres classeurs qui en fonction du nom de la colonne "nom" du tableau A m'insére une ligne, si le nom correspond, avec les valeurs des "quantités" et "types" correspondantes.

Je ne sais pas si j'ai été assez clair mais si quelqu'un peut me filer un coup de main je suis preneur!

* Merci *

[Daniel.C]

Bonjour,

Les données sont-elles classées, ou est-ce que tu ajoutes la ligne en bas du tableau ?

[HankMoody]

Si on ajoute la ligne en bas du tableau c'est très bien!

[Daniel.C]

Bonjour,

Mets cette macro dans le module de la feuille. Tu dois changer le nom des fichiers dans la variable Classeurs. Aussi, j'ai supposé que tous les classeurs sont dans le même dossier. Je mets en pièce jointe le classeur source et 1 classeur cible.

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Wbk As Workbook, Ligne As Long, Classeurs
    Classeurs = Array("HankMoody Cible1.xls", "HankMoody Cible2.xls", _
        "HankMoody Cible3.xls", "HankMoody Cible4.xls", "HankMoody Cible5.xls", _
        "HankMoody Cible6.xls", "HankMoody Cible7.xls", "HankMoody Cible8.xls")
    If Target.Column > 3 Then Exit Sub
    If Application.CountA(Cells(Target.Row, 1).Resize(, 3)) = 3 Then
        For Each Item In Classeurs
            Set Wbk = Workbooks.Open(ThisWorkbook.Path & "\" & Item)
            With Wbk.Sheets("Feuil1")
                Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                .Cells(Ligne, 1).Resize(, 3).Value = Cells(Target.Row, 1).Resize(, 3).Value
                Wbk.Close True
            End With
        Next
    End If
End Sub

[HankMoody]

Merci Daniel.C.
Cependant j'ai effectué un test avec les fichiers source/cible que tu as joint et lorsque que je rajoute une ligne dans le fichier source et lance la macro, elle ne se rajoute pas dans le tableau cible.

[Daniel.C]

Je n'ai pas été assez précis. Tu ouvres le fichier source; quand tu a rempli les 3 cellules des colonnes A, B et C, la macro se déclenche automatiquement; elle ouvre, met à jour et ferme successivement les 8 fichiers cibles.