Discussion :

[cyberboy00]

Salut,
je suis un débutant en VBA, j'ai écrit un petit programme pour recupérer dans une feuille des valeurs comme celles-ci: 0001254,012200.
j'ai fait:

Code :

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

valeur  = Range("AQ6").Value &  Range("AQ6").Value

ce qui donne : 125412200.

le problème c'est que cette instruction suprime les zeros qui sont devant les valeurs.
Je voudrais savoir si il y une méthode pour avoir ce résulat :
0001254 012200.

Merci d'avance!!

[Jean-Pierre49]

Bonjour

0001254,012200 c'est dans AQ6 ?

Jean pierre

[Abed_H]

Bonjour
voici un exemple à tester

Code :

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

1
2
3
4
5
Sub test()
   valeur = "0001254,012200"
   valeur = Join(Split(valeur, ","), " ")
   MsgBox valeur
End Sub

Abed_H

[cyberboy00]

désolé je me suis mal exprimé, en effet:

j'ai une cellule qui contient la valeur "0001245" et une autre qui contient
"01234".
Je voudrais avoir en sortie: "0001245 01234" avec un petit espace entre les deux valeurs.

Merci.

[Jean-Pierre49]

Essaye:

Code :

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

valeur = CStr(Range("AQ6").Value) & " " & CStr(Range("AR6").Value)

Les ranges a adapter

Vu le code d'Abeb H
Il est temps que je prennes de bonnes habitudes pour écourter mes procédures

Jean-Pierre

[Abed_H]

Code :

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

MsgBox Range("AQ6").Text & " " & Range("AR6").Text

[cyberboy00]

Merci Beaucoup ça marche!!