Discussion :

[Cochino]

Bonjour à tous et à toutes,

Je dispose d'un fichier Excel récapitulatif d'un projet avec 2 onglets :
- Un onglet "Récap"
- Un onglet "Import"

L'onglet "Récap" présente plusieurs tableaux :
- Tableau1
- Tableau2
que l'on retrouve avec les même en tête dans l'onglet "Import":
- Tableau1Import
- Tableau2Import

La saisie des nouvelles données ne doit se faire que dans l'onglet "Import".

Via une macro et un bouton, je souhaite ajouter les données des tableaux de l'onglet "Import" dans les tableaux correspondant de l'onglet "Récap".

merci d'avance de votre aide !

[ARTURO83]

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 :

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
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