Sujet Précédent Sujet Suivant

Programation Excel

thommmas -  
 thommmas -
Bonjour,

Je souhaiterais insérer l'année en coure dans une multitude de cellules réparti sur plusieurs feuilles Excel.
Le code suivant inscrit toute la date dans la/les cellule cité, dans le code, sur une seule feuille

Sub test()

Range("A1,A100").Select
ActiveCell.FormulaR1C1 = Date

End Sub

Il me faut que l'année. Y a t'il un moyen d'insérer seulement l'année. Et pas toute la date. La fonction InputBox n'est pas génial car à chaque fois que je fait appelle a la procédure "Sub test" a l'aide de Call, dans une autre procédure,

Sub autre()

...
Call test
...

End Sub

je dois inscrire l'année. c'est à dire très chiant. Il y a certainement une solution mais je suis qu'un newbe!

merci pour votre aide.
A voir également:

1 réponse

Réponse 1 / 1
Habana Messages postés 32 Statut Membre 9
 
Salut,

Alors voila la ruse de sioux que j'utilise:

Dans les cellules ou tu ne veux que l'année, tu fait

Bouton droit proprietes,
Format de cellule,
tu choisis personnalisé et tu met dans le format: aaaa

Voila dans ta cellule tu met la date, mais elle ne t'affiche que l'année

Ciao.
-1
thommmas
 
Salut

Merci pour la super ruse de sioux ! Je viens de l'essayer c'est vraiment cool.

Maintenant le formulaire comptable serra beaucoup plus facile à complété, je n'ai plus besoin d'insérer manuellement l'année dans les cellules qui nécessitent cette info

Voici le code. Il faut juste remplacer les ‘a’ pour année par ‘y’ pour year (en anglais)


Sub dat()

Range("E10").Select
Selection.NumberFormat = "yyyy"
ActiveCell.FormulaR1C1 = Date

End Sub


Peut-être servira t il à quelqu'un d’autre.

Merci

Ciao
0