J'ai des contrôles "Zone de Texte" dans une feuille de calcul et il faut que
je trouve une façon de déterminer le nombre de lignes dans la zone de texte
en VBA.
Ceci dans le but d'ajuster la hauteur de ligne de la cellule pour afficher
tout le contenu de la zone de texte. Ceci dit la zone de texte est attachée
à la cellule.
J'ai utilisé une méthode qui calcule les retours de chariots avec des
résultats inconsistants.
Quelqu'un à t'il une idée?
Sub AjusterHauteur()
'Ajuste la hauteur de l'ensemble des boites de textes de type formulaire
'avec la hauteur de la ligne.
Application.ScreenUpdating = False
Set tx = Worksheets("KBB").Shapes
Dim Adresse
Dim Texte As String
Dim NombreCR As Single
Dim c As Shape
Dim z As Single
Dim Trouvé
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
Daniel
Bonjour. A mon avis, le nombre de lignes dans la cellule ne correspond pas au nombre de lignes de la textbox. Pourquoi n'utilises-tu pas range("Xn").entirerow.autofit, pour dimensionner ta cellule ? Cordialement. Daniel "Syl" a écrit dans le message de news: b3ujf.4441$
Bonjour!
J'ai des contrôles "Zone de Texte" dans une feuille de calcul et il faut que je trouve une façon de déterminer le nombre de lignes dans la zone de texte en VBA. Ceci dans le but d'ajuster la hauteur de ligne de la cellule pour afficher tout le contenu de la zone de texte. Ceci dit la zone de texte est attachée à la cellule. J'ai utilisé une méthode qui calcule les retours de chariots avec des résultats inconsistants.
Quelqu'un à t'il une idée?
Sub AjusterHauteur()
'Ajuste la hauteur de l'ensemble des boites de textes de type formulaire 'avec la hauteur de la ligne.
Application.ScreenUpdating = False
Set tx = Worksheets("KBB").Shapes Dim Adresse Dim Texte As String Dim NombreCR As Single Dim c As Shape Dim z As Single Dim Trouvé
Bonjour.
A mon avis, le nombre de lignes dans la cellule ne correspond pas au nombre
de lignes de la textbox. Pourquoi n'utilises-tu pas
range("Xn").entirerow.autofit, pour dimensionner ta cellule ?
Cordialement.
Daniel
"Syl" <syl.news2@sympatico.ca> a écrit dans le message de news:
b3ujf.4441$Et5.263961@news20.bellglobal.com...
Bonjour!
J'ai des contrôles "Zone de Texte" dans une feuille de calcul et il faut
que je trouve une façon de déterminer le nombre de lignes dans la zone de
texte en VBA.
Ceci dans le but d'ajuster la hauteur de ligne de la cellule pour afficher
tout le contenu de la zone de texte. Ceci dit la zone de texte est
attachée à la cellule.
J'ai utilisé une méthode qui calcule les retours de chariots avec des
résultats inconsistants.
Quelqu'un à t'il une idée?
Sub AjusterHauteur()
'Ajuste la hauteur de l'ensemble des boites de textes de type formulaire
'avec la hauteur de la ligne.
Application.ScreenUpdating = False
Set tx = Worksheets("KBB").Shapes
Dim Adresse
Dim Texte As String
Dim NombreCR As Single
Dim c As Shape
Dim z As Single
Dim Trouvé
Bonjour. A mon avis, le nombre de lignes dans la cellule ne correspond pas au nombre de lignes de la textbox. Pourquoi n'utilises-tu pas range("Xn").entirerow.autofit, pour dimensionner ta cellule ? Cordialement. Daniel "Syl" a écrit dans le message de news: b3ujf.4441$
Bonjour!
J'ai des contrôles "Zone de Texte" dans une feuille de calcul et il faut que je trouve une façon de déterminer le nombre de lignes dans la zone de texte en VBA. Ceci dans le but d'ajuster la hauteur de ligne de la cellule pour afficher tout le contenu de la zone de texte. Ceci dit la zone de texte est attachée à la cellule. J'ai utilisé une méthode qui calcule les retours de chariots avec des résultats inconsistants.
Quelqu'un à t'il une idée?
Sub AjusterHauteur()
'Ajuste la hauteur de l'ensemble des boites de textes de type formulaire 'avec la hauteur de la ligne.
Application.ScreenUpdating = False
Set tx = Worksheets("KBB").Shapes Dim Adresse Dim Texte As String Dim NombreCR As Single Dim c As Shape Dim z As Single Dim Trouvé
J'ai essayé la propriété autofit mais sans succès car l'ajustement de la cellule se fait en fonction du texte qui se trouve dans la cellule sans tenir compte du texte qui se trouve dans le contrôle "Zone de Texte", même si le contrôle est ajusté à la cellule. Ce qu'il me faudrait en fait c'est une propriété autofit ou l'équivalent qui s'appliquerait à l'objet Shape. Je ne sais trop comment m'y prendre.
Des idées...
Merci.
"Daniel" a écrit dans le message de news:
Bonjour. A mon avis, le nombre de lignes dans la cellule ne correspond pas au nombre de lignes de la textbox. Pourquoi n'utilises-tu pas range("Xn").entirerow.autofit, pour dimensionner ta cellule ? Cordialement. Daniel
Bonjour Daniel!
J'ai essayé la propriété autofit mais sans succès car l'ajustement de la
cellule se fait en fonction du texte qui se trouve dans la cellule sans
tenir compte du texte qui se trouve dans le contrôle "Zone de Texte", même
si le contrôle est ajusté à la cellule.
Ce qu'il me faudrait en fait c'est une propriété autofit ou l'équivalent qui
s'appliquerait à l'objet Shape. Je ne sais trop comment m'y prendre.
Des idées...
Merci.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uYqk67j9FHA.1520@TK2MSFTNGP10.phx.gbl...
Bonjour.
A mon avis, le nombre de lignes dans la cellule ne correspond pas au
nombre de lignes de la textbox. Pourquoi n'utilises-tu pas
range("Xn").entirerow.autofit, pour dimensionner ta cellule ?
Cordialement.
Daniel
J'ai essayé la propriété autofit mais sans succès car l'ajustement de la cellule se fait en fonction du texte qui se trouve dans la cellule sans tenir compte du texte qui se trouve dans le contrôle "Zone de Texte", même si le contrôle est ajusté à la cellule. Ce qu'il me faudrait en fait c'est une propriété autofit ou l'équivalent qui s'appliquerait à l'objet Shape. Je ne sais trop comment m'y prendre.
Des idées...
Merci.
"Daniel" a écrit dans le message de news:
Bonjour. A mon avis, le nombre de lignes dans la cellule ne correspond pas au nombre de lignes de la textbox. Pourquoi n'utilises-tu pas range("Xn").entirerow.autofit, pour dimensionner ta cellule ? Cordialement. Daniel
michdenis
Bonjour Syl,
Ceci va redimensionner et situer la zone de texte exactement aux dimensions de la cellule A1 de la feuil1. De même la zone de texte prendra le contenu de la cellule A1
'------------------------------- Sub test() With Worksheets("Feuil1") With .Range("A1") .Value = "Il neige ce soir sur Montréal." 'retour à la ligne automatique .WrapText = True 'Son opposé, il modifie la police 'pour que le texte entre dans la cellule. .ShrinkToFit = False 'or false... End With 'zone de texte issue de la barre de dessin With .Shapes("Zone de texte 1").OLEFormat.Object 'Assigne du texte à la zone de texte .Text = Worksheets("Feuil1").Range("A1").Value .Width = Worksheets("Feuil1").Range("A1").Width .Height = Worksheets("Feuil1").Range("A1").Height .Top = Worksheets("Feuil1").Range("A1").Top .Left = .Top = Worksheets("Feuil1").Range("A1").Left 'Redimensionne automatiquement le contrôle 'à la teneur du texte. .AutoSize = False End With End With End Sub '-------------------------------
Salutations!
"Syl" a écrit dans le message de news: MQ7kf.5939$ Bonjour Daniel!
J'ai essayé la propriété autofit mais sans succès car l'ajustement de la cellule se fait en fonction du texte qui se trouve dans la cellule sans tenir compte du texte qui se trouve dans le contrôle "Zone de Texte", même si le contrôle est ajusté à la cellule. Ce qu'il me faudrait en fait c'est une propriété autofit ou l'équivalent qui s'appliquerait à l'objet Shape. Je ne sais trop comment m'y prendre.
Des idées...
Merci.
"Daniel" a écrit dans le message de news:
Bonjour. A mon avis, le nombre de lignes dans la cellule ne correspond pas au nombre de lignes de la textbox. Pourquoi n'utilises-tu pas range("Xn").entirerow.autofit, pour dimensionner ta cellule ? Cordialement. Daniel
Bonjour Syl,
Ceci va redimensionner et situer la zone de texte exactement
aux dimensions de la cellule A1 de la feuil1. De même la
zone de texte prendra le contenu de la cellule A1
'-------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1")
.Value = "Il neige ce soir sur Montréal."
'retour à la ligne automatique
.WrapText = True
'Son opposé, il modifie la police
'pour que le texte entre dans la cellule.
.ShrinkToFit = False 'or false...
End With
'zone de texte issue de la barre de dessin
With .Shapes("Zone de texte 1").OLEFormat.Object
'Assigne du texte à la zone de texte
.Text = Worksheets("Feuil1").Range("A1").Value
.Width = Worksheets("Feuil1").Range("A1").Width
.Height = Worksheets("Feuil1").Range("A1").Height
.Top = Worksheets("Feuil1").Range("A1").Top
.Left = .Top = Worksheets("Feuil1").Range("A1").Left
'Redimensionne automatiquement le contrôle
'à la teneur du texte.
.AutoSize = False
End With
End With
End Sub
'-------------------------------
Salutations!
"Syl" <syl.news2@sympatico.ca> a écrit dans le message de news: MQ7kf.5939$Et5.409969@news20.bellglobal.com...
Bonjour Daniel!
J'ai essayé la propriété autofit mais sans succès car l'ajustement de la
cellule se fait en fonction du texte qui se trouve dans la cellule sans
tenir compte du texte qui se trouve dans le contrôle "Zone de Texte", même
si le contrôle est ajusté à la cellule.
Ce qu'il me faudrait en fait c'est une propriété autofit ou l'équivalent qui
s'appliquerait à l'objet Shape. Je ne sais trop comment m'y prendre.
Des idées...
Merci.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uYqk67j9FHA.1520@TK2MSFTNGP10.phx.gbl...
Bonjour.
A mon avis, le nombre de lignes dans la cellule ne correspond pas au
nombre de lignes de la textbox. Pourquoi n'utilises-tu pas
range("Xn").entirerow.autofit, pour dimensionner ta cellule ?
Cordialement.
Daniel
Ceci va redimensionner et situer la zone de texte exactement aux dimensions de la cellule A1 de la feuil1. De même la zone de texte prendra le contenu de la cellule A1
'------------------------------- Sub test() With Worksheets("Feuil1") With .Range("A1") .Value = "Il neige ce soir sur Montréal." 'retour à la ligne automatique .WrapText = True 'Son opposé, il modifie la police 'pour que le texte entre dans la cellule. .ShrinkToFit = False 'or false... End With 'zone de texte issue de la barre de dessin With .Shapes("Zone de texte 1").OLEFormat.Object 'Assigne du texte à la zone de texte .Text = Worksheets("Feuil1").Range("A1").Value .Width = Worksheets("Feuil1").Range("A1").Width .Height = Worksheets("Feuil1").Range("A1").Height .Top = Worksheets("Feuil1").Range("A1").Top .Left = .Top = Worksheets("Feuil1").Range("A1").Left 'Redimensionne automatiquement le contrôle 'à la teneur du texte. .AutoSize = False End With End With End Sub '-------------------------------
Salutations!
"Syl" a écrit dans le message de news: MQ7kf.5939$ Bonjour Daniel!
J'ai essayé la propriété autofit mais sans succès car l'ajustement de la cellule se fait en fonction du texte qui se trouve dans la cellule sans tenir compte du texte qui se trouve dans le contrôle "Zone de Texte", même si le contrôle est ajusté à la cellule. Ce qu'il me faudrait en fait c'est une propriété autofit ou l'équivalent qui s'appliquerait à l'objet Shape. Je ne sais trop comment m'y prendre.
Des idées...
Merci.
"Daniel" a écrit dans le message de news:
Bonjour. A mon avis, le nombre de lignes dans la cellule ne correspond pas au nombre de lignes de la textbox. Pourquoi n'utilises-tu pas range("Xn").entirerow.autofit, pour dimensionner ta cellule ? Cordialement. Daniel
