Mettre la date du jour VBA

Bonjour,

Je cherche une personne capable de me créer un code prenant en compte le besoin ci-dessous :

- Sélectionne la cellule colonne F, en dessous de la dernière ligne du tableau, écrit "Date du jour :" en gras
- Selectionne la cellule colonne G, en dessous de la dernière ligne du tableau, écrit "Ctrl + ;" en gras (Rappelant que " Ctrl + ; " est une formule qui met automatiquement la date d'aujourd'hui.)

Cordialement.

Maxime

Bonjour,

L'enregistreur de macro est ton ami dans ce cas !
Pour t'aiguiller, ci-dessous, une ligne de code te permettant de compter le nombre de ligne dans ton tableau :

Code:

---

workbooks("NomDuClasseur").worksheets("NomDeLaFeuille").cells(rows.count,1).end(xlup).row

---

Si tu as besoin d'aide pour corriger des erreurs, n'hésites pas

Bonne journée,

Bonjour,

J'ai essayé avec une macro, cependant au lancement de ma macro,
mon tableau est variable et je ne peux pas me contenter de nommer une ligne fixe.

Cordialement.

Maxime

Citation:

---

Envoyé par MaximeIndustrie

(Rappelant que " Ctrl + ; " est une formule qui met automatiquement la date d'aujourd'hui.)

---

Non, Ctrl+; n'est pas une formule mais une commande.
Ce n'est pas en inscrivant ça dans une cellule que ça mettra une date.

Citation:

---

Je cherche une personne capable de me créer un code prenant en compte le besoin ci-dessous :
- Sélectionne la cellule colonne F, en dessous de la dernière ligne du tableau, écrit "Date du jour :" en gras
- Selectionne la cellule colonne G, en dessous de la dernière ligne du tableau, écrit "Ctrl + ;" en gras

---

Code:

---

1 2 3 4 5

Dim Lg As Range Set Lg = Cells(Rows.Count, "F").End(xlUp) Lg.Value = "Date du jour :" Lg.Offset(0, 1) = "Ctrl + ;" Lg.Resize(1, 2).Font.Bold = True

---

Menhir,

Je tenais tout d'abord à te remercier pour le temps alloué.
Cependant, le code ne fonctionne pas.

Je pense que la ligne en question a été écrasé par la création en automatique d'un nouveau calcul, qui crée un nouveau tableau avec parfois plus de ligne ou moins de ligne que le précédent.
Le document en question est en PJ, à ta disposition pour toutes interrogations.

Cordialement.

Maxime

Citation:

---

Envoyé par MaximeIndustrie

Je pense que la ligne en question a été écrasé par la création en automatique

---

J'ai oublié de dire à la macro qu'il faut prendre la ligne suivante.
Change la seconde ligne de mon code par :

Code:

---

Set Lg = Cells(Rows.Count, "F").End(xlUp).Offset(1, 0)

---

Citation:

---

Le document en question est en PJ, à ta disposition pour toutes interrogations.

---

Comme beaucoup de participants à ce forum, je n'ouvre pas les fichiers joints, entre autre pour les raisons expliquées ici : https://www.developpez.net/forums/d8...s-discussions/