Macro copier coller de tableau avec Inputbox Date
Résolu
Philip1605
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
Philip1605 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Philip1605 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Macro copier coller de tableau avec Inputbox Date
- Tableau word - Guide
- Historique copier coller - Guide
- Tableau ascii - Guide
- Copier-coller - Accueil - Informatique
- Copier coller pdf - Guide
1 réponse
Bonjour,
Si c'est la date d'aujourd'hui, pourquoi demander à la saisir ?
A+
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+
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
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+
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