Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel texte sur plusieurs cellules verticales adjacentes

texte sur plusieurs cellules verticales adjacentes

3 réponses
Avatar
GA
Bonjour à tous,

Quelqu'un sait-il s'il est possible d'écrire du texte sur plusieurs
lignes dans des cellules adjacentes (les unes en dessous de autres) et
non pas dans la même cellule avec un renvoi auto à la ligne classique ??

Parce que j'ai 2 colonnes adjacentes avec des longueurs de texte
différentes et la mise en page est atroce.....

le texte est envoyé avec des macros


Merci

Cordialement

Ga
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
GA
Bonsoir,

En effet j'ai un texte de plusieurs lignes que je voudrais scinder pour
l'envoyer dans des cellules adjacentes les unes en dessous des autres
plutot que d'écrire dans une seule cellule qui s'agrandie vers le bas.
Car j'ai une colonne sur la droite où la longueur de texte est
différente d'ou un effet atroce avec un grand espace blanc entre les
cellules pour rien....
Je ne connais pas à l'avance la longueur du texte qui est issue d'une
saisie dans une texbox. Mes colonnes vont 35 de large.
(j'ai plusieurs zones de textes ainsi)

Merci pour ta réponse

Cordialement

Ga

Salut Ga,

Ce n'est surement pas ce que tu desires :

Sub Texte_Dans_Cellules()
t1 = "Salut la compagnie."
t2 = "Comment allez-vous ?"
[a1] = t1
[a2] = t2
Columns("A:A").EntireColumn.AutoFit
End Sub

Comment se presente le texte dans ta macro ?
Une longue phrase que tu voudrais scinder pour la
renvoyer dans des cellules adjacentes ?
Si c'est le cas, combien de caracteres veux-tu par cellule ?
etc. et ???

Serge




"GA" wrote in message
news:

Bonjour à tous,

Quelqu'un sait-il s'il est possible d'écrire du texte sur plusieurs lignes
dans des cellules adjacentes (les unes en dessous de autres) et non pas
dans la même cellule avec un renvoi auto à la ligne classique ??

Parce que j'ai 2 colonnes adjacentes avec des longueurs de texte
différentes et la mise en page est atroce.....

le texte est envoyé avec des macros


Merci

Cordialement

Ga







Avatar
garnote
Salut Ga,

Ce n'est surement pas ce que tu desires :

Sub Texte_Dans_Cellules()
t1 = "Salut la compagnie."
t2 = "Comment allez-vous ?"
[a1] = t1
[a2] = t2
Columns("A:A").EntireColumn.AutoFit
End Sub

Comment se presente le texte dans ta macro ?
Une longue phrase que tu voudrais scinder pour la
renvoyer dans des cellules adjacentes ?
Si c'est le cas, combien de caracteres veux-tu par cellule ?
etc. et ???

Serge




"GA" wrote in message
news:
Bonjour à tous,

Quelqu'un sait-il s'il est possible d'écrire du texte sur plusieurs lignes
dans des cellules adjacentes (les unes en dessous de autres) et non pas
dans la même cellule avec un renvoi auto à la ligne classique ??

Parce que j'ai 2 colonnes adjacentes avec des longueurs de texte
différentes et la mise en page est atroce.....

le texte est envoyé avec des macros


Merci

Cordialement

Ga


Avatar
garnote
Salut GA,

Voici un debut de solution. Mon exemple de texte est en anglais et mon
message ne contient pas d'accent car je suis temporairement sur
un ordi qui 'parle' anglais.

Sub Texte_Cellules()
Dim texte As String, t1 As String
Dim k As Integer, j As Integer
texte = "Numbers, logical values, and text representations of numbers " _
& "that you type directly into the list of arguments are counted. " _
& "See the first and second examples following. If an argument is an " _
& "array or reference, only numbers in that array or reference are " _
& "counted. Empty cells, logical values, text, or error values in the " _
& "array or reference are ignored. See the third example following."
k = 1
For j = 1 To 50
If k >= Len(texte) Then Exit For
For i = 1 To 50
t1 = Mid(texte, k, i)
If Len(t1) > 30 And Asc(Right(t1, 1)) = 32 Then Exit For
Next i
k = k + Len(t1)
Cells(j, 3) = t1
If k > Len(texte) Then Exit Sub
Next j
End Sub

Je l'ai essaye avec 35 comme largeur de la colonne C.
Tu peux modifier 30 et 50 pour voir ce qui arrive.
Cela te convient-il ?

Serge



"GA" wrote in message
news:
Bonsoir,

En effet j'ai un texte de plusieurs lignes que je voudrais scinder pour
l'envoyer dans des cellules adjacentes les unes en dessous des autres
plutot que d'écrire dans une seule cellule qui s'agrandie vers le bas. Car
j'ai une colonne sur la droite où la longueur de texte est différente d'ou
un effet atroce avec un grand espace blanc entre les cellules pour
rien....
Je ne connais pas à l'avance la longueur du texte qui est issue d'une
saisie dans une texbox. Mes colonnes vont 35 de large.
(j'ai plusieurs zones de textes ainsi)

Merci pour ta réponse

Cordialement

Ga

Salut Ga,

Ce n'est surement pas ce que tu desires :

Sub Texte_Dans_Cellules()
t1 = "Salut la compagnie."
t2 = "Comment allez-vous ?"
[a1] = t1
[a2] = t2
Columns("A:A").EntireColumn.AutoFit
End Sub

Comment se presente le texte dans ta macro ?
Une longue phrase que tu voudrais scinder pour la
renvoyer dans des cellules adjacentes ?
Si c'est le cas, combien de caracteres veux-tu par cellule ?
etc. et ???

Serge




"GA" wrote in message
news:

Bonjour à tous,

Quelqu'un sait-il s'il est possible d'écrire du texte sur plusieurs
lignes dans des cellules adjacentes (les unes en dessous de autres) et
non pas dans la même cellule avec un renvoi auto à la ligne classique ??

Parce que j'ai 2 colonnes adjacentes avec des longueurs de texte
différentes et la mise en page est atroce.....

le texte est envoyé avec des macros


Merci

Cordialement

Ga