Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA - Récupérer une période

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

nadir****

XLDnaute Occasionnel
Bonjour.
Je voudrais récupérer le mois et l'année d'une date sous format texte.
Ainsi pour la date 01/12/2010 je voudrais récupérer le texte: décembre - 2010.

J'ai écrit les lignes suivantes pour une date en A1:
Code:
    Dim Periode As String
    Range("A2").FormulaR1C1 = "=TEXT(RC[-1],""mmmm - aaaa"")"
    Periode = Range("A2").Value
    Range("A2").ClearContents
Mais ceci implique d'utiliser une cellule (ici A2) qui risque d'être déjà utilisée.
A moins de travailler sur la première cellule vide mais ça sent l'usine à gaz.
Est-ce que quelqu'un pourrait m'aider ?
Merci.
Nadir
 
Re : VBA - Récupérer une période

Bonjour nadir,

comme disait notre ami Ti, la meilleure macro c'est c'elle qu'on évite d'écrire.

Pourquoi pas une formule, dans la cellule que tu veux?

Edit si tu tiens vraiment à la macro, on recherche la dernière cellule remplie de la colonne A de cette façon :

derligne = Range("A65535").End(xlUp).Row

Biz

C@thy
 
Dernière édition:
Re : VBA - Récupérer une période

Bonjour nadir****, C@thy,

P'tite usine à gaz :

Code:
Sub Test()
Dim cel As Range, Periode As String
Set cel = [A1]
Periode = Format(cel, "mmmm - yyyy")
MsgBox Periode
End Sub

A+
 
Re : VBA - Récupérer une période

Bonjour Cathy.
Je voudrais récupérer ce texte pour l'utiliser à plusieurs reprises dans une macro (sauvegarde dans un nom de fichier, Titres de tableaux...). C'est pour cela que j'aurais bien aimé récupérer ce texte simplement sans passer par une formule dans une cellule spécifique comme dans ma macro que j'ai communiquée.
Merci en tout cas.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
Réponses
22
Affichages
3 K
jui42
J
C
Réponses
18
Affichages
4 K
C-LAKATA
C
Réponses
1
Affichages
1 K
V
Réponses
2
Affichages
2 K
vynmarius
V
T
Réponses
1
Affichages
821
W
Réponses
0
Affichages
4 K
Whivez
W
N
  • Question Question
Réponses
5
Affichages
3 K
J
Réponses
13
Affichages
9 K
J
L
Réponses
7
Affichages
2 K
J
Réponses
4
Affichages
3 K
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…