Bonjour copie cellule dans tableau en VBA Excel

Résolu/Fermé
oups0031 Messages postés 3 Date d'inscription lundi 31 août 2015 Statut Membre Dernière intervention 2 septembre 2015 - 31 août 2015 à 17:07
oups0031 Messages postés 3 Date d'inscription lundi 31 août 2015 Statut Membre Dernière intervention 2 septembre 2015 - 2 sept. 2015 à 06:11
Bonjour,

Débutant VBA je cherche à copier une cellule d'un formulaire dans un tableau sur une autre feuille suivant le mois et le jours concernée ex: total vente du 21 janvier dans un tableau colonne "janvier" et ligne "21".
Merci de votre aide.
A voir également:

4 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 709
31 août 2015 à 22:00
Bonjour,

Si tu pouvais nous mettre un exemple de structure des données, sans éléments personnels, avec les résultats souhaités expliqués clairement, se serait plus facile de t'aider.
Pour communiquer ton classeur tu le télécharges sur https://www.cjoint.com/ (mode d'emploi) et tu mets ici le lien obtenu.
0
oups0031 Messages postés 3 Date d'inscription lundi 31 août 2015 Statut Membre Dernière intervention 2 septembre 2015
31 août 2015 à 23:02
Bonjour
http://www.cjoint.com/c/EHFu2hIhsWq

Voici le lien du fichier.
La cellule à copié est la D7 de la feuille Formulaire à copié dans la feuille Bilan Annuel est dans la case correspondant à la date donne un première feuille.
Merci de votre aide.
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 709
Modifié par gbinforme le 1/09/2015 à 09:49
Bonjour,

Avec une macro événementielle, ton tableau annuel sera mis à jour à chaque modification de D7 :

https://www.cjoint.com/c/EIbhW1PksXy
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
1 sept. 2015 à 09:26
Bonjour
Essayez ceci
Sub Copier()
    Application.ScreenUpdating = False
    Set F1 = Worksheets("Formulaire")
    Set F2 = Worksheets("Bilan Annuel")
    F2.Cells(Day(F1.[D2]) + 1, Month(F1.[E2]) + 1) = F1.[D7]
End Sub

Cdlt
0
oups0031 Messages postés 3 Date d'inscription lundi 31 août 2015 Statut Membre Dernière intervention 2 septembre 2015
2 sept. 2015 à 06:11
Merci Frenchie83

Je teste tes lignes de codes dans la journée.
Bien sympa en tout cas.
0