Erreur d'exétion incompatibilité de type erreur 13

Bonsoir le forum

de nouveau je fais appel à vous pour comprendre l'incompréhensible

du 1er premier userform, je cherche à ouvrir le 2ème avec la commande société

j'ai un message incompatibilité de type

et je ne trouve pas d'où peut venir l'erreur

je vous remercie par avance de bien vouloir m'apporter votre aide

Dans un 2ème temps, si vous pouvez controler mes boutons de commande pour une amélioration possible

1) validation pour empêcher la saisie d'un doublon

2) le bouton modification

Bonjour,

Pour le premier item, dès que j'ai ajouté quelques sociétés dans la feuille "Société", le passage au Userform2 via le bouton du UserForm1 s'est mis à fonctionner.

Ric

Bonjour,

Pour ton 2e item ... le unload ferme le formulaire et le vide

À la rouverture, les boxs sont vides.

Unload UserForm1
Ajout = False 
UserForm1.Show (0)

ric

Rebonjour,

Si tu dois absolument fermer le formulaire pour le rouvrir.

Avant de le fermer, stocke les infos dans une feuille.

Ainsi, tu pourras les charger à nouveau.

ric

Bonsoir le forum

Merci Ric de ton aide

Mais j'ai toujours erreur 13

Unload UserForm1

Ajout = False

UserForm1.Show (0)

j'ai changé userform1 en userform2 pour ouvrir l'userform2 mais pas de résultat positif

Merci de ton aide

Bonjour,

Et cette version-ci ... fonctionne-t-elle ?

ric

bonjour le forum, Ric

J'ai essayé cela semble fonctionner ,

peux tu m'expliquer ton intervention

Encore une fois merci pour ton aide

Bonjour,

Pour être sûr des changements que j'ai faits, j'ai téléchargé à nouveau ton fichier soumis au début.

- Feuille Société > ajouter manuellement quelques sociétés ... car, s'il y en a une seule, ça bogue.

C'est tout, je n'ai fait rien d'autre.

Par contre, le code a besoin d'un peu d'indentation pour s'y retrouver.

À quelques endroits, la feuille où vérifier, modifier ou ajouter n'est pas clairement identifiée.

Sans identification, le code utilise la feuille en cours, ce qui peut donner de drôles de résultats.

Le bouton "Validation" (B_valid_Click), dernière ligne "SupprimerDoublons4C" nous amène à la macro qui ne fonctionne pas bien, ce code dans le module1 est à revoir, car il efface la première ligne dans la feuille.

Les autres bogues, que j'ai eu, provenaient sûrement de manipulations malheureuses que j'ai faits dans le code.

ric

Rebonjour le Forum, Ric

Merci pour ta réponse

Il me manque juste un peu de rigueur,

encore une fois merci

Rerebonjour,

Regarde dans ma nouvelle signature, un lien vers un utilitaire (en macro complémentaire) qui va corriger l'indentation...

ric

Bonsoir le forum ric

Je ne suis vraiment pas un spécialiste

et pour l'instant tout cela me parait compliquer

merci toutefois

Rechercher des sujets similaires à "erreur exetion incompatibilite type"