Report de données variant selon la date

Bonjour à tous,

Alors je vais déjà vous avouer que vous êtes mon derniers recours avant la pendaison sous access

Je cherche à reporter les données affectés à une date de jour (stat de production) dans un autre tableau qui reporte toute les valeur associé au date sur le mois.

Dans ma première feuille où il y a mes données juste pour la journée :

en colonne j'ai m'a date de la journée, et sur la même ligne j'ai la somme de toute la production pour quaque service.

Dans ma seconde feuille :

en colonne j'ai toute mes dates du mois, mais sur la ligne de chaque date j'arrive juste à reporté les données par soit un copier/coller bete et méchant manuel, ou avec une fonction si tel que : = =SI($A5='STAT JOUR REDACTION'!$B$3;'STAT JOUR REDACTION'!$P$6;" " )

Et bien évident, vue que sur la première feuille c'est juste la production de la journée, la date de la journée change, et dans ma seconde feuille je me retrouve avec les bonne données mais qui change juste de ligne à cause de ma fonction si

Donc est-ce que quelqu'un pourrait m'aider à automatiser ca (c'est mon rapport de mission et là je cale)

Existe-t-il une fonction capable de comme la fction SI reporter mes données, mais qui pourré les figer? Une fonction LORSQUE, ou ENREGISTRERDONNEES,

Là je sais plus quoi faire, en plus que les macros complémentaire sont bannis, je galère comme pas permit.

En espèrant que un dieux Excel puisse sauvée mon manque de connaissance...

Merci à tousssss

Bonjour et bienvenu,

Merci de joindre ton fichier si possible.

Je doit t'avouer que malgrès mes brins de connaissances excel, pour les macro j'y connais rien enfaite, et le problème est que pour le service pour lequelle je monte ce dossier n'ont pas ces macros

Merci d'avance, et merci encore de m'éviter la pendaison

Rebonjour,

Je désespère

¨Personne n'a d'idée?

Re,

Je ne suis spécialiste en VBA. Comme personne propose une solution, j'y vais. Ci-joint ton fichier en retour. J'espères que cela va t'aider. A tester et à revenir avec plus de précisions si ce n'est pas cela que tu cherches à obtenir.

Fichier Joint

Avertissement !!! : La macro est conçue par rapport à tes données actuelles. Si ces paramètres changent, elle n'est sûre de fonctionner correctement.

Ton message est comme la lumière en haut de la montagne (j'en invente des expression pour te dire)

Tu as réussi à me déchiffrer, car j'avais vraiment du mal à expliquer mon problème.

Ta macro est parfaite!

Je dois juste mettre un petit mais : je suis nul en macro, et quand je l'est reproduite dans mon fichiers original, en changeant le nom des feuille et le chiffre des ligne, la macro à fonctionner à cela prêt que dans la feuille des stat du mois je me retrouve qu'avec des 0 afficher à la date, et là je bloc un peu? Où est-je foirée?

J'ai reproduit ta macro sous le nom magnifique et poétique : "copie" et fait un copier coller tel que :

Option Explicit

Sub Copie()

On Error Resume Next

Dim Lig As Byte

Sheets("STAT JOUR REDACTION").Select

Lig = WorksheetFunction.Match(Range("A39"), Sheets("STAT MOIS REDACTION").Range("A6:A40"), 0)

Range("B39:V39").Copy Destination:=Sheets("STAT MOIS REDACTION").Range("B" & Lig + 5)

If (Lig <> 0) Then

MsgBox "Traitement terminé avec succès"

Else

MsgBox "La date n'existe pas. Traitement abandonné."

End If

End Sub

Je t'implore une fois à genoux, et me jette meme des gravillons dessus, mais j'ai encore besoin de ta lumière s'il te plait?

En tout cas merci encore d'avoir bien voulu jetter un oeil à mon doc, merci merci et encore mille fois merci

bonjour,

on peut aussi le voir comme ça :

Sub galopin()
Dim i As Byte, j As Byte
i = Day(Sheets("STAT JOUR REDACTION").Range("A39")) + 5
With Sheets("STAT MOIS REDACTION")
For j = 1 To 22
.Cells(i, j) = Sheets("STAT JOUR REDACTION").Cells(39, j)
Next
End With
End Sub

A+

Re, Salut galopin01,

Il faut faire très attention en copiant le code.

Dans la cinquième ligne le code doit être :

Sheets("Feuil1").Select

ou bien le nom de la feuille dans laquelle le clique s'effectue(la feuille source ou la feuille copie).

et non pas

Sheets("STAT JOUR REDACTION").Select

qui est une feuille de destination ou collage

meeeeeeeeeeeeeeeerccccccccccccciiiiiiiiiiiiiiiiiii

ca marche, le miracle excel revisité! honnetement sans vous j'aurais étais plus que coincée donc encore plus que merci!

je vous offre une trinquade virtuel et vous cite comme aide essentiel dans l'aboutissement de mon projet!

merci encore

bonjour,

sonoodle :

De la ligne 6 à la ligne 40 ça fait quand même beaucoup de jour pour un simple mois de Décembre...

Raja : Chez Galopin les Select sont bannis ! (J'suis tombé dedans quand j'étais petit... depuis ça m'est interdit !)

Comme notre ami ne semblait pas trop fixé sur le nombre de jours du mois de décembre, j'ai préféré ce système qui postule que le 1 du mois est toujours sur la sixième ligne, le 2 sur la septième... et le 31 sur la 36 ème !

A+

Re galopin01,

Chez Raja, l'interdiction est interdite. Comme ça, chacun est bien chez soi, et les moutons sont bien gardés.

PS : Je suis d'accord pour dire que Select n'est pas absolument nécessaire. Mais de dire que c'est interdit...... tu ne trouves pas que c'est mal proportionné ?

Pour le reste de réflexion, je suis d'accord avec toi. Mais notre ami commun s'en sort comme ça.....on verra à la suite.

bonsoir,

J'ai un copain qu'était tombé aussi dans la potion magique quand il était petit et depuis il n'a plus droit non plus...

T'inquiète pas : C'est juste une référence littéraire !

A+

Re galopin01,

N'oublie pas que j'habite dans une ville qui s'appelait autrefois LUGDUNUM qui est la capitale des Gaules (par rapport à ta potion magique).

T'inquiète pas : c'est une référence historique !.

Et ben rebonjour tout le monde....

Me revoilà, la queue entre les jambes après mon retour au travail.

J'ai a nouveau un soucis, et après mille vaine tentative macrotique, j'arrive pas à reproduire le meme système mais en convertissant cette fois ci des données en colonnes, vers une meme feuille de synthèse mensuel qui les répertorie en ligne.

Ma dernière tentative c'est arrété à ca :

Sub INC()

Dim i As Byte, j As Byte

j = Day(Sheets("STAT JOUR REDACTION").Range("T6:t14")) + 3

With Sheets("INCOMPLETUDE")

For j = 1 To 10

.Cells(i, j) = Sheets("STAT JOUR REDACTION").Cells(i, t)

Next

End With

End Sub

Je sais que c'est pas le moment pour ce préocuper de ca, mais si un papa excel noel passe par là....

voici le doc, en rouge les cellule pour lesquelles je cherche à faire quelque chose

Je vous remercie encore d'avance et vous souhaites à tous, un excellent noel!

bonjour,

Sur ta planète ya toujours 36 jours au mois de Décembre C'est encore un coup pour nous faire travailler plus !

Sub INC()
Dim i As Byte, j As Byte
With Sheets("STAT JOUR REDACTION")
j = Day(.Range("T5")) + 3
For i = 1 To 10
Sheets("INCOMPLETUDE").Cells(j, i) = .Cells(i + 4, 20)
Next
End With
End Sub

A+

Dire que j'attendais le message depuis des jours, et que je viens juste d'avoir le réflexe de checké le post.

Galopin, tu me donne envie de te chanter des chansons, deux coup que tu assure comme pas permit (j'en perd mon latin, grec, et russe!)

Merci encore mille fois, je sais même pas comment te remercier!

"Aider les jeunes demoiselles en détresses", voilà ce que tu pourras dire ce soir, si on te demande ce que tu as fait de bien cette année!

Merci encore

et d'excellentes fêtes à tous!