aide avec userform

dridri

XLDnaute Nouveau
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

  • 2008.xlsm
    24.6 KB · Affichages: 71

dridri

XLDnaute Nouveau
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
 

dridri

XLDnaute Nouveau
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

  • 2008_V3.xlsm
    31.6 KB · Affichages: 55

Discussions similaires

Statistiques des forums

Discussions
312 321
Messages
2 087 266
Membres
103 502
dernier inscrit
talebafia