Discussion :

[grisan29]

bonjour vous tous du forum

comment peut'on faire pour qu’un textbox applique la fonction de RowHeight dans une cell formatée automatiquement de type :

Code :

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

.Range("D" & lig & ":H" & lig).Merge

Et ce uniquement quand le besoin se fait sentir,

j’ai essayé mais ce sont toutes les lignes qui sont concernées

, je préfèrerai que cela se passe quand les données a écrire arrive en bout des cells formatées, comme un renvoie a la ligne
Merci par avance
Cordialement
Pascal

[Theze]

Bonsoir Pascal,

C'est probablement dû à la fin de journée mais je ne sui poas sûr d'avoir bien compris ce que tu veux faire ??? :0(
Tu veux renvoyer à la ligne dans un TextBox ? Si c'est ça, il te faut mettre sa propriété "MultiLine" à True et alors, tu peux remplir avec un truc du style :

Code :

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

1
2
 
TextBox1.Text = "Ma première ligne" & vbCrLf & "ma seconde ligne"

Adapter la hauteur du TextBox ou régler sa propriété "ScrollBars" à 1, 2 ou 3.

Hervé.

[grisan29]

bonjour Theze

merci de ta réponse mais en fait c'est sur la feuille que je voudrais que cela se passe car la ligne de code de plus haut formate la ligne de D a H pour que le textbox écrive ses données

le textbox a sa propriété "MultiLine" à True , le texte quelle recois fait 2 voire 3 lignes comment faire pour mettre le texte du textbox sur 2 ou plus de ligne quand "D" à "H" est rempli sur la feuille.

voila ce que je peux dire de plus

cordialement

Pascal

[Theze]

Bonjour Pascal,

En retard mais pas là hier.

En fait, si tu fais pareil dans une cellule (mon exemple avec vbCrLf) tu obtiens ton texte sur plusieurs lignes dans la même cellule. Utilise autant de "vbCrLf" que de lignes voulues :

Code :

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

1
2
 
[A1] = "Ma première ligne" & vbCrLf & "ma seconde ligne" & vbCrLf & "ma troisième ligne" & vbCrLf & "ma quatrième ligne" 'etc...

Hervé.

[grisan29]

bonjour Hervé

ne serait'il pas possible que ce soit lors de l'envoi des données venant du textbox que cela peut se faire, je sais qu'excel vba n'est pas magicien mais y a t'il une solution

en fait lors de la validation du textbox par l'appui sur le bouton ok l'inscription se fait en ligne formatée automatiquement mais il faudrai je pense que les lignes suivantes soit également formaté automatiquement pour que le textbox développe ses données.

cordialement

Pascal

[casefayere]

Bonsoir,
Je pense que ce code devrait suffire :

Code :

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

1
2
   Range("D" & lig, "H" & lig).MergeCells = True
   Range("D" & lig,"H" & lig).WrapText = True

PS : je viens de controler, la hauteur de ligne ne s'adapte pas automatiquement mais la mise à la ligne se fait