Texte avec variable dans une case excel macro
Fermé
mister-t
-
17 mars 2009 à 09:59
BuenoVista Messages postés 13 Date d'inscription lundi 16 mars 2009 Statut Membre Dernière intervention 22 octobre 2016 - 17 mars 2009 à 10:40
BuenoVista Messages postés 13 Date d'inscription lundi 16 mars 2009 Statut Membre Dernière intervention 22 octobre 2016 - 17 mars 2009 à 10:40
A voir également:
- Texte avec variable dans une case excel macro
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une case excel - Guide
- Déplacer une colonne excel - Guide
1 réponse
BuenoVista
Messages postés
13
Date d'inscription
lundi 16 mars 2009
Statut
Membre
Dernière intervention
22 octobre 2016
2
17 mars 2009 à 10:40
17 mars 2009 à 10:40
J'ai Vista & Office 2007. Pour ma part, j'obtiens MA-200931701 en B4 avec l'instruction suivante :
Range("B4").Value = "MA-" & Year(Date) & Month(Date) & Day(Date) & "01"
Evidemment, il s'agit de la date courante.
Seul problème: ça ne me met pas un zéro devant le chiffre du mois si le nombre correspondant est inférieur à 10. Mais ça peut se bricoler facilement en Basic classique :
Dim X1, X2 As String
X1 = LTrim(Str(Month(Date))): If Month(Date) < 10 Then X1 = "0" + X1
X2 = LTrim(Str(Day(Date))): If Day(Date) < 10 Then X2 = "0" + X2
Range("B4").Value = "MA-" & Year(Date) & X1 & X2 & "01"
Je l'ai testé et ça marche et j'obtiens bien MA-2009031701. Bien sûr, c'est un tantinet bourrin et je pense qu'il existe des solutions plus élégantes mais le résultat est là...
Range("B4").Value = "MA-" & Year(Date) & Month(Date) & Day(Date) & "01"
Evidemment, il s'agit de la date courante.
Seul problème: ça ne me met pas un zéro devant le chiffre du mois si le nombre correspondant est inférieur à 10. Mais ça peut se bricoler facilement en Basic classique :
Dim X1, X2 As String
X1 = LTrim(Str(Month(Date))): If Month(Date) < 10 Then X1 = "0" + X1
X2 = LTrim(Str(Day(Date))): If Day(Date) < 10 Then X2 = "0" + X2
Range("B4").Value = "MA-" & Year(Date) & X1 & X2 & "01"
Je l'ai testé et ça marche et j'obtiens bien MA-2009031701. Bien sûr, c'est un tantinet bourrin et je pense qu'il existe des solutions plus élégantes mais le résultat est là...
