Tableau avec date

[ozone083]

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

 

[JHA]

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":

=SI(MOIS(H$14)=MOIS(AUJOURDHUI()-1);INDEX($D$3:$D$9;EQUIV($D15;$C$3:$C$9;0));"")

JHA

 

[ozone083]

Merci

En VBA, cela serait possible ?? et cela s'éxécuterait automatiquement ou il faudrait activer une macro ?

 

[JHA]

Bonjour à tous,

Je pense que cela est possible via une macro avec un bouton mais désolé, je ne suis pas bon avec le code VBA.
Attends un peu, une bonne âme va certainement te venir en aide.

JHA

 

[Jacky67]

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

 

[ozone083]

super.
Maintenant si les données à récupérer sont dans un autre onglet et que je dois remplir plusieurs tableaux, j'applique le même code ?

 

[Jacky67]

super.
Maintenant si les données à récupérer sont dans un autre onglet et que je dois remplir plusieurs tableaux, j'applique le même code ?

Re..
Exemple en PJ

 

[ozone083]

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]

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

 

[ozone083]

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

 

[Jacky67]

Argh je n'y arrive pas 🙁

Re..
En plus sur plusieurs années😕
La pj devrait faire

 

[ozone083]

Super cela fonctionne
Un grand merci pour la réactivité et surtout l'aide

 

[berenger]

Bonjour , je voudrais un tableau qui me permette d'inscrire des joueurs et faire le tirage merci

 

[Staple1600]

Bonjour

[berenger] (Bienvenue sur le forum)
Moi je voudrais une piscine et un ordinateur TRS-80 encore en état de fonctionnement, et avoir dans mon jardin une réplique au 1/10 de ce joli caillou

 

[Dranreb]

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é.