Macro : copier dans tableau

Bonjour,

Afin d'éviter de faire des erreurs de saisie dans un tableau Pivot qui deviendra la source d'informations pour divers rapports, je souhaiterai dans une autre feuille remplir une ligne de saisie et qu'à travers une macro ces informations soient copiées dans le Pivot.

Vous trouvez un exemple dans le fichier joint.

L'objectif est que la ligne de saisie copiée dans le tableau soit définitive.

Ainsi lors de chaque saisie, celle-ci s'ajoute au fur et à mesure dans le tableau.

Je n'ai rien trouver dans le forum qui puisse m'aider, et les macros et moi c hard …

Un grand merci pour votre aide sur le sujet !

A bientôt

Bonsoir,

une macro pour la copie.

Sub validation()
Set wsc = Worksheets("Pivot")
Set wss = Worksheets("Saisie")
dlwsc = wsc.Range("A" & Rows.Count).End(xlUp)
wss.Range("C7:K7").Copy wsc.Range("A" & dlwsc + 1)
Set wsc = Nothing
Set wss = Nothing
End Sub

Bonjour,

Merci pour votre réponse mais j'ai peur de ne pas bien comprendre.

Le code que vous m'avez envoyé est juste une partie de code et n'est utile que pour la copie ?

Désolé mais je suis un vrai néophyte sur VBA …

Pourriez-vous m'en dire un peu plus sur la copie dans la "première ligne" dispo dans le tableau "Pivot" ?

Je vous remercie pour votre aide !

Bonjour,

il s'agit bien de la macro à associer au bouton que tu as créé.

Sub validation()
'wsc fait référence à la feuille pivot
Set wsc = Worksheets("Pivot")
'wss fait référence à la feuille saisie
Set wss = Worksheets("Saisie")
'dlwsc contient le numéro de la dernière ligne utilisée dans la feuille  wsc
dlwsc = wsc.Range("A" & Rows.Count).End(xlUp)
' on copie c7 à K7 de wss vers wsc sur la dernière ligne +1
wss.Range("C7:K7").Copy wsc.Range("A" & dlwsc + 1)
' et c'est tout
Set wsc = Nothing
Set wss = Nothing
End Sub

Bonjour,

Ok désolé, vous m'aviez déjà tout envoyé … merci ...

J'ai créé la macro, copier et assigner celle-ci au bouton 'MACRO'.

J'ai fais plusieurs tests avec des dates ≠, lorsque j'appuie sur le bouton les lignes ne se copient dans l'onglet "Pivot".

Est-ce que cela fonctionne parfaitement de votre côté ? Dois-je modifier quelque chose dans la macro ?

Merci de vore patience !

bonsoir,

la ligne a bien été ajoutée mais en ligne 2014.

il manque un .row dans une des instructions. voici le code corrigé

Sub validation()
'wsc fait référence à la feuille pivot
Set wsc = Worksheets("Pivot")
'wss fait référence à la feuille saisie
Set wss = Worksheets("Saisie")
'dlwsc contient le numéro de la dernière ligne utilisée dans la feuille  wsc
dlwsc = wsc.Range("A" & Rows.Count).End(xlUp).row
' on copie c7 à K7 de wss vers wsc sur la dernière ligne +1
wss.Range("C7:K7").Copy wsc.Range("A" & dlwsc + 1)
' et c'est tout
Set wsc = Nothing
Set wss = Nothing
End Sub

Bonsoir,

Une petite merveille, cela marche parfaitement !

Un grand merci pour votre aide !

A bientôt