Affichage de la date et de l'heure
Bonjour a tous, Forum bonjour,
Sur mon fichier en FEUIL2 ci-joint, je souhaiterai svp afficher la date et l'heure en colonne (A).
Voir svp le commentaire dans le fichier.
Un bon dimanche de printemps a vous.
Cdlt Ray
Salut François,
Merci bien de ta réponse,
Si possible svp d'avoir la première lettre du jour en Rouge et le ( & ) qui sépare la date de l'heure et pas de zéro devant le chiffre indiquant l'heure.
Bonne après midi a toi et merci bien.
Cdlt Raymond
il n'y a pas de zéro devant l'heure et le 1er caractère est en rouge
A+ François
Salut François,
ca ne fonctionne pas, je n'ai pas la première lettre majuscule comme ceci
Ex: Dimanche 20 Mars 2022 & 18:15:22 donc en gras "D M &" en rouge et pas de zéro devant les heures
j'ai essayer d'adapter la macro que tu m'a mis mais hélas
Bonne fin d'après midi a toi et merci
Cdlt Ray
Salut François,
Merci pour ta réponse,
Alors ca fonctionne, SAUF pour le signe "&" en Rouge qui sépare la date / de l'heure.
J'ai bien essayer de comprendre ton code pour mettre le signe "&" en rouge mais ca ne marche pas
si tu pouvais voir ca svp, merci.
Bonne journée a toi
Cdlt Ray
Salut François,
Merci pour ta réponse,
ça marche nickel, je n'ai pas été plus loin que le bout de mon nez, c'était pas la ou je pensais, bon l'essentiel ca fonctionne et très bien.
Merci a toi, je te souhaite un bon app vu l'heure ainsi qu'une bonne journée.
Je signe "Fin de chantier" d'un résolu
Bien cordialement Raymond
Salut François,
Je viens d'effacer volontairement les dates et données du fichier afin de repartir sur du propre
j'ai enregistrer une feuille vide et quand j'ai relancer le fichier la date aurai s'afficher en A2 mais non impossible car
ça s'affiche en A8
Je n'arrive plus a repartir avec une feuille vide, sinon le reste fonctionne.
Bonne soirée a toi
Cdlt Ray
C'est logique A2 c'est dimanche, A8 c'est Lundi... et on est Lundi
A+ François
Re François,
Ok et on peux résoudre ça comment si possible ???
Le but une fois rempli est d'effacer et on recommence
C'est juste un suivi sur une période.
Cdlt Ray
Re François,
Bon ça m'a l'air de fonctionner, on verra bien.
Donc a la fin du remplissage, je vais devoir effacer tous pleins de cellules.
J'ai pas trop envie a chaque fois de les effacer une a une, si tu a une façon de faire rapide ???
Je voulais créer un bouton sur la feuil avec une macro pour effacer en une seule fois toutes les cellules ci-dessous
si c'est possible bien sur.
Bonne soirée a toi
Cdlt Ray
A2-A8-A14 et A22-A27-A33 Colonne des dates et heures
B1:D15 + F3:H5 Données
B9:D11 + F9:H11
B15:D17 + F15:H17
------
B23:D25 + F23:H25 Données
B29:D31 + F29:H31
B35:D37 + F35:H37
Salut François,
Merci pour le petit code enfin petit déjà pas mal pour effacer quelques cellules.
Mais bon l'avantage ca se fait rapide et en une seule fois et cela réponds a mon besoin.
Je passe en résolu demain au cas ou la nuit me porterais conseil, sinon nickel pour moi.
Je te souhaite la bonne soirée et encore merci a toi pour ton aide.
Cdlt Ray
Salut Ray,
Salut Fanfan,
Pour les besoins de la cause, j'ai renommé tes feuilles : Bilans (pour la Récap) et Mesures (pour... les mesures).
- Pour la date
.Range("A" & iRow).Font.Color = RGB(0, 0, 0)
.Range("A" & iRow).Value = WorksheetFunction.Proper(Format(Now, "dddd d mmmm yyyy & h:mm:ss"))
tSplit = Split(.Range("A" & iRow).Value, " ")
For y = 0 To 4 Step 2
.Range("A" & iRow).Characters(InStr(.Range("A" & iRow).Value, tSplit(y)), 1).Font.Color = RGB(255, 0, 0)
Next- Pour effacer les données, un petit bouton rouge en ligne 1
For x = 1 To 6
iRow = Choose(x, 2, 8, 14, 22, 28, 34)
Union(Range("A" & iRow), Range("B" & iRow + 1 & ":H" & iRow + 3)).Value = ""
NextPetite question : comment reportes-tu tes mesures dans la feuille 'Bilans' ?
A+
Salut Curulis57,
Merci pour ta réponse et pour les petits codes.
Pas grave que tu ai renommer les feuilles c'est mieux même.
Pour te répondre Petite question : comment reportes-tu tes mesures dans la feuille 'Bilans' ?
Donc je ne reporte rien du tout
Dans un premier temps j'ai commencer sur une feuil1 a écrire les résultats mais ce n'ai pas terrible comme suivi médical.
Donc j'ai penser reporter une feuille qui viens de mon cardiologue avec les calculs en automatique.
Mais je ne suis pas convaincu que ca va le faire, il me faudrait trouver un moyen de comment faire autrement simple et modifiable et même avec un graphique serai le top pour moi
Voila, merci a toi, bonne journée.
Cdlt Ray