Validation impossible si TextBox pas remplie
Résolu/Fermé
ti_mouton
Messages postés
143
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
5 septembre 2020
-
Modifié par pijaku le 4/06/2015 à 11:59
ti_mouton Messages postés 143 Date d'inscription vendredi 29 mai 2015 Statut Membre Dernière intervention 5 septembre 2020 - 4 juin 2015 à 14:42
ti_mouton Messages postés 143 Date d'inscription vendredi 29 mai 2015 Statut Membre Dernière intervention 5 septembre 2020 - 4 juin 2015 à 14:42
A voir également:
- Validation impossible si TextBox pas remplie
- Ethernet n'a pas de configuration ip valide - Guide
- Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum Excel
- Nouvelle validation sim ✓ - Forum Samsung
- Commande en cours de validation fnac - Forum Internet / Réseaux sociaux
- Impossible d'utiliser ce numéro de téléphone pour la validation - Forum Gmail
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
4 juin 2015 à 11:59
4 juin 2015 à 11:59
Bonjour,
Ici peut être :
Ici peut être :
Private Sub CommandButton1_Click()
Dim DerLig As Integer
If TextBox1 = "" Then Exit Sub '!!!!!! ICI
With Worksheets("Saisie")
DerLig = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("C" & DerLig).Value = ComboBox1.Value
.Range("D" & DerLig).Value = ComboBox2.Value
.Range("E" & DerLig).Value = ComboBox3.Value
.Range("F" & DerLig).Value = ComboBox4.Value
.Range("G" & DerLig).Value = ComboBox5.Value
.Range("B" & DerLig).Value = ComboBox6.Value
.Range("H" & DerLig).Value = TextBox1.Value
.Range("K" & DerLig).Value = TextBox2.Value
End With
Unload UserForm1
End Sub
4 juin 2015 à 12:04
4 juin 2015 à 12:14
Private Sub CommandButton1_Click() Dim DerLig As Integer If TextBox1 = "" Then MsgBox "Merci de remplir le champ Description" Exit Sub '!!!!!! ICI End If With Worksheets("Saisie") DerLig = .Range("B" & Rows.Count).End(xlUp).Row + 1 .Range("C" & DerLig).Value = ComboBox1.Value .Range("D" & DerLig).Value = ComboBox2.Value .Range("E" & DerLig).Value = ComboBox3.Value .Range("F" & DerLig).Value = ComboBox4.Value .Range("G" & DerLig).Value = ComboBox5.Value .Range("B" & DerLig).Value = ComboBox6.Value .Range("H" & DerLig).Value = TextBox1.Value .Range("K" & DerLig).Value = TextBox2.Value End With Unload UserForm1 End Sub4 juin 2015 à 14:42