Agrandir une textBox selon le texte quelle contient

[Toubabou]

Bonjour à tous,
Pourriez-vous m'aider pour que ma TextBox3 s'agrandisse automatiquement en fonction du texte quelle contient?
Merci par avance
Toubabou

 

[patricktoulon]

bonjour
après avoir regarder ton userform ta demande n'est pas très claire

 

[Toubabou]

bonjour
après avoir regarder ton userform ta demande n'est pas très claire

Euh, je peux avoir des définitions de plusieurs lignes d'où l'intérêt d'avoir la possibilité d'agrandir la Textebox
Toubabou

 

[patricktoulon]

re
ce qui implique que tout les controls qui sont en dessous doivent descendre en même temps

 

[Toubabou]

Oui effectivement

 

[patricktoulon]

ok je regarde cela
mais a l'affichage au départ il en manque une partie c'est normal(voulu)?

 

[patricktoulon]

bon voila mais c'est pas très pratique pour le reste de l'userform
je limite à 45 caractères par ligne (tout les 45 un saut de ligne auto) et un redimensionnement du tbx et repositionnement des controls qui sont en dessous

Private Sub TextBox3_Change()
    With TextBox3
        t = .Value
        If Len(t) > 40 And Len(t) Mod 45 = 0 Then
            t = t & vbCrLf: nbligne = UBound(Split(t, vbCrLf)): .Height = 38 + (15 * nbligne): .Value = t
            For Each ctrl In Me.Controls
                If ctrl.Top > .Top + .Height Then ctrl.Top = ctrl.Top + 15
            Next
        Me.Height = Me.Height + 15
        End If
    End With
End Sub

mais si je puis me permettre j'aurais fait plus simple

 

[Toubabou]

Bonsoir Patrick,
Je répond de mon téléphone, je ne peux donc pas voir comment cela fonctionne. Par contre je suis ouvert à toute proposition plus simple.
Toubabou

 

[Toubabou]

bon voila mais c'est pas très pratique pour le reste de l'userform
je limite à 45 caractères par ligne (tout les 45 un saut de ligne auto) et un redimensionnement du tbx et repositionnement des controls qui sont en dessous

Private Sub TextBox3_Change()
    With TextBox3
        t = .Value
        If Len(t) > 40 And Len(t) Mod 45 = 0 Then
            t = t & vbCrLf: nbligne = UBound(Split(t, vbCrLf)): .Height = 38 + (15 * nbligne): .Value = t
            For Each ctrl In Me.Controls
                If ctrl.Top > .Top + .Height Then ctrl.Top = ctrl.Top + 15
            Next
        Me.Height = Me.Height + 15
        End If
    End With
End Sub

mais si je puis me permettre j'aurais fait plus simple

 

[Toubabou]

Bonjour Patrick,
Je viens de regarder effectivement il est possible de lire toute la définition. Mais ce n'est pas réellement ce que je cherchais. Il n'est pas évident pour des enfants de de naviguer dans cette TextBox. Je pensais qu'il était possible que la TextBox s'agrandisse automatiquement afin que tout le texte soit disponible en même temps. Mais c'est déjà un travail très utile et je t'en remercie.
Bon WE
Toubabou

 

[patricktoulon]

re
chez moi tout le texte est visible tout le temps
j'ai certes modifié plein de petites choses dans ton userform
et c'est ce que tu devra faire de toute facon
mais je le redis tu aurais pu faire plus simple avec un seul textbox pour ajouter ou modifier

 

[Toubabou]

Je ne suis pas très doué en VBA c'est pour cela que je fais appel au Forum.
Toubabou

 

[jmfmarques]

Bonjour

Je pensais qu'il était possible que la TextBox s'agrandisse automatiquement afin que tout le texte soit disponible en même temps.

il n'est pas évident pour des enfants de de naviguer dans cette TextBox

La vocation d'une textbox est l'édition. Ces "enfants" devront-ils y saisir/modifier ? Si non, se contenter d'un label qui, lui, est doté d'une propriété ad hoc (autosize)

 

[Toubabou]

Bonjour


La vocation d'une textbox est l'édition. Ces "enfants" devront-ils y saisir/modifier ? Si non, se contenter d'un label qui, lui, est doté d'une propriété ad hoc (autosize)

Non simplement consulter tel un ditionnaire

 

[jmfmarques]

Non simplement consulter tel un ditionnaire

Utilise alors un label (me relire)