Bonsoir Jocelyne, le Forum
Huum "Si la date cloture est remplie, le suivi en mois = date contact moins date cloture sinon maintenant moins date contact"....
Tout est realisable mais vu la présentation visuelle de ton UserForm il faut respecter le même ordre, or là je ne sais même pas si on doit saisir quelque part obligatoirement ou pas... Donc avec le bouton OK seulement je peux faire un checking de ce style :
Private Sub ok_Click()
Me.suivienmois = ""
If Me.dateducontact <> "" Then
If Me.datecloture = "" Then Me.datecloture = Format(Now, "DD:MM:YYYY")
Me.suivienmois = Format((Me.dateducontact - Me.datecloture), "MM")
Else
MsgBox "Pas de date de Contact", vbCritical, "Donnée manquante"
Exit Sub
End If
listeusager.Hide etc etc ton code .......
Mais vu que tout tes controls sont liés par la Propriété "ControlSource" çà ne marchera jamais !!! (sorry)
Non, à ce stade de programmation, je ne peux pas faire plus car ce Userform n'est qu'un masque de saisie figé avec des cellules, donc il faut soit gérer tout le reste par formules dans la feuille, soit refaire toute la conception de ce UserForm... (Sorry bis)
Là je fais faire dodo par contre
Bonne nuit
@+Thierry