Bonjour,

j'ai un petit souci pour ajouter une autre ligne dans un texbox.

Je m'explique, j'ai un textbox qui s'appelle tbxspecifications !

A l'intérieur l'utilisateur devra mettre un certain nombre de texte qui risque de dépasser le cadre. Donc je voudrais limiter mon cadre et pouvoir ajouter des lignes.

Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
    With tbxspecifications
        'spécifie que la touche ENTREE ajoutera une nouvelle ligne
        tbxspecifications.EnterKeyBehavior = True
        UserForm1.Print
    End With
End Sub
j'ai un message d'erreur qui me dit que l'objet ne peut être défini ?

J'ai aussi un souci pour l'impression et faire que mon Userform s'affiche à l'ouverture de mon document je vous donne le code complet.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Option Explicit
 
Private Sub CommandButton1_Click()
    Dim i As Integer
    'deuxième bouton OK
    'feuille contenant la valeur à chercher
    With Sheets("CLIENTS")
        'de la ligne 2 à la dernière ligne utilisée de la colonne A
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            'recherche de la ligne en colonne A qui correspond à la sélection du combobox1
            If .Cells(i, 1).Text = Me.ComboBox1 Then
                'si oui ComboBox1 = colonne suivante même ligne
                tbxAdresse1 = .Cells(i, 4).Text
                tbxAdresse2 = .Cells(i, 5).Text
                tbxcp = .Cells(i, 7).Text
                tbxville = .Cells(i, 8).Text
                tbxpays = .Cells(i, 10).Text
                tbxmoyenpaiement = .Cells(i, 21).Text
                tbxAdresse1Livraison = .Cells(i, 13).Text
                tbxAdresse2Livraison = .Cells(i, 14).Text
                tbxcpLivraison = .Cells(i, 16).Text
                tbxvilleLivraison = .Cells(i, 17).Text
                tbxpaysLivraison = .Cells(i, 19).Text
 
                Exit For
            End If
        Next
    End With
End Sub
 
Private Sub Effacer_Click()
    End
End Sub
 
Private Sub OK_Click()
    Dim i As Integer
 
    'feuille contenant la valeur à chercher
    With Sheets("CONTRATS")
        'de la ligne 2 à la dernière ligne utilisée de la colonne J
        For i = 2 To .Cells(Rows.Count, 10).End(xlUp).Row
            'recherche de la ligne en colonne j qui correspond à la sélection de la Listbox
            If .Cells(i, 10).Text = Me.ListBox1 Then
                'si oui texbox1 = colonne suivante même ligne
                tbxproduit = .Cells(i, 6).Text
                tbxcontrat = .Cells(i, 1).Text
                tbxlieu = .Cells(i, 12).Text
                tbxprix = .Cells(i, 14).Text
                tbxdestinataire = .Cells(i, 8).Text
                tbxClientsFact = .Cells(i, 9).Text
                tbxClientsLivr = .Cells(i, 7).Text
 
                Exit For
            End If
        Next
    End With
End Sub
Voilà, merci si quelqu'un à une idée pour m'aider. :