XL 2016 Concaténation un peu spéciale..

ynx69

XLDnaute Junior
Bonjour,

Je suis entrain de développer une petite macro mais je sèche sur une problématique que je n'arrive pas à résoudre.

En A1, par macro, j'attribue comme valeur l'année year(now() )
En A2, toujours par macro, j'attribue comme valeur le mois de la même facon month(now())

en A1 j'ai donc : 2019
en A2 j'ai 2. Or , pour cette cellule je souhaiterais avoir : 02
Pour faire ca , j'ai codé le format de la cellule : Range("A2").NumberFormat = "00"
En faisant ca j'obtiens ce que je souhaite.

Le but ensuite est de concaténer par macro A1 et A2 en cellule A3 donc :
Range("A3") = Range("A1") & Range("A2")
Le résultat que me sort excel est le suivant : 20192 ce qui ne correspond pas à ce que je cherche ...

Avez vous une solution uniquement par macro s'il vous plait :)

Merci à vous

Ynx
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
Bonjour,

Je suis entrain de développer une petite macro mais je sèche sur une problématique que je n'arrive pas à résoudre.

En A1, par macro, j'attribue comme valeur l'année year(now() )
En A2, toujours par macro, j'attribue comme valeur le mois de la même facon month(now())

en A1 j'ai donc : 2019
en A2 j'ai 2. Or , pour cette cellule je souhaiterais avoir : 02
Pour faire ca , j'ai codé le format de la cellule : Range("A2").NumberFormat = "00"
En faisant ca j'obtiens ce que je souhaite.

Le but ensuite est de concaténer par macro A1 et A2 en cellule A3 donc :
Range("A3") = Range("A1") & Range("A2")
Le résultat que me sort excel est le suivant : 20192 ce qui ne correspond pas à ce que je cherche ...

Avez vous une solution uniquement par macro s'il vous plait :)

Merci à vous

Ynx
Range("A3") = Range("A1") & Range("A2").Text
ou bien
Range("A3") = Range("A1") & Format(Range("A2"),"00")
ou bien
Range("A3") = Format(Now(),"yyyymm")
 

Discussions similaires