Remplir cellule par jour
likomolokolm
Messages postés
10
Statut
Membre
-
Pierre1310 Messages postés 8854 Statut Membre -
Pierre1310 Messages postés 8854 Statut Membre -
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.
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.
3 réponses
-
Bonjour,
oui c'est faisable mais écrivez dans votre tableau le format date et non 6 avril ce sera plus simple pour la macro.
-
-
si je mets ça tu sais m'écrire la macro que tu indique pour que cela fonctionne stp
-
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
-
