comment ajouter une autre ligne dans un texbox
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:
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:
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. ::bug:
