[XL-2010] Ajouter des données d'un tableau à un autre

Bonjour,

Voici un premier élément de réponse en fonction de votre demande, ne reste plus qu'à l'adapter à la situation réelle.
Le fichier
Pièce jointe 528545

Le code utilisé

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
Sub Envoi_dans_Recap()
    Application.EnableCancelKey = xlDisabled 'pour que l'utilisateur ne puisse pas interrompre la macro
    Application.ScreenUpdating = False
    On Error Resume Next
    Set f1 = Sheets("Import")
    Set f2 = Sheets("Recap")
    MdP = InputBox("Quel est le mot de passe ?", "Verif utilisateur") 'Demande le mot de passe
    f2.Unprotect MdP 'déprotection de la feuille "Recap"
    If Err.Number = 0 Then 'si c'est le bon mot de passe
        Plage = Selection.Address
        Col = Selection.Column
        If Col < 8 Then 'c'est le tableau 1 qui est sélectionné
            DerLig_f2 = f2.Range("A" & Rows.Count).End(xlUp).Row + 1   'Copie dans tableau 1
            f1.Range(Plage).Copy Destination:=f2.Range("A" & DerLig_f2)
        Else 'c'est le tableau 2 qui est sélectionné
            DerLig_f2 = f2.Range("H" & Rows.Count).End(xlUp).Row + 1     'Copie dans tableau 2
            f1.Range(Plage).Copy Destination:=f2.Range("H" & DerLig_f2)
        End If
        f2.Select
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Recap" 'protection avec le mot de passe "Recap"
    End If
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Une petite vidéo pour voir le fonctionnement
Pièce jointe 528547

Cdlt