Création d'un userform
Bonjour,
je ne sais pas comment faire un userform...
J'ai mis en place un MsgBox"Limite dépassée" mais ou trouver des infos pour le remplacer par un userform qui me donnerait un message d'alerte identique "Limite dépassée" avec une case à cliquer pour déroger à la règle de la limite dépassée et pouvoir le faire apres saisie dun mot de passe.
merci pour votre aide
Bonjour,
merci beaucoup pour votre aide
ce que je ne comprends pas, cest que me MsgBox se déclenche à partir d"une étape dans une macro mais qu'introduire dans la macro pour déclencher l'ouverture de l'userform ??
voila macro :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim c As Range, v As Range
Dim Pers As String
Dim Jr As Integer
Dim N As Byte
With Sh
If Target.Column > 1 And Target.Column < 24 Then
For Each c In Target
Jr = c.Column
Pers = .Cells(c.Row, 1)
For Each v In .Range("A14:A15,A18:A20,A27:A28,A29:A30,A31:A32,A33:A34")
If v.Value = Pers Then
Application.EnableEvents = False
.Cells(v.Row, Jr) = c
Application.EnableEvents = True
End If
N = Verif(Jr)
If N > 0 And c <> "" Then
c.Value = ""
MsgBox "Permanence minimale atteinte"
End If
Next v
Next c
End If
End With
End Sub
Private Function Verif(ByVal Col As Integer) As Byte
Dim Nb(1 To 6) As Byte, j As Byte, Mx As Byte
Mx = 1
With ActiveSheet
For j = 2 To 6
Nb(j) = Application.CountA(Intersect(.Columns(Col), .Range("BLOC" & j)))
If j = 1 Then Mx = 2
If Nb(j) > Mx Then
Verif = j
Exit For
End If
Next j
End With
End Function
Bonjour
A la place de ton msgbox fais l'appel à l'userform
Un exemple (si tu as gardé les mêmes variables)
If N > 0 And c <> "" Then
Userform1.Show
If Autorise = False Then
c.Value = ""
MsgBox "Permanence minimale atteinte"
End If
End Ifcest trop beau le resultat
merci
Je vous mets le fichier exemple pour que vous compreniez le souci auquuel je dois faire face...
prenons la personne 4 et la 5, qui ne peuvent pas etre absente simultanèment.
tapez X en C14 et Y en C15. Lors de la saisie du Y une fenetre souvre. si "ok" alors annulation de la saisie de Y. mais je voudrais que faire un forcage de la saisie soit possible apres avoir cliqué sur "validation" et entrer le mot de passe "MDP" et conserver ces modifications.
est ce possible décrire ca ou non ? avez vous des pistes a me donner ?
merci pour votre aide !!
Bonsoir
Bon les bonnes nouvelles
Tu avais inversé les CommandButton
Tu avais modifié le nom du CommandButton mais tu n'avais pas rectifié la macro
La variable booléenne c'est "Autorisation" pas "Autorise" (c'est un peu ma faute)
La mauvaise nouvelle (mon avis)
Si tu forces la validation, la prochaine personne qui veut s'exclure ne pourra pas : Même s'il elle le peut en temps normal
Voir ton fichier
bonjour!
excuse moi mais je ne comprends pas ce que tu veux dire par : "Si tu forces la validation, la prochaine personne qui veut s'exclure ne pourra pas : Même s'il elle le peut en temps normal"
car ce que tu as fait marche chez moi
Bonjour
Ce que je veux dire
C en C14
N en C19
Cela fonctionne bien
Maintenant
C en D14
K en D15 ----> Message + Forçage OK
N en D19 ----> Message : Et ce n'est pas normal
C'est tout ce que je voulais dire
ah oui cest un gros probleme en fait lol