Discussion :

[oscar.cesar]

bonsoir
un petit probleme
comme transforme ma plage de cellule en une chaine txt .
en sachant que chaque cellule contient un entier.
voici le code de ma plage

Code :

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

1
2
3
4
 
 
     dernierecolonne = Sheets("résultat").Range("F" & INDEXCOURSEFILTREligne).End(xlToRight).Column 'determine la derniere colonne de la ligne concernée
     Set Plage = Sheets("résultat").Range("F" & INDEXCOURSEFILTREligne & ":" & Cells(INDEXCOURSEFILTREligne, dernierecolonne).Address) 'selectionne les cellule non vide

merci

[wilfried_42]

bonjour

je ne sais pas si j'ai compris m'enfin

1 - transformation de la plage en format text

Code :

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

plage.numberformat = "@"

2 - si tu veux tout dans un seul string (j'ai ajouter un ; de separation)

Code :

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

1
2
3
4
5
6
Dim mesvaleurs as string, cel as range
mevaleurs = ""
for each cel in plage
if len(mesvaleurs)>0 then mesvaleurs = mesvaleurs & ";" 
mesvaleurs = mesvaleurs & cel.value
next

3 - remettre le format numeric

Code :

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

plage.numberformat = "0"

[oscar.cesar]

bonsoir

en fait j'ai une plage definie par set plage.....cette plage se souhaite l'afficher dans un msgbox et insere dans une chaine de caracteres.

donc
si ma plage de cellule contient 11 8 9
ma chaine de caractere devient 11-8-9 (pour les separateurs , c'est un exemple)

je regarde tes infos

A+

[wilfried_42]

re:

je suis fatigué, la partie 1 et 3 sont inutiles, vba s'occupe tout seul des mettre en format text avec le &

[oscar.cesar]

bonsoir
ok la partie 3 fonctionne

merci à toi
bonne nuit