none
TextBox.Rows RRS feed

  • Question

  • Bonjour,

     

    Je cherche, sans succès hélas, à limiter le nombre de lignes dans une TextBox (word2003-xp)

    J'ai bien vu qu'il existait une propriété TextBox.Rows, mais je n'arrive pas à l'appliquer

    à mon code VBword que voici :

    Private Sub UserForm_Initialize()
    Me.TextBox1.SetFocus
    TextBox1.Text = ActiveDocument.Bookmarks("commentaires").Range.Text

    End Sub
    Private Sub CommandButton2_Click()

    Me.Hide

    End Sub
    Private Sub CommandButton1_Click()

    Dim C As String ' Commentaires

    C = Me.TextBox1.Text

    If Me.TextBox1.Value = "" Then
       MsgBox "Vous n'avez saisi aucun commentaire!", vbExclamation, "Information"
    End If

    RemplirSignet "Commentaires", C

    ActiveDocument.Bookmarks("Commentaires").Range.Fields.Update

    Me.Hide

    End Sub

     

    Un coup de pouce serait le bien venu...

     

    D'avance merci

     

    JMM21

     

    mardi 27 novembre 2007 06:44