• Initiateur de la discussion Initiateur de la discussion dridri
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

dridri

Guest
Bonjour,

Je dois créer un userform qui permet de rentrer des données dans une base de donnée située en feuille 2. Mon soucis est que pour le salaire, je n'arrive pas à empecher l'entrée si celui ci n'est pas un chiffre positif et si une des cases est vierges on ne doit pas pouvoir appuyer sur OK.

je met le fichier en pièce jointe, la vba est commencée.

Merci de votre aide,

Dridri
 

Pièces jointes

Re : aide avec userform

Private Sub CommandButton1_Click()
a = TextBox3.Value
If Not IsNumeric(a) Then
MsgBox ("The data must be a number")
If a <= 0 Then
MsgBox ("The number must be positive")
End If
End If


Sheets("sheet2").Select
Range("A2").Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = TextBox1.Value

Range("B2").Select
ActiveCell.FormulaR1C1 = TextBox2.Value

Range("C2").Select
ActiveCell.FormulaR1C1 = Calendar1.Value

Range("D2").Select
ActiveCell.FormulaR1C1 = ComboBox1.Value

Range("E2").Select
ActiveCell.FormulaR1C1 = TextBox3.Value

Range("A2").Select
Unload UserForm1


End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
 
Re : aide avec userform

Bonjour,

Merci beaucoup pour cette précieuse aide.

J'aurai une dernière question à vous poser. Comment faire pour permettre de rerentrer des données sans repasser par le bouton. J'ai essayer de proposer de rentrer de nouvelles données avec vb YES NO à la fin mais je n'y arrive pas.


J'ai mis le fichier en pièce jointe.

Merci encore,

Dridri
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
907
Réponses
1
Affichages
656
Retour