Macro copier coller de tableau avec Inputbox Date

Résolu/Fermé

Philip1605 Messages postés 4 Date d'inscription vendredi 24 août 2018 Statut Membre Dernière intervention 28 août 2018 - Modifié le 27 août 2018 à 16:12
Philip1605 Messages postés 4 Date d'inscription vendredi 24 août 2018 Statut Membre Dernière intervention 28 août 2018 - 28 août 2018 à 16:07

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

A voir également:

Macro copier coller de tableau avec Inputbox Date
Tableau croisé dynamique - Guide
Tableau ascii - Guide
Copier coller pdf - Guide
Tableau word - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

1 réponse

Réponse 1 / 1

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
27 août 2018 à 18:25

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+

Philip1605 Messages postés 4 Date d'inscription vendredi 24 août 2018 Statut Membre Dernière intervention 28 août 2018
28 août 2018 à 10:01

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

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
28 août 2018 à 16:01

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+

Philip1605 Messages postés 4 Date d'inscription vendredi 24 août 2018 Statut Membre Dernière intervention 28 août 2018
28 août 2018 à 16:07

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

Discussions similaires

Dessiner avec son clavier et avec des lettres

Comment faire le signe de croix (chrétiens) ?

dessin au clavier cannabis