Concaténer des dates dans une cellule.

[HopHopHop]

Bonjour,

J'ai un tableau avec des infos séparément entrées dans des cellules.
Je soughaiterais concaténer ces infos dans une autre cellule.
Or il y a une info qui est une date au format "mmm-yy" et je souhaiterais la concatener ainsi "(mmm-yy)".
Lorsque je lance mon code, j'obtiens ceci "(mmm-19)"

Colonne 1	Colonne 2	Colonne 3	Colonne 4	Colonne 5	Colonne 6
2"7/8	Tbg	J55	EU	avr-10​	2"7/8 Viet J55 EU (avr-19)

Voici la partie du code qui concerne la concaténation :

Set Data = Range("A1:E302")
 For ligne = 1 To max
        For colonne = 1 To 5
        nom = Data.Cells(ligne, colonne).Text
            If colonne <= 4 Then
            info = info & " " & nom
            Else
            info = info & " (" & Format(nom, "mmm-yy") & ")"
            End If
        Next colonne
        Sheets("Schéma").Cells(ligne + 1, 1) = info
        info = ""
    Next ligne

Pouvez-vous m'aider à résoudre ce soucis.

Je pense que ça vient directement du format de la date qui ne doit pas être pris en compte de la même façon en VBA et sur le tableur mais je ne suis certain de rien.

 

[job75]

Bonjour HopHopHop,

Puisque la variable nom contient le texte affiché :

If colonne <= 4 Then
    info = info & " " & nom
Else
    info = info & " (" & nom & ")"
End If

A+

 

[HopHopHop]

Et bien c'est formidable !!
Pourquoi faire compliqué quand on peut faire simple !!??

Merci job75