Myst
XLDnaute Occasionnel
Bonjour a tous,
Voici le problème ,
Actuellement je saisie des données dans un UserForm puis je les copie dans une feuille en cliquant sur un Boutton
Il me faudrait plusieurs feuilles et je voudrais que les données soient copiées dans une des feuilles en fonction du choix saisie dans un ComboBox
ci-dessous le code utilisé
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
With Worksheets("Feuil1")
derligne = .Range("A65536").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
If InStr(Ctrl.Name, "CommandButton") = 0 Then
r = Val(Ctrl.Tag)
If r > 0 Then Feuil1.Cells(derligne, r) = Ctrl
End If
Next
End With
TextBox1 = ""
End
End Sub
Voici le problème ,
Actuellement je saisie des données dans un UserForm puis je les copie dans une feuille en cliquant sur un Boutton
Il me faudrait plusieurs feuilles et je voudrais que les données soient copiées dans une des feuilles en fonction du choix saisie dans un ComboBox
ci-dessous le code utilisé
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
With Worksheets("Feuil1")
derligne = .Range("A65536").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
If InStr(Ctrl.Name, "CommandButton") = 0 Then
r = Val(Ctrl.Tag)
If r > 0 Then Feuil1.Cells(derligne, r) = Ctrl
End If
Next
End With
TextBox1 = ""
End
End Sub
Dernière édition: