Crée un type de String forcé à 12 lettres

Bonjour
Données Validation
Autoriser : Longueur de texte
Données : égal à
Longueur : 12

Cordialement
Pascal

"Alex" <Alex@discussions.microsoft.com> a écrit dans le message de news:
90C5E47C-4068-4DEE-9C18-C4B25FA05F69@microsoft.com...

Bonjour

J'aimerai créer un type de String qui doit exactement avoir 12 lettres,
comment puis-je faire cela?

Par avance merci

Alex

Ce type de variable existe en Pascal, je crois, mais pas en VB.
Tu peux cependant facilement affecter à une variable String les 12 premiers
caractères d'une chaîne :

Sub essai()
Dim S As String
S = "zzzzzzzzzzzzzzzzzzzzzzzzz"
MsgBox Left(S, 12)
End Sub

----------
Ange Ounis
----------

Bonjour

J'aimerai créer un type de String qui doit exactement avoir 12 lettres,
comment puis-je faire cela?

Par avance merci

Alex

Bonjour,

Testé très vite, pas de garantie. Il semblerait que le fait de déclarer une
variable comme ceci soit toléré par VBA:

dim variable as string * 12

Voici mon petit test avec Excel 2002. Cela resterait à être validé, et
probablement approfondi, avec d'autres versions:

Sub test()
Dim a As String * 12
Dim b As String
b = "abcdefghijklmnopqrstuvwxyz"
a = "ici"
Range("a1").Value = a
Range("b1").Value = Len(Range("a1").Value)

a = b
Range("a2").Value = a
Range("b2").Value = Len(Range("a2").Value)
Range("a3").Value = b
Range("b3").Value = Len(Range("a3").Value)
End Sub


"Alex" <Alex@discussions.microsoft.com> a écrit dans le message de news:
90C5E47C-4068-4DEE-9C18-C4B25FA05F69@microsoft.com...

Bonjour

J'aimerai créer un type de String qui doit exactement avoir 12 lettres,
comment puis-je faire cela?

Par avance merci

Alex

C'est parfait Clément !
Et une con..ie pour moi (ce n'est pas la première et je suis bien certain que ce
n'est pas la dernière non plus :)

----------
Ange Ounis
----------

Bonjour,

Testé très vite, pas de garantie. Il semblerait que le fait de déclarer une
variable comme ceci soit toléré par VBA:

dim variable as string * 12

Voici mon petit test avec Excel 2002. Cela resterait à être validé, et
probablement approfondi, avec d'autres versions:

Sub test()
Dim a As String * 12
Dim b As String
b = "abcdefghijklmnopqrstuvwxyz"
a = "ici"
Range("a1").Value = a
Range("b1").Value = Len(Range("a1").Value)

a = b
Range("a2").Value = a
Range("b2").Value = Len(Range("a2").Value)
Range("a3").Value = b
Range("b3").Value = Len(Range("a3").Value)
End Sub


"Alex" <Alex@discussions.microsoft.com> a écrit dans le message de news:
90C5E47C-4068-4DEE-9C18-C4B25FA05F69@microsoft.com...

Bonjour

J'aimerai créer un type de String qui doit exactement avoir 12 lettres,
comment puis-je faire cela?

Par avance merci

Alex