bonjour
j 'ai trouvé un code permettant de creer autant de textbox que de cellules selectionnées sur un efeuille excel et de remplir ces textbox avce les valeurs des cellules...
or je ne comprends pas les dernieres lignes du code.
de plus mes textbox s inscrivent horizontalement les unes à la suite des autres..
T1 T2 T3.....
et j aimerais qu elles s'inscrivent verticalement :
T1
T2
T3
....
pourriez vous m expliquer?
je travaille avec excel 97
Je vous remercie.
voici le code
dans l attente d une reponse, bonne journee à tous
j 'ai trouvé un code permettant de creer autant de textbox que de cellules selectionnées sur un efeuille excel et de remplir ces textbox avce les valeurs des cellules...
or je ne comprends pas les dernieres lignes du code.
de plus mes textbox s inscrivent horizontalement les unes à la suite des autres..
T1 T2 T3.....
et j aimerais qu elles s'inscrivent verticalement :
T1
T2
T3
....
pourriez vous m expliquer?
je travaille avec excel 97
Je vous remercie.
voici le code
Code:
Public Sub ctbox()
Dim i As Integer, j As Integer, x As Integer, y As Integer
Dim TxtB As Control
'
y = 1
For Each cell In Selection
Set TxtB = Me.Controls.Add("forms.Textbox.1")
With TxtB
.Left = x * 36
.Top = 10 + ((y - 1) * 20)
.Width = 30
.Height = 15
.Text = cell.Value & " "
End With
'c'est c derniers lignes que je ne comprend pas
x = x + 1
If x = tsval Then
x = 0
y = y + 1
End If
Set TxtB = Nothing
Next cell
End Sub
dans l attente d une reponse, bonne journee à tous