Remplir cellule par jour

Fermé

likomolokolm Messages postés 10 Date d'inscription mercredi 6 avril 2016 Statut Membre Dernière intervention 6 avril 2016 - 6 avril 2016 à 10:10
Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 - 6 avril 2016 à 12:18

Bonjour,

je débute sur excel et j'aimerais savoir si il était possible, en modifiant uniquement le petit encadré en haut de l'image, de modifier les cases en dessous? je spécifie que j'aimerais bien que lorsque la date change, les valeurs transférées dans la table du bas restent enregistrées. Je ne sais pas si c'est faisable en utilisant seulement des fonctions excel mais si c'est possible j'aimerais beaucoup.

A voir également:

Remplir cellule par jour
Aller à la ligne dans une cellule excel - Guide
Mettre à jour ses pilotes - Guide
Remplir et signer pdf - Guide
Excel cellule couleur si condition texte - Guide
Verrouiller cellule excel - Guide

3 réponses

Réponse 1 / 3

Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
6 avril 2016 à 10:16

Bonjour,

oui c'est faisable mais écrivez dans votre tableau le format date et non 6 avril ce sera plus simple pour la macro.

likomolokolm Messages postés 10 Date d'inscription mercredi 6 avril 2016 Statut Membre Dernière intervention 6 avril 2016
Modifié par likomolokolm le 6/04/2016 à 10:18

c'est déjà en format date, mais est-ce possible sans macro ?

Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
6 avril 2016 à 10:19

Mais écrire 06/04/2016 à la place de 6 avril.

likomolokolm Messages postés 10 Date d'inscription mercredi 6 avril 2016 Statut Membre Dernière intervention 6 avril 2016 > Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020
6 avril 2016 à 10:24

d'accord ça n'est pas un problème

Réponse 2 / 3

likomolokolm Messages postés 10 Date d'inscription mercredi 6 avril 2016 Statut Membre Dernière intervention 6 avril 2016
6 avril 2016 à 10:35

Voila

Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
6 avril 2016 à 10:47

Maintenant ba c'est facile faut juste faire un test.

likomolokolm Messages postés 10 Date d'inscription mercredi 6 avril 2016 Statut Membre Dernière intervention 6 avril 2016
6 avril 2016 à 10:53

mais quelles formules dois-je indiquer ?

Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
6 avril 2016 à 11:02

tu écris dans chaque celllule

=si(cellule du tableau = date;tu fais ta copie;)

likomolokolm Messages postés 10 Date d'inscription mercredi 6 avril 2016 Statut Membre Dernière intervention 6 avril 2016
6 avril 2016 à 11:19

le problème c'est que quand je fais ça, si la date est passée, les cellules se vident

Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
6 avril 2016 à 11:25

Alors tu peux faire une macro toute simple.

Réponse 3 / 3

likomolokolm Messages postés 10 Date d'inscription mercredi 6 avril 2016 Statut Membre Dernière intervention 6 avril 2016
6 avril 2016 à 12:11

si je mets ça tu sais m'écrire la macro que tu indique pour que cela fonctionne stp

Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
6 avril 2016 à 12:18


dim dateDuJour as String
dim i as integer

Range("A1:A2).Select
Selection.UnMerge

Range("A10:B10).Select
Selection.UnMerge

Range("C10:D10).Select
Selection.UnMerge

Range("E10:F10).Select
Selection.UnMerge

dateDejour = cells(1,1).value

for i = 0 to 366
if(10, i) = dateDuJour)then

cells(11,3).value = cells(3,1).value
cells(12,3).value = cells(4,1).value
cells(13,3).value = cells(5,1).value
cells(11,4).value = cells(3,2).value
cells(12,4).value = cells(4,2).value
cells(13,4).value = cells(5,2).value

end if
next i

Range("A1:A2).Select
With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge

Range("A10:B10).Select
With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge

Range("C10:D10).Select
With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge

Range("E10:F10).Select
With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge

Essaye ça pour voir

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).

Que peut faire 3fois/j un homme, mais qu'1fois/j une femme

Excel si cellule contient texte alors...

Discussions similaires

Newsletters