Discussion :

[sasha2412]

Bonjour à tous

On me demande un tableau qui doit être établi sur 3 colonnes
date - temp matin - temp soir

ce tableau doit se remplir tout seul chaque jour, la date doit être celle du jour et les deux autres colonnes remplies de façon aléatoire d'un chiffre compris entre 1 et 16.

Au delà de la fonction "alea entre bornes" mon tableau est un peu plus compliqué. disons que temp matin doit s'inscrire vers 9h le matin et temp soir 18h. si le tableau est ouvert à 11h (par exemple) seule temp matin doit s'afficher.
je suppose qu'il faut ici une macro et là je ne sais pas faire
Est ce que cela est réalisable ? pouvez vous m'aider ?
merci par avance

[Pierre Dumas]

Bonjour

Il me semble qu'il faudrait un peu expliciter votre besoin.
Combien de lignes avez-vous besoin ?
Dans quel cas faut(il remplir la colonne temps matin ? Pareil pour temps soir ?
Les 2 colonnes doivent-elles être remplies ?
Si l'une est remplie que se passe t'il pour l'autre ?
Quelles valeurs pour l'une et l'autre ?
Etc

En fonction de ce que vous expliquerez, on pourra éventuellement vous proposer une solution.
Vous pouvez aussi faire une copie écran de votre besoin d'un tableau que vous rempliriez à la main.

Bonne fin de journée

Pierre Dumas

[sasha2412]

Bonsoir
Merci de me répondre si vite

Il faudrait que chaque jour la date du jour s'affiche dans sa cellule et chaque jour qui passe reste validé
Pour ce qui est des 2 autres colonnes, "matin" devrait se remplir vers 9h le matin d'un chiffre aléatoire (entre 1 et 16) et idem pour la colonne "soir" vers 18h- chaque journée passée et remplie doit rester figée et doit pouvoir être imprimé
le tableau doit être équivalent à un mois (donc 31 lignes)

merci

sasha

[Pierre Dumas]

Bonjour

D'après ce que j'ai compris de la demande, j'ai fait le code ci-dessous.
Dans la première colonne, on écrit la date complète, et non le numéro du jour. Ceci étant, un simple format ne fera apparaître que le numéro si c'est un besoin vital.
La macro ne se lance pas automatiquement, il faut cliquer sur un bouton en l'état actuel. On trouve facilement de quoi la lancer automatiquement si c'est nécessaire.
La macro ne fait pas de nettoyage chaque mois.
La macro ne fait qu'écrire dans la feuille courante. Donc attention à là où se situe la cellule active quand démarre la macro.
L'avantage (ou l'inconvénient) de ces deux derniers items est que l'on peut continuer d'inscrire les dates les unes en dessous des autres sans jamais s'arrêter (en restant donc dans la même feuille), ou d'avoir les valeurs qui s'inscrivent dans la feuille désirée (donc par exemple une feuille par mois, par trimestre, par période scolaire, ...).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub UnAlea()
Dim LigMax As Integer
 
LigMax = Range("A" & Rows.Count).End(xlUp).Row 'Cherche, et stocke, la dernière ligne écrite
 
If Time >= TimeValue("8:30") And Time < TimeValue("9:30") Then 'Vérifie si on est bien le matin dans le créneau choisi
   If Cells(LigMax, 1).Value < Date Or LigMax = 1 Then 'La date du jour n'est pas inscrite
      Cells(LigMax + 1, 1) = Date 'Inscrit la date du jour colonne A
      Cells(LigMax + 1, 2) = Application.WorksheetFunction.RandBetween(1, 16) 'Inscrit une valeur aléatoire entre 1 et 16 dans temp matin
   End If
ElseIf Time >= TimeValue("17:30") And Time < TimeValue("18:30") Then 'Vérifie si on est bien l'après-midi dans le créneau choisi
   If Cells(LigMax, 1).Value = Date And IsEmpty(Cells(LigMax, 3).Value) = True Then 'la date de jour est déjà inscrite, mais pas la valeur temp soir
      Cells(LigMax, 3) = Application.WorksheetFunction.RandBetween(1, 16) 'Inscrit une valeur aléatoire entre 1 et 16 dans temp soir
   End If
   If (Cells(LigMax, 1).Value < Date Or LigMax = 1) Then 'la date du jour n'est pas inscrite
      Cells(LigMax + 1, 1) = Date 'Inscrit la date du jour colonne A
      Cells(LigMax + 1, 3) = Application.WorksheetFunction.RandBetween(1, 16) 'Inscrit une valeur aléatoire entre 1 et 16 dans temp soir
   End If
End If
 
End Sub

En espérant que cela corresponde à votre besoin

Bonne journée

Pierre Dumas

[sasha2412]

Bonjour,

Merci beaucoup pour ce travail, je travaille ce soir, je vais regarder tout cela cette nuit. J'aurai aimé être capable de jongler ainsi avec VBA.

c'est très gentil d'avoir pris la peine de m'aider

grand merci

[sasha2412]

bonjour,

Je continue de travailler à la réalisation de mon tableau. Mon cerveau ayant décidé que VBA ne ferait pas partie de ses connaissances (je voudrai réellement savoir me débrouiller un minimum) je suis donc partie dans l’élaboration de formules.
L’idée :
En données « source » j’ai déjà établi une liste des chiffres et heures aléatoires.
La date du jour s’affiche automatiquement, puis quand l’heure de A2 est égale et supérieure à D3 de l’onglet source, l’heure s’affiche automatiquement et dès que la cellule n’est plus vide le chiffre « temp » vient s’afficher
Idem pour les colonnes du soir.

J’ai tenté toutes sortes de formules mais on dirait que le format heure empêche les colonnes C & E de s’indexer à A2

j'ai essayé aussi une MFC mais reste toujours le problème de reconnaissance des heures, ou de mon incompétence en la matière....

J’ai conscience que mon tableau est très lourd et que une petite macro serait plus pratique, mais je ne sais pas faire…
Ps j’ai aussi essayé de mettre une horloge sans bouton mais le curseur se mets parfois à clignoter dans les cellules et excel ne fonctionne plus très bien

merci d'avance si quelqu'un peut m'aider avec formules ou macro

sasha

[Pierre Dumas]

Bonjour

Je suis désolé, j'ai essayé, mais je ne comprends pas ce qu'il faut faire. J'ai même pris le risque d'ouvrir le classeur avec macro, mais cela n'a pas été mieux.

Peut-être que quelqu'un d'autre...

Pierre Dumas

[sasha2412]

Bonjour

peut être suis je un peu confus dans mes explications- j'ai retravaillé le fichier exemple dans lequel j'avais laissé trace de plusieurs tentatives de formules
si je prend l'exemple de ce jour :
1-a minuit la cellule janvier B11 se met sur la date du jour 09/01/2020
2- dans les données sources on peut voir que le 09/01 l'heure du matin est sur 08:41
ce que je cherche à obtenir c'est que le 09/01 dès que l'heure est égale ou supérieure à 8:41 cette heure s'affiche dans la cellule Janvier C11 suivi du chiffre de la cellule source C11
c'est pour cela que j'ai mis cette horloge en janvier A2
les formules que j'ai laissé dans le fichier exemple ne marchent pas
même une MFC pourrait convenir (j'ai essayé aussi) du moment que les données de chaque journée s'affichent dans le bon ordre
mais peut être que j'ai choisi le mauvais chemin ou que seule une macro pourrait convenir
en tout cas merci d'y avoir consacré du temps
excel formules - 21122019 (1).xlsmexcel formules - 21122019 (1).xlsmexcel formules - 21122019 (1).xlsmexcel formules - 21122019 (1).xlsm