Macro copier coller de tableau avec Inputbox Date [Résolu/Fermé]

Signaler
Messages postés
4
Date d'inscription
vendredi 24 août 2018
Statut
Membre
Dernière intervention
28 août 2018
-
Messages postés
4
Date d'inscription
vendredi 24 août 2018
Statut
Membre
Dernière intervention
28 août 2018
-
Bonjour,

Je cherche a créer une macro capable de copier coller un tableau à l'appui d'un bouton simplement.

A l'appui du bouton, la macro m'affiche une InputBox demandant la date d'aujourd'hui. Celle ci doit venir se coller en D24 avec tout le reste du tableau (A3:BL23). Cette manipulation doit être refaite tout les jours sans effacer les données précédentes. En gros, 21 lignes doivent s'ajouter aux tableau tout les jours, à la suite des jours précédents.

Quelqu'un ici peut-il m'aider à réaliser cette macro ?

Dans tout les cas merci beaucoup de votre temps et de votre patience !

Cordialement,
Philip

1 réponse

Messages postés
1941
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
23 août 2020
149
Bonjour,

Si c'est la date d'aujourd'hui, pourquoi demander à la saisir ?

Sub essai()
    Dim DerniereLigne As Long 
    DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
    Range("A3:BL23").Select
    Selection.Copy
    Cells(DerniereLigne+1,1).Value=Date
    Cells(DerniereLigne+2,1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub


A+
Messages postés
4
Date d'inscription
vendredi 24 août 2018
Statut
Membre
Dernière intervention
28 août 2018

Bonjour Zoul67,

Merci pour ta réponse !!
Malheureusement cette macro ne copie pas les formules au sein des cellules ainsi que le format des cellules.
Elle copie également simplement la date précédente sans me demander l'ajout de la prochaine date.

Dans tout les cas merci pour ton temps et ton intérêt porté à mon problème.
Cordialement,
Philip
Messages postés
1941
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
23 août 2020
149
Bonjour,

Les défauts que tu cites, je les ai codés exprès de cette façon :
- collage valeurs pour ne pas dépendre des formules, sinon les valeurs bougent le lendemain si j'ai bien compris ;
- InputBox demandant la date d'aujourd'hui, donc plutôt que de faire un InputBox, ça colle directement la date d'aujourd'hui (d'exécution de la macro).

A+
Messages postés
4
Date d'inscription
vendredi 24 août 2018
Statut
Membre
Dernière intervention
28 août 2018

Re-Bonjour Zoul67,

J'ai réussi à résoudre le problème (il faut que je pense à fermer le sujet)!
Merci de ton temps en tout cas.
Cordialement,
Philip