si checkbox1 coché envoyer textbox vers feuil1

[reinruof77]

Bonjour a tous

Je reviens vers vous pour une petite question sur les checkbox.
si checkbox1 coché envoyer textbox vers feuil1
si checkbox2 coché envoyer textbox vers feuil2
etc...

Merci de votre aide

 

[Compte Supprimé 979]

Re : si checkbox1 coché envoyer textbox vers feuil1

Bonsoir reinruof77,

Tes Checkbox sont nommés de CheckBox1 à CheckBoxX ?
Et tes Feuilles de Feuil1 à FeuilX ?

a+

 

[reinruof77]

Re : si checkbox1 coché envoyer textbox vers feuil1

Bonsoir BrunoM45
Mes CheckBox sont nommer checkBox1 , checkBox2 et checkBox3
et Mes feuilles R1 R2 et R3

Merci

 

[Compte Supprimé 979]

Re : si checkbox1 coché envoyer textbox vers feuil1

RE,

Alors dans ce cas 😉 si tu as 10 CheckBox

For Ind = 1 to 10
  If Me("CheckBox" & Ind).value = True then
     Sheets("R" & Ind).Range("A1") = Me.TextBox1.Value
  End If
Next Ind

A+

 

[reinruof77]

Re : si checkbox1 coché envoyer textbox vers feuil1

Merci mais comment l'adapter a ce code?

Private Sub CommandButton1_Click()
lig = Sheets("R1").Range("B65536").End(xlUp).Row + 2
' n°
Sheets("R1").Range("B" & lig) = UserForm1.TextBox1
Sheets("R1").Range("C" & lig) = UserForm1.ComboBox1
Unload UserForm1
End Sub

Je ne suis pas trés doué😛

 

[Compte Supprimé 979]

Re : si checkbox1 coché envoyer textbox vers feuil1

Salut reinruof77,

Tu as de la chance en général je ne répond pas à ce genre de question 🙄
Tu veux utiliser VBA et tu n'as même pas un peu de réflexion ...

Private Sub CommandButton1_Click()  Dim Lig As Long, Ind As Integer
  Lig = Sheets("R1").Range("B65536").End(xlUp).Row + 2
  ' n°
  For Ind = 1 To 10 ' 10 TextBox et Combobox
    If Me("CheckBox" & Ind).Value = True Then
      Sheets("R" & Ind).Range("B" & Lig) = Me("TextBox" & Ind)
      Sheets("R" & Ind).Range("C" & Lig) = Me("ComboBox" & Ind)
    End If
  Next Ind
  Unload UserForm1
End Sub

A+