Erreur mémoire insuffisante

Bonjour,

J'ai un classeur de gestion du personnel que je gère avec un userform et quand je ferme l'userform, j'ai une erreur "mémoire insuffisante" et je ne vois pas pourquoi

Pourriez-vous m'aider

Bonjour,

Il y a plusieurs erreurs de compilation, commences par les résoudre.

Bonjour,

précise quelles manip faire pour avoir l'erreur.

Rien à voir mais tu as doublé ton Or ici :

Function ChainePasOK(ByRef la_date As String) As Boolean
    Dim t: t = Split(la_date, "/")
    If UBound(t) < 2 Or Or UBound(t) > 2 Or Len(la_date) < 10 Then Exit Function
    VerifDate = CStr(DateSerial(Val(t(2)), Val(t(1)), Val(t(0)))) = la_date
End Function

qui peut s'écrire plus simplement d'ailleurs :

If UBound(t) <> 2  Or Len(la_date) < 10 Then Exit Function

Contrôler la longueur de chaine ne sert à rien, DateSerial sans erreur fait le contrôle de validité.

Il manque une gestion d'erreur, et tu n'affectes pas de résultat à ta fonction.

Tout ça en 3 lignes... Pas sûr que ça donne envie de regarder le reste du code;-)

eric

eriiic a écrit :

Bonjour,

précise quelles manip faire pour avoir l'erreur.

Rien à voir mais tu as doublé ton Or ici :

Function ChainePasOK(ByRef la_date As String) As Boolean
    Dim t: t = Split(la_date, "/")
    If UBound(t) < 2 Or Or UBound(t) > 2 Or Len(la_date) < 10 Then Exit Function
    VerifDate = CStr(DateSerial(Val(t(2)), Val(t(1)), Val(t(0)))) = la_date
End Function

qui peut s'écrire plus simplement d'ailleurs :

If UBound(t) <> 2  Or Len(la_date) < 10 Then Exit Function

Contrôler la longueur de chaine ne sert à rien, DateSerial sans erreur fait le contrôle de validité.

Il manque une gestion d'erreur, et tu n'affectes pas de résultat à ta fonction.

Merci beaucoup je n'ai plus d'erreur

eriiic a écrit :

Tout ça en 3 lignes... Pas sûr que ça donne envie de regarder le reste du code;-)

eric

Oui peut-être, je suis désolé, je suis plus que débutant et c'est en récupérant ici et là des idées que je créé mon application ! Et c'est bien pour cela que je demande votre aide car je sais que vous êtes de très loin meilleurs que moi

Bonjour à tous,

Ici, j'ai plusieurs erreurs sur les lignes contenant Format(CDbl(c.Offset(0, 3)), "dd/mm/yyyy")

Si je remplace par CDate(c.Offset(0, 3)) ... tout va bien.

ric

Merci beaucoup je n'ai plus d'erreur

ça m'étonnerait

Patrice33740 a écrit :

Il y a plusieurs erreurs de compilation, commences par les résoudre.

C'est facile à faire : Débogage / Compiler VBAProject

Ok merci à tous, je regarde tout cela et reviens vers vous si besoin, enfin certainement vu mon niveau