Bonjour à vous,
J'ai créer un userform pour remplissage d'un tableau.
Cette Userform comporte plusieurs champs (TextBox et Optionbutton) et 2 CommandButton (annuler et valider).
Le but étant, si click sur valider, prend les données saisie et les inserts dans le tableau à la dernière ligne vide.
Si click sur Annuler, ne rien enregistrer et sortir de Userform.
Help me please je bloque... Merci d'avance.
Private Sub CommandButton2_Click()
If Controls("OptionButton1").Value = True Then
[Sheets("Feuil1").Range("C65536").End(xlUp).Offset(1,0)] = "CB" & Controls("OptionButton1").Caption
End If
If Controls("OptionButton2").Value = True Then
[Sheets("Feuil1").Range("C65536").End(xlUp).Offset(1,0)] = "VIR" & Controls("OptionButton2").Caption
End If
If Controls("OptionButton3").Value = True Then
[Sheets("Feuil1").Range("C65536").End(xlUp).Offset(1,0)] = "PRE" & Controls("OptionButton3").Caption
End If
If TextBox1_Change() = True Then
[Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1,0)] = UserForm1.TextBox1
End If
If TextBox2_Change() = True Then
[Sheets("Feuil1").Range("B65536").End(xlUp).Offset(1,0)] = UserForm1.TextBox2
End If
If TextBox3_Change() = True Then
[Sheets("Feuil1").Range("D65536").End(xlUp).Offset(1,0)] = UserForm1.TextBox3
End If
If TextBox4_Change() = True Then
[Sheets("Feuil1").Range("E65536").End(xlUp).Offset(1,0)] = UserForm1.TextBox4
End If
End Sub
Private Sub CommandButton1_Click()
Unload Me
End
End Sub
J'ai créer un userform pour remplissage d'un tableau.
Cette Userform comporte plusieurs champs (TextBox et Optionbutton) et 2 CommandButton (annuler et valider).
Le but étant, si click sur valider, prend les données saisie et les inserts dans le tableau à la dernière ligne vide.
Si click sur Annuler, ne rien enregistrer et sortir de Userform.
Help me please je bloque... Merci d'avance.
Private Sub CommandButton2_Click()
If Controls("OptionButton1").Value = True Then
[Sheets("Feuil1").Range("C65536").End(xlUp).Offset(1,0)] = "CB" & Controls("OptionButton1").Caption
End If
If Controls("OptionButton2").Value = True Then
[Sheets("Feuil1").Range("C65536").End(xlUp).Offset(1,0)] = "VIR" & Controls("OptionButton2").Caption
End If
If Controls("OptionButton3").Value = True Then
[Sheets("Feuil1").Range("C65536").End(xlUp).Offset(1,0)] = "PRE" & Controls("OptionButton3").Caption
End If
If TextBox1_Change() = True Then
[Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1,0)] = UserForm1.TextBox1
End If
If TextBox2_Change() = True Then
[Sheets("Feuil1").Range("B65536").End(xlUp).Offset(1,0)] = UserForm1.TextBox2
End If
If TextBox3_Change() = True Then
[Sheets("Feuil1").Range("D65536").End(xlUp).Offset(1,0)] = UserForm1.TextBox3
End If
If TextBox4_Change() = True Then
[Sheets("Feuil1").Range("E65536").End(xlUp).Offset(1,0)] = UserForm1.TextBox4
End If
End Sub
Private Sub CommandButton1_Click()
Unload Me
End
End Sub