Copier le contenu d'une cellule en fonction de la date d'une feuille...

B

Betty blue

XLDnaute Nouveau
Bonjour,

Nouvel utilisateur sur ce forum même si je suis tres souvent passé via ce forum en invité pour y trouver mon bonheur, aujourd'hui je seche un peu ...

Pour l'explication du problème:

Dans un premier tableau je dois remplir des données en fonction de la date du jour(=aujourdhui() ) et ces données doivent alimenter un autre tableau de synthèse mensule qui récupère toute ces données en fonction du jour.

J'ai bien essaye la fonction =SI et EXACT mais je ne pense pas que cela soit la bonne car il remplit bien les cellules en fonction de la date du jour mais ne les enregistrent pas donc le jour d'après elles sont supprimées..... forcement :eek:

Est ce que cela a été clair ?

Dans l'attente de vos réponses

a bientot
 
Trier par date Trier par votes
K

Kiseki

XLDnaute Occasionnel
Re : Copier le contenu d'une cellule en fonction de la date d'une feuille...

Bonjour,

Merci pour le fichier, j'ai refait les en-tête de la deuxième feuille en fonction de la première.

Blocage des volets.

Le code est celui-ci :

VB: 
Sub copiage()
    Dim vj As Worksheet, sm As Worksheet, j As Byte, l As Byte
   
    Set vj = Worksheets("verification journalière")
    Set sm = Worksheets("Synthese juillet 11")
    
    j = Day(vj.[B3]) + 2
    l = 6
    
    'Feuille du mois
    'g = MonthName(Month(vj.[B3]))
    'MsgBox g
    'sm.[B1] = MonthName(Month(vj.[B3]))

    
    'Contenu
    For i = 4 To 39 Step 5
    
    sm.Cells(j, i) = vj.Cells(l, 6) 'Kms
    sm.Cells(j, i + 1) = vj.Cells(l, 5) 'Hrs
    sm.Cells(j, i + 2) = vj.Cells(l, 2) 'Vérificateur
    sm.Cells(j, i + 3) = vj.Cells(l, 3) 'Observations
    sm.Cells(j, i + 4) = vj.Cells(l, 4) 'État carrosserie
    
    l = l + 1
    Next
    
    'Remise
    sm.Cells(j, i) = vj.Cells(l, 2) 'Vérificateur
    sm.Cells(j, i + 1) = vj.Cells(l, 3) 'Observations
    
    'Grade et nom
    sm.Cells(j, i + 2) = vj.[E3] 'Garde remise
    sm.Cells(j, i + 3) = vj.[G3] 'Chef de garde
    
    'Activation de la ligne du jour enregistrer
    sm.Activate
    sm.Cells(j, 4).Select
End Sub


On peux rajouter la création auto de la feuille suivant le mois etc, bref que tu n'ai qu'a encoder tes engins sans te soucier du reste, mais je n'ai plus le temps pour le moment.

Le code est sans doute améliorable.
 

Pièces jointes

  • Betty blue de tabelau forum.xls
    63.5 KB · Affichages: 55
Vote positif 0 Vote négatif
B

Betty blue

XLDnaute Nouveau
Re : Copier le contenu d'une cellule en fonction de la date d'une feuille...

Kiseki à dit:
Bonjour,

Merci pour le fichier, j'ai refait les en-tête de la deuxième feuille en fonction de la première.

Blocage des volets.

Le code est celui-ci :

VB: 
Sub copiage()
    Dim vj As Worksheet, sm As Worksheet, j As Byte, l As Byte
   
    Set vj = Worksheets("verification journalière")
    Set sm = Worksheets("Synthese juillet 11")
    
    j = Day(vj.[B3]) + 2
    l = 6
    
    'Feuille du mois
    'g = MonthName(Month(vj.[B3]))
    'MsgBox g
    'sm.[B1] = MonthName(Month(vj.[B3]))

    
    'Contenu
    For i = 4 To 39 Step 5
    
    sm.Cells(j, i) = vj.Cells(l, 6) 'Kms
    sm.Cells(j, i + 1) = vj.Cells(l, 5) 'Hrs
    sm.Cells(j, i + 2) = vj.Cells(l, 2) 'Vérificateur
    sm.Cells(j, i + 3) = vj.Cells(l, 3) 'Observations
    sm.Cells(j, i + 4) = vj.Cells(l, 4) 'État carrosserie
    
    l = l + 1
    Next
    
    'Remise
    sm.Cells(j, i) = vj.Cells(l, 2) 'Vérificateur
    sm.Cells(j, i + 1) = vj.Cells(l, 3) 'Observations
    
    'Grade et nom
    sm.Cells(j, i + 2) = vj.[E3] 'Garde remise
    sm.Cells(j, i + 3) = vj.[G3] 'Chef de garde
    
    'Activation de la ligne du jour enregistrer
    sm.Activate
    sm.Cells(j, 4).Select
End Sub


On peux rajouter la création auto de la feuille suivant le mois etc, bref que tu n'ai qu'a encoder tes engins sans te soucier du reste, mais je n'ai plus le temps pour le moment.

Le code est sans doute améliorable.
Cliquez pour agrandir...

Re-bonjour,

Concernant cette ligne de commande celle-ci ne fonctionne que pour le mois de juillet en fait ?
 
Vote positif 0 Vote négatif
K

Kiseki

XLDnaute Occasionnel
Re : Copier le contenu d'une cellule en fonction de la date d'une feuille...

Bonjour,

Pour la feuille définie ici :

Code: 
Set sm = Worksheets("Synthese juillet 11")

Il suffit juste de reprendre le mois de la date en cour pour créer une feuille et/ou remplir celle qu'il faut.


De la les n° de semaine et le mois aussi ce mettrai convenablement à jour.



Le tout pour que tu n'ai plus rien à faire d'autre qu'encoder les valeurs.



Je n'ai guère le temps pour le moment, en attendant il te suffis de renommer cette ligne et de créer la nouvelle feuille manuellement en copiant la dernière.
 
Vote positif 0 Vote négatif
B

Betty blue

XLDnaute Nouveau
Re : Copier le contenu d'une cellule en fonction de la date d'une feuille...

Bonjour,

je revenais vers vous sur ce projet je peche sur un truc tout bete je pense mais j'aurais besoin de vos lumieres a vrai dire ... en fait au lieu de creer une feuille par mois je voudrais tout compiler sur la meme feuille mais j'ai beau changer dans tout les sens la macro je me retrouve toujours avec le meme constat => passé la fin du mois il n'enregistre pas la ligne

une âme charitable pourrait m'eclairer ?

Merci d'avance
 
Vote positif 0 Vote négatif

Discussions similaires

X
  • Question
XL 2010 copier la valeur d'une cellule, si date du jour correspond à la date de la colonne...
Réponses
1
Affichages
316
djidji59430
djidji59430
C
  • Question
Microsoft 365 Cellule en couleur si la date du jour est dépassée
Réponses
6
Affichages
387
clemence.cordonnier
C
G
  • Question
XL 2016 Répartition mensuelle de la charge par équipe en fonction d'une date de début et d'une date de fin
Réponses
4
Affichages
388
Lolote83
L
T
  • Question
XL 2016 copier coller les données d'une feuille vers une autre en fonction de la date du jour
Réponses
2
Affichages
517
therse
T
D
  • Question
XL 2016 Création d'une alerte en fonction de la date d'un envoi
Réponses
3
Affichages
409
sylvanu
sylvanu
C
  • Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
2
Affichages
254
clausen
C
_l_ours
  • Résolu(e)
XL 2016 Créer une feuille si elle n'existe pas + Copier une plage de cellule d'une feuille à l'autre
Réponses
9
Affichages
264
_l_ours
_l_ours
JpGraph
  • Résolu(e)
Microsoft 365 Recherche d'une date dans un tableau composé de plages de dates
Réponses
8
Affichages
345
JpGraph
JpGraph
D
  • Question
Microsoft 365 Remplir les cellules en fonction d'une date d'arrivée et d'une date de départ
Réponses
2
Affichages
453
de_hanstrapp
D
P
  • Question
XL 2016 Modifier le contenu de cellules en fonction d'autres cellules
Réponses
3
Affichages
271
job75
job75

Membres actuellement en ligne

5 membres et 115 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 499
Messages
2 088 999
Membres
104 001
dernier inscrit
dessinbecm