hypo78
XLDnaute Impliqué
Bonjour à tous,
j'ai un code dans un Userform du type :
Dans l'exemple, je m'arrête à la colonneD, mais mon besoin est sur 35 colonnes (checkbox de 1 à 35) et ce sur plusieurs feuilles.
Je découvre les Userform depuis 5 jours, donc ma question, il y a-t-il moyen de simplifier ce code, ou dois-je taper les 35 codes x n-feuilles.
Merci d'avance.
j'ai un code dans un Userform du type :
Code:
Private Sub CommandButton1_Click()
'mise en mémoire du dernier numero de ligne non vide
ligne_bas = Range("A65536").End(xlUp).Row
'Basculement des données userform dans feuille excel
Range("A" & ligne_bas + 1).Value = TextBoxDate.Text
Range("B" & ligne_bas + 1).Value = CheckBox1.Value
If CheckBox1.Value = True Then
Range("B" & ligne_bas + 1) = "R"
Else
Range("B" & ligne_bas + 1).Value = ""
End If
Range("C" & ligne_bas + 1).Value = CheckBox2.Value
If CheckBox2.Value = True Then
Range("C" & ligne_bas + 1) = "R"
Else
Range("C" & ligne_bas + 1).Value = ""
End If
Range("D" & ligne_bas + 1).Value = CheckBox3.Value
If CheckBox3.Value = True Then
Range("D" & ligne_bas + 1) = "R"
Else
Range("D" & ligne_bas + 1).Value = ""
End If
End SubDans l'exemple, je m'arrête à la colonneD, mais mon besoin est sur 35 colonnes (checkbox de 1 à 35) et ce sur plusieurs feuilles.
Je découvre les Userform depuis 5 jours, donc ma question, il y a-t-il moyen de simplifier ce code, ou dois-je taper les 35 codes x n-feuilles.
Merci d'avance.