Discussion :

[bartimeus35]

Bonjour à tous,

J'ai une macro qui écrit dans une cellule exel qqch du genre

Code :

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

ma_cellule =nb_items & chr(10) & "PREMIER ITEM" & Chr(10)& "DEUXIEME ITEM " etc ...

Tout va bien!
A l'affichage je vois bien un saut de ligne à la place du chr(10)
Mais quand je relis ma cellule avec ce code

Code :

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

TOTO =.Sheets(onglet).Cells(ligne, col)

TOTO ne prend que la première ligne, donc ce qui était dns la cellune donc TOTO = nb_items

Comment récupérer le contenu entier de la cellule pour ensuite faire un split avec comme caractère de séparation chr(10) et récupérer chaque ligne ?


Millions de mercis pour vos idées
@+
François

[Philippe Tulliez]

Bonjour,
Pour que le retour à la ligne fonctionne, il y a lieu de sélectionner les cellules concernées et ensuite de cliquer sur le bouton "Renvoyer à la ligne auomatiquement". En VBA c'est la propriété WrapText de l'objet Range

[bartimeus35]

Bonjour,

J'ai du mal expliquer mon pb car ta réponse n'a rien à voir avec mon pb.

J'ai une chaine de caractère formatée de la façon suivante

Code :

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

toto ="debut"& chr(10)&"FIN"

si j'affecte toto à ma cellule via du code VBA, ma cellule affiche bien
debut
FIN
avec un saut de ligne dans la cellule, parfait!

Mais quand je veux lire le contenu de la cellule via du code VBA du genre

Code :

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

1
2
3
4
5
6
7
8
 
with worksheet
...
...
dim titi as string 
titi=.Cells(i,j)
 
end with

titi ne vaut alors que "debut"
alors que j'attends
"debut"& chr(10)&"FIN"


Que dois je faire ?

@++

[Pierre Dumas]

Bonsoir

Pour information, je viens de faire les codes suivants :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub sdgf()
Range("A1").Value = "debut" & Chr(10) & "FIN"
End Sub
 
Sub sqfsfd()
Dim titi As String
 
titi = Cells(1, 1)
 
Debug.Print titi
 
 
End Sub

Et la fenêtre Exécution affiche bien debut FIN sur deux lignes.

Je ne sais pas si cela aidera un tant soit peu.

Pierre Dumas