Tableau avec date

ozone083

XLDnaute Junior
Bonjour

Je dois remplir tous les mois des données qui proviennent d'un autre tableau A
Je souhaiterai automatiser le système : lorsqu'on arrive au mois N+1, les données du mois N sont "coller valeur" et les données du tableau d'entrée A remplissent la colonne du mois N+1...et ainsi de suite

Idéalement à faire via formule Excel et pas de VBA

Merci

Ps : fichier exemple en pièce jointe
 

Pièces jointes

  • Exemple.xlsx
    14.4 KB · Affichages: 32

JHA

XLDnaute Barbatruc
Bonjour à tous,


Par formule difficile car les mois précédents prendront les indications de la formule également.
Avant la fin du mois d'avril, il faut faire un copier de la plage "H15:H21" puis collage spécial /valeur
Cela permet de garder les données du mois et de modifier le tableau "A" pour le mois suivant.
Autrement, c'est du VBA.
la formule en "H15":
VB:
=SI(MOIS(H$14)=MOIS(AUJOURDHUI()-1);INDEX($D$3:$D$9;EQUIV($D15;$C$3:$C$9;0));"")

JHA
 

Pièces jointes

  • Exemple.xlsx
    14 KB · Affichages: 12

Jacky67

XLDnaute Barbatruc
Bonjour

Je dois remplir tous les mois des données qui proviennent d'un autre tableau A
Je souhaiterai automatiser le système : lorsqu'on arrive au mois N+1, les données du mois N sont "coller valeur" et les données du tableau d'entrée A remplissent la colonne du mois N+1...et ainsi de suite

Idéalement à faire via formule Excel et pas de VBA

Merci

Ps : fichier exemple en pièce jointe
Bonjour à tous
Une proposition par VBA en PJ
 

Pièces jointes

  • Exemple (1).xlsm
    22.1 KB · Affichages: 11

ozone083

XLDnaute Junior
Merci
Question : j'ai inséré un bouton de contrôle Active X auquel j'ai associé la macro
Cependant lorsque je l'execute, j'ai une erreur 424 "Objet Requis" au niveau de la partie surlignée


Private Sub CommandButton1_Click()
Dim C As Range
For Each C In Feuil4.Range("c4:by4") // Q? l'onglet dans mon fichier s'appelle BILAN et correspond à la 4eme feuille => est ce correct ?
If Month(C) = Month(Date) Then
Feuil3.[c24.c28].Copy C.Offset(1): Exit For
End If
Next
For Each C In Feuil4.Range("c12:by12")
If Month(C) = Month(Date) Then
Feuil3.[d42.d48].Copy C.Offset(1): Exit For
End If
Next
End Sub
 

Jacky67

XLDnaute Barbatruc
Merci
Question : j'ai inséré un bouton de contrôle Active X auquel j'ai associé la macro
Cependant lorsque je l'execute, j'ai une erreur 424 "Objet Requis" au niveau de la partie surlignée


Private Sub CommandButton1_Click()
Dim C As Range
For Each C In Feuil4.Range("c4:by4") // Q? l'onglet dans mon fichier s'appelle BILAN et correspond à la 4eme feuille => est ce correct ?
If Month(C) = Month(Date) Then
Feuil3.[c24.c28].Copy C.Offset(1): Exit For
End If
Next
For Each C In Feuil4.Range("c12:by12")
If Month(C) = Month(Date) Then
Feuil3.[d42.d48].Copy C.Offset(1): Exit For
End If
Next
End Sub

Re….
Dans mon exemple les noms de feuille utilisés sont les "CodeName" des feuilles
Par exemple dans l'exemple précédent (dans l'éditeur VBA)
Feuil2 (Data), pour la feuille Data, le CodeName est ==>Feuil2
Dans ce cas:
//* l'onglet dans mon fichier s'appelle BILAN*//
Le code name de Bilan se situe devant BILAN==>Feuilx (Bilan)
Cela a l'avantage de pouvoir renommer ou déplacer les feuilles sans avoir à modifier le code

Si cela pose problème, donne un exemple brouillon du classeur utilisé.


***
on peut également utiliser le nom des feuilles
For Each C In Sheets("BILAN").Range("c4:by4")

Mais si le nom change il faudra changer le code
 
Dernière édition:

ozone083

XLDnaute Junior
Argh je n'y arrive pas :(
Cela ne copie pas les bonnes données + ce n'est pas un copie valeur mais cela me copie la formule....

Voici le fichier détaillé
(cela concerne les onglets rouge)

Merci pour ton aide
 

Pièces jointes

  • ExempleComplet.xlsm
    392.4 KB · Affichages: 5

Dranreb

XLDnaute Barbatruc
Bonsoir.
Il y en a un ici, mais, avec si peu de précisions, il y a peu de chance qu'il convienne.
De plus, j'aurais pu ne pas voir cette intrusion dans une discussion n'ayant rien à voir avec ça.
Ouvrez votre propre discussion quand vous aurez un peu avancé.
 

Discussions similaires

Réponses
14
Affichages
639