Excel VBA - Textbox à saisie conditionnée
Résolu
Chriscam8786
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
Chriscam8786 Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
Chriscam8786 Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
3 réponses
Bonjour,
Et merci de ton aide,
J'ai finalement trouvé une solution alternative hier dans la journée à ce problème que je me traîne depuis déjà quelques temps. La voici :
Private Sub VALIDER_Click()
IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1
Dim Lg As String
'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox6
Lg = Sheets("Feuil1").Cells(65536, 1).End(xlUp).Row + 1
'texte des cases
Sheets("Feuil1").Cells(Lg, "A").Value = FicheVierge.TextBox1.Value
Sheets("Feuil1").Cells(Lg, "B").Value = FicheVierge.TextBox2.Value
Sheets("Feuil1").Cells(Lg, "C").Value = FicheVierge.TextBox3.Value
Sheets("Feuil1").Cells(Lg, "E").Value = FicheVierge.TextBox6.Value
Sheets("Feuil1").Cells(Lg, "F").Value = FicheVierge.TextBox7.Value
Sheets("Feuil1").Cells(Lg, "G").Value = FicheVierge.ComboBox1.Value
Sheets("Feuil1").Cells(Lg, "H").Value = FicheVierge.ComboBox2.Value
Sheets("Feuil1").Cells(Lg, "I").Value = FicheVierge.ComboBox4.Value
Sheets("Feuil1").Cells(Lg, "J").Value = FicheVierge.ComboBox5.Value
Sheets("Feuil1").Cells(Lg, "K").Value = FicheVierge.ComboBox6.Value
Sheets("Feuil1").Cells(Lg, "L").Value = FicheVierge.TextBox8.Value
Sheets("Feuil1").Cells(Lg, "M").Value = FicheVierge.ComboBox3.Value
Sheets("Feuil1").Cells(Lg, "N").Value = FicheVierge.TextBox9.Value
Sheets("Feuil1").Cells(Lg, "O").Value = FicheVierge.TextBox13.Value
FicheVierge.Hide
SuiviActivite.Show
End Sub
Ce petit schéma permet de renseigner automatiquement la base de données (feuille cachée de mon classeur masqué ; lol, je veux juste que les utilisateurs voient les boîtes de dialogue, ça fait plus "pro") lorsqu'on valide la saisie par le bouton "VALIDER".
J'espère qu'il t'aidera aussi,
Chris
Et merci de ton aide,
J'ai finalement trouvé une solution alternative hier dans la journée à ce problème que je me traîne depuis déjà quelques temps. La voici :
Private Sub VALIDER_Click()
IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1
Dim Lg As String
'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox6
Lg = Sheets("Feuil1").Cells(65536, 1).End(xlUp).Row + 1
'texte des cases
Sheets("Feuil1").Cells(Lg, "A").Value = FicheVierge.TextBox1.Value
Sheets("Feuil1").Cells(Lg, "B").Value = FicheVierge.TextBox2.Value
Sheets("Feuil1").Cells(Lg, "C").Value = FicheVierge.TextBox3.Value
Sheets("Feuil1").Cells(Lg, "E").Value = FicheVierge.TextBox6.Value
Sheets("Feuil1").Cells(Lg, "F").Value = FicheVierge.TextBox7.Value
Sheets("Feuil1").Cells(Lg, "G").Value = FicheVierge.ComboBox1.Value
Sheets("Feuil1").Cells(Lg, "H").Value = FicheVierge.ComboBox2.Value
Sheets("Feuil1").Cells(Lg, "I").Value = FicheVierge.ComboBox4.Value
Sheets("Feuil1").Cells(Lg, "J").Value = FicheVierge.ComboBox5.Value
Sheets("Feuil1").Cells(Lg, "K").Value = FicheVierge.ComboBox6.Value
Sheets("Feuil1").Cells(Lg, "L").Value = FicheVierge.TextBox8.Value
Sheets("Feuil1").Cells(Lg, "M").Value = FicheVierge.ComboBox3.Value
Sheets("Feuil1").Cells(Lg, "N").Value = FicheVierge.TextBox9.Value
Sheets("Feuil1").Cells(Lg, "O").Value = FicheVierge.TextBox13.Value
FicheVierge.Hide
SuiviActivite.Show
End Sub
Ce petit schéma permet de renseigner automatiquement la base de données (feuille cachée de mon classeur masqué ; lol, je veux juste que les utilisateurs voient les boîtes de dialogue, ça fait plus "pro") lorsqu'on valide la saisie par le bouton "VALIDER".
J'espère qu'il t'aidera aussi,
Chris
1 userform initialisée avec un commandbutton
5 textbox
1 listbox a 5 colonnes
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim a As Long, b As Long
If TextBox1.Text = vbNullString Or KeyCode = 8 Or Len(TextBox1) < Sensibility Then Exit Sub
b = TextBox1.SelStart
For a = 0 To ListBox1.ListCount - 1
If ListBox1.List(a) Like TextBox1.Text & "*" Then
With TextBox1
.Text = ListBox1.List(a)
.SelStart = b
.SelLength = Len(.Text) - b
TextBox2.Text = ListBox1.List(a, 1)
TextBox3.Text = ListBox1.List(a, 2)
TextBox4.Text = ListBox1.List(a, 3)
TextBox5.Text = ListBox1.List(a, 4)
End With
Exit Sub
End If
Next a
End Sub
lorsque l' on tape une lettre dans le textbox nom celui ci est incrementé au fur a mesure des frappe
ainsi que les autres textbox
si 2 nom identique probleme non resolu pour le textbox prenom
si tu as trouver la suite je suis preneur