usf disparait si tout ok sinon laisser affiché

[titiborregan5]

Bonjour à tous,
j'ai un petit problème avec ma macro. Je vous l'accorde, c'est un problème de débutant, mais en même temps je suis débutant 😀
En fait je lance un userform dès l'ouverture pour remplir une case pour la date (appelée datee) et une pour la période (appelée période).
Jusque là tout va bien... Après je veux que si on oublie de remplir un champ (ou les 2) un msg d'erreur s'affiche mais que le usf ne se ferme pas et permette de resaisir une donnée. Si tout est ok le usf se ferme.

je vous joins le fichier qui est tout simplet, désolé 😱

Merci d'avance à ceux qui me liront

 

[job75]

Re : usf disparait si tout ok sinon laisser affiché

Bonjour,

Une petite erreur de syntaxe :

If datee <> "" [COLOR="Red"]And[/COLOR] periode <> "" Then
Unload UserForm1
End If

Bon courage et A+

 

[CBernardT]

Re : usf disparait si tout ok sinon laisser affiché

bonjour titiborregan5,

Si j'ai bien compris la modification demandée :

Private Sub ok_Click()
If datee <> "" And periode <> "" Then
Cells(1, 1).Value = datee
Cells(1, 2).Value = periode
Unload UserForm1
ElseIf datee = "" And periode = "" Then
MsgBox "Erreur, Veuillez entre une date et une période", vbInformation, "Erreur période"
ElseIf datee = "" Then
MsgBox "Erreur, Veuillez indiquer une date", vbInformation, "Erreur date"
ElseIf periode = "" Then
MsgBox "Erreur, Veuillez entre une période", vbInformation, "Erreur période"
End If
End Sub

Cordialement

Bernard

Edit : Bonjour job75

 

[titiborregan5]

Re : usf disparait si tout ok sinon laisser affiché

Re,
merci CbernardT et Job75.
Le code de CbernardT fonctionne parfaitement, merci pour le ptit plus "entrez une date et une période" d'un coup plutôt que 2 fenêtres...

Une autre question, comment n'autoriser que des valeurs de date? par exemple pour datee il me faudrait que des 12/02/09 et pour période que des janvier 2009 (ou janvier 09 ou janv 09).
mettre en forme les cellules?
parce que dim datee as date et dim periode as date ca fait beuguer le truc ?

Merci d'avance