Copier données d'un USERFORM dans une feuille en fonction du texte d'un COMBOBOX

[Myst]

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

 

[Paf]

Re : Copier données d'un USERFORM dans une feuille en fonction du texte d'un COMBOBOX

Bonjour

Toujours moins facile quand il n'y a pas de classeur pour tester.

a priori

Private Sub CommandButton1_Click()

 Dim Ctrl As Control
 Dim r As Integer
 Dim t As Integer
 Dim derligne As Integer

 With Worksheets( ComBoBox )
 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 .Cells(derligne, r) = Ctrl
     End If
 Next
 End With
 TextBox1 = ""
End Sub

A+

 

[Myst]

Re : Copier données d'un USERFORM dans une feuille en fonction du texte d'un COMBOBOX

Bonsoir

Avec le fichier c'est plus facile
je voudrais copier les données saisie dans l'userform ("Changement_de_lames") en fonction du ComboBox4
si je selectionne 1 dans la liste cela copie les données vers la feuille 1
2 vers feuille 2
3 vers feuille 3
4 vers feuille 4

merci

 

[Paf]

Re : Copier données d'un USERFORM dans une feuille en fonction du texte d'un COMBOBOX

Re

  With Worksheets("GESTION DES LAMES " & ComboBox4)
     derligne = .Range("A65536").End(xlUp).Row + 1
     For Each Ctrl In Changement_de_lames.Controls
      If InStr(Ctrl.Name, "CommandButton") = 0 Then
        r = Val(Ctrl.Tag)
        If r > 0 Then .Cells(derligne, r) = Ctrl
       End If
     Next
   End With

prévoir un test pour éviter plantage si rien a été sélectionné en combo 4

A+

 

[Myst]

Re : Copier données d'un USERFORM dans une feuille en fonction du texte d'un COMBOBOX

et si je veux copier les données saisie dans l'UserForm1 en fonction des ComboBox2 et ComboBox4
Saisie dans ComboBox2 " PA62 " plus saisie dans ComboBox4 " 1 " vers l'onglet " PA62 1 "
Saisie dans ComboBox2 " PA62 " plus saisie dans ComboBox4 " 2 " vers l'onglet " PA62 2 "
Saisie dans ComboBox2 " PA63 " plus saisie dans ComboBox4 " 4 " vers l'onglet " PA63 4 "
ect...

Merci

 

[Paf]

Re : Copier données d'un USERFORM dans une feuille en fonction du texte d'un COMBOBOX

re,

c'est le même principe, mettre le noms de variable plutôt que le nom en "dur"

With Worksheets(ComboBox2 & ComboBox4)

juste éventuellement rajouter un espace ( & " " ) entre ComboBox2 et ComboBox4 s'il n'est pas inclu dans la ComboBox2 .

Bonne suite

 

[Myst]

Re : Copier données d'un USERFORM dans une feuille en fonction du texte d'un COMBOBOX

merci a toi Paf
ça fonctionne nickel🙂