Discussion :

[SpaceX]

Bonjour,

Je réalise actuellement un programme qui récupère 4 valeurs dans 4 textbox différents grâce à l'instruction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim valtxtbox_1 As String
Dim valtxtbox_2 As String
Dim valtxtbox_3 As String
Dim valtxtbox_4 As String
 
valtxtbox_1 = txtBox1.Value
valtxtbox_2 = txtBox2.Value
valtxtbox_3 = txtBox3.Value
valtxtbox_4 = txtBox4.Value

Mes questions sont les suivantes :

• J'aimerai savoir s'il est possible de concaténer/stocker ces valeurs [valtxtbox_1,valtxtbox_2,valtxtbox_3,valtxtbox_4] dans un vecteur ?
  
• Si oui, est-ce que cela fonctionne même si dans un champ textbox, aucune valeurs n'est entré ?

Merci.

[Phil Free]

[*]J'aimerai savoir s'il est possible de concaténer/stocker ces valeurs [valtxtbox_1,valtxtbox_2,valtxtbox_3,valtxtbox_4] dans un vecteur ?
[*]Si oui, est-ce que cela fonctionne même si dans un champ textbox, aucune valeurs n'est entré ?[/LIST]

je dirais juste : bah essai !
Pour concaténer un & entre les valeurs suffi ! exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MaChaine = "Chaine concaténée : " & txtBox1.Value & txtBox2.Value
Msgbox Machaine

M'enfin la on est quand même dans la base de la base de la base et pffff... je dit rien

[SpaceX]

je dirais juste : bah essai !
Pour concaténer un & entre les valeurs suffi ! exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MaChaine = "Chaine concaténée : " & txtBox1.Value & txtBox2.Value
Msgbox Machaine

M'enfin la on est quand même dans la base de la base de la base et pffff... je dit rien

Salut,

Je suis débutant en VBA, il me manque encore quelque automatisme.

J'ai essayé de cette manière mais j'ai une erreur d'exécution de type '13' : problème d'incompatibilité de type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim valeur_concat As Single
valeur_concat  = txtBox1.Value & txtBox2.Value & txtBox3.Value & txtBox4.Value

Merci.

[joe.levrai]

Bonjour,

Un contrôle TextBox renvoie une valeur de type texte "String"

Ta variable est de type numérique "Single", d'où l'incompatibilité de type

[SpaceX]

Bonjour,

Un contrôle TextBox renvoie une valeur de type texte "String"

Ta variable est de type numérique "Single", d'où l'incompatibilité de type

Bonjour,

Merci pour ton aide, le problème c'est que j'aimerai avoir un "vecteur" de type Single(1 To 3) avec mes 3 valeurs distinctes.

Problème : lorsque je tape 2,3 et 4 dans les 3 textbox respectivement, je récupère une variable de type "String" avec comme valeurs "234".

Ici la conversion String en Single est facile, il suffit d'utiliser la fonction CSng() mais comment obtenir un vecteur ?

Avez vous des idées à me proposer svp?

[joe.levrai]

Je ne comprend pas pourquoi tu veux concaténer tes valeurs et ensuite les placer dans un tableau où il faudra à nouveau les éclater

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim MonTablo(1 To 3), i As Long
 
For i = 1 To 3
    MonTablo(i) = CSng(Me.Controls("txtBox" & i).Text)
Next i