Bonjour à Tous,
Bonne année et bonne santé.
Merci pour l'intérêt que vous portez au sujet. C’est une super idée mais cela ne fonctionne pas .
Lorsque je clique sur OK, j’ai l’erreur 438 : Propriété ou méthode non gérée par cet objet. Et VBA me renvoie vers la ligne « If poZone.Text = "" And pbOglibatoire Then » du code :
Private Function ZoneOK(poZone As Object, peFormat As E_Format, psInfo As String, pbOglibatoire As Boolean) As Boolean
ZoneOK = False
If poZone.Text = "" And pbOglibatoire Then
MsgBox "Veuillez renseigner la zone [" & psInfo & "]", vbExclamation
poZone.SetFocus
Exit Function
End If
'contrôle des zones renseignées
If poZone.Text <> "" Then
If peFormat = E_Date Then
If Not IsDate(poZone.Text) Then
MsgBox "Zone incorrecte : [" & psInfo & "]" & vbCrLf & "Attendu : date", vbExclamation
poZone.SetFocus
Exit Function
End If
ElseIf peFormat = E_Numerique Then
If Not IsNumeric(Replace(poZone.Text, ".", ",")) Then
MsgBox "Zone incorrecte : [" & psInfo & "]" & vbCrLf & "Attendu : nombre", vbExclamation
poZone.SetFocus
Exit Function
End If
End If
End If
ZoneOK = True
End Function
Cette macro permet de vérifier le remplissage des champs (zone de liste).
Dans l’userform Ajouter, dans la zone de liste « Date », Est-ce que le texte qui s’inscrit est bien en format date ? Parce le format d'écriture est différent par rapport au autres champs. Pouvez-vous m'aider ?
Dans la version 2.41, j’ai apporté plusieurs corrections dans les macros pour l’onglet mensualisation. Il n'y a pas de rapport avec l'affichage du calendrier, puisque je rencontre aussi le souci avec la version d'origine 2.40.
Cdt,
RD