Macro copier coller de tableau avec Inputbox Date
Résolu
Philip1605
Messages postés
4
Statut
Membre
-
Philip1605 Messages postés 4 Statut Membre -
Philip1605 Messages postés 4 Statut Membre -
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
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
-
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+-
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 -
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+ -
-
