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

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
 
Dernière édition:

Paf

XLDnaute Barbatruc
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

Code:
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

XLDnaute Occasionnel
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
 

Pièces jointes

  • ESSAI 2.xlsm
    57.6 KB · Affichages: 49
  • ESSAI 2.xlsm
    57.6 KB · Affichages: 43
  • ESSAI 2.xlsm
    57.6 KB · Affichages: 51

Paf

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

Re

Code:
  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

XLDnaute Occasionnel
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
 

Pièces jointes

  • ESSAI 2.xlsm
    98.7 KB · Affichages: 57
  • ESSAI 2.xlsm
    98.7 KB · Affichages: 55
  • ESSAI 2.xlsm
    98.7 KB · Affichages: 66
Dernière édition:

Paf

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll