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.
A voir également:
- Remplir cellule par jour
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Proteger cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Mettre a jour chromecast - Accueil - Guide TV et vidéo
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.
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
Statut
Membre
c'est déjà en format date, mais est-ce possible sans macro ?
Pierre1310
Messages postés
8854
Statut
Membre
652
Mais écrire 06/04/2016 à la place de 6 avril.
likomolokolm
Messages postés
10
Statut
Membre
>
Pierre1310
Messages postés
8854
Statut
Membre
d'accord ça n'est pas un problème
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
