Erreur d'execution 7 mémoire insuffisante

Bonsoir à tous,

Voici un fichier de rapatriement de données via un formulaire.

Il comprend le bug erreur d'exécution 7 mémoire insuffisante.

je sèche complétement sur ce bug depuis quasiment une semaine.

J'ai fait des recherches mais rien ne l'explique.

Les causes possibles qui sont :

• mémoire nécessaire plus importante que la mémoire disponible ou une limite de segment de 64 ko rencontrée,
• module ou procédure est trop volumineux,
• Exécution de MS Windows en mode standard,
• Exécution MS Windows en mode étendu avec manque de mémoire virtuelle.
• Exécution de programmes résidents ,
• Chargement de pilotes de périphérique
• Espace disponible pour les variables publiques insuffisant, semblent exclues.

La dernière cause possible serait la tentative de mettre à jour une propriété qui est en lecture seule mais le code est inaccessible pour l'utilisateur du fichier.

Il y a bien des instructions de déprotection et de reprotection de certaines feuilles.

Mais elles sont la pour permettre la sauvegarde des données rapatriées sur des feuilles cahées , cela fonctionne bien avec d'autres fichiers construits de manière identique mais pour celui-ci.

En plus il me semble qu'une fois les résultats exportés via le formulaire , les données des feuilles cachées s' éffacent automatiquement.

L'un de vous a t il une idée ? une solution?

Merci d'avance,

Siga

Bonjour,

Dans la macro Private Sub CommandButton1_Click() de f1, tu as ...

 dlf11 = Worksheets("Y").Range("B" & Rows).End(xlUp).Row + 1
 dlf12 = Worksheets("Z").Range("B" & Rows).End(xlUp).Row + 1

modifie pour ...

 dlf11 = Worksheets("Y").Range("B" & Rows.Count).End(xlUp).Row + 1
 dlf12 = Worksheets("Z").Range("B" & Rows.Count).End(xlUp).Row + 1

ric

Bonjour à tous,

Merci RIC,

C'était exactement cela

Siga

ric