Discussion :

[MaximeIndustrie]

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

[Trystan441]

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 :

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

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,

[MaximeIndustrie]

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

[Menhir]

(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.

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 :

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

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

[MaximeIndustrie]

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

[Menhir]

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 :

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

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

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/