Amelioration USF

[bingo10]

Bonjour,
Je siuhaiterai que l'on puisse ameliorer cet USF avec msgbox ...
Voici le fichier pour compréhension! Merci!
Regarde la pièce jointe Gest ST Eassai1.zip

 

[phlaurent55]

Re : Amelioration USF

Bonjour Bingo,
essaie ceci

Private Sub CommandButton1_Click()
[COLOR="Blue"]' ici tu testes si dépassement du nombre entré
if Montant.Value>4 or Délai.Value >4 or Conformité.Value >4 or ............Then
Message.Visible = True
Exit Sub
End If
' Message étant un label que tu vas ajouter sur ton usf
' et qui contiendra "le message à afficher "
' N'oublie pas de remettre Message.Visible = False[/COLOR]

[a65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CDate(Me.Periode)
Range("a4").End(xlDown).Value = Format(Periode.Value, "mmmm-yy")
ActiveCell.Offset(0, 1).Value = Application.Proper(Me!Société)
ActiveCell.Offset(0, 2).Value = Application.Proper(Me!Metier)
ActiveCell.Offset(0, 3).Value = Me.Chantier
ActiveCell.Offset(0, 4).Value = Me.Lieu
ActiveCell.Offset(0, 5).Value = Me.Type_Client
ActiveCell.Offset(0, 6).Value = CDbl(Me.Montant)
ActiveCell.Offset(0, 7).Value = Val(Me.Délai)
ActiveCell.Offset(0, 8).Value = Val(Me.Conformité)
ActiveCell.Offset(0, 9).Value = Val(Me.Qualité)
ActiveCell.Offset(0, 10).Value = Val(Me.Contrat)
ActiveCell.Offset(0, 11).Value = Val(Me.Facture)
ActiveCell.Offset(0, 12).Value = Val(Me.Rglt)
[COLOR="blue"]' Ne pas oublier la ligne ci-dessous
Message.Visible = False[/COLOR]
End Sub

Concernant l'affichage centré ou à droite dans les cellules, sélectionne-les manuellement et aligne comme tu les veux

 

[bingo10]

Re : Amelioration USF

Bonjour Phlaurent 55,
C'est fabuleux! trés bonne idée
Merci!

 

[phlaurent55]

Re : Amelioration USF

Re,
j'ai oublié de te dire que lors de l'ajout de ton label "Message" sur l'userform, tu dois lui mettre la propriété Visible=False afin d'éviter de le voir apparaître avant de rentrer les données

Bonne journée
Philippe

 

[bingo10]

Re : Amelioration USF

C'est vrai Philippe!
Sympas!