Bonjour à tous,

Tout d’abord, je vous présente mes vœux pour cette nouvelle année. Vœux de santé, de bonheur et de réussite tous azimuts pour vous-même et ceux que vous aimez.

Je suis nouveau sur votre site.

Je me suis inscrit suite au téléchargement de ce qui suit :

 

'---------------------------------------------------------------------------------------

' Author    : Didier FOURGEOT (myDearFriend!) - www.mdf-xlpages.com

' Date      : 12/12/2008

' Topic     : mDF MsgBoxPerso et boutons personnalisés v1.2

'---------------------------------------------------------------------------------------

' Exemples d'utilisation de la mDF MsgBoxPerso

 

Ensuite, j'ai créé un fichier classeur1 et j'ai recopié les codes, créé une seconde macro et tout marche bien.

Puis, j’ai copié la macro complète de mon classeur 1 dans mon classeur « Matrice », et là, l’une des deux macros ne fonctionne pas et pourtant les codes sont identiques dans les deux classeurs.

Malheureusement, bien que j'ai réduit mon classeur Matrice à sa plus simple expression, il est trop gros, je ne peux pas le joindre.

 
Erreur 13 incompatibilité de type

Déjà que je ne connais pas VBA, là, c'est vraiment trop fort pour mon neurone de 1er janvier.

Pourriez-vous m’aider ?

Je joins les deux classeurs. J’utilise excel 2010.
Je vous en remercie par avance.
Amicalement,
Lionel,

Bonjour arthour973, bienvenue sur XLpages.com,
Bonjour le Forum et meilleurs voeux à toutes et tous,

Citation :
- Où est le 2ème classeur ?
- Excel 2010 (32 ou 64 bits ?)
- A quel moment obtiens-tu cette erreur et sur laquelle des 2 procédures ?
- Obtiens-tu la boîte de dialogue personnalisée avant ce plantage ou n'obtiens-tu rien du tout ?

Si le code est - exactement - le même dans les 2 classeurs, il n'y a aucune raison pour que tu obtiennes une erreur dans seulement un des deux ! Aussi, j'ai plutôt dans l'idée que ton erreur provienne du "Call ..." exécuté à la fin de tes procédures TestMsgBoxPersoplutôt que dans ces procédures elles-même.

Si je prends pour exemple le 2ème classeur que tu fournis notamment ICI :

A mon avis, et selon le peu d'informations fournies, c'est la procédure suivante qui devrait te causer problème :

Pourquoi ?
Tout simplement parce que dans le code suivant :
... la fonction Month() attend une valeur de date alors que ta cellule J7 en feuille "Procèdure" n'en est pas une !
Pour moi, et dans cette situation précise, ton souci ne provient pas de la MsgBoxPerso, mais de ce que tu fais après...

Par ailleurs cher arthour973, tu serais bien gentil d'éviter de copier-coller ici tes messages laisser en premier lieu chez nos amis d'XLD ou d'ailleurs. Je t'invite notamment à prendre connaissance de mon avis sur la question et te remercie de ta compréhension.

Cordialement,

Bonjour Didier,
Je vous remercie pour votre réponse et vous m'avez apporté la solution car en effet et c'est tout bête, j'avais modifié la feuille contenant la cellule J7 qui est devenu H7 et j'ai tout simplement oublié de modifier la macro.

En ce qui concerne le second fichier que je n'ai pas joint, comme je l'ai dit dans mon message, il est trop important, j'ai essayé mais je n'ai pas pu.

En ce qui concerne votre "juste" remarque :Par ailleurs cher arthour973, tu serais bien gentil d'éviter de copier-coller ici tes messages laisser en premier lieu chez nos amis d'XLD ou d'ailleurs. Je t'invite notamment à prendre connaissance de mon avis sur la question et te remercie de ta compréhension.",

vous avez tout à fait raison et je vous prie de m'en excuser.

Ce n'est pas mon habitude et je ne l'avais jamais fait.

Si j'ai fait cela, c'est uniquement parce que j'avais trouvé votre macro sur le net et ma réaction immédiate a été de m'adresser au forum sur lequel je suis inscrit depuis début décembre et sur lequel j'ai trouvé des gens formidables.

Cependant, l'impatience étant comme la colère mauvaise conseillère, je me suis dit qu'il serait peut-être mieux de m'adresser à la personne qui a écrit cette macro et que ce serait plus simple... ce qui est quand même le cas.

Bien évidemment, cela ne remet pas cause la qualité des amis auxquels je m'adresse habituellement.

Je vais encore faire un copier/coller car par honnêteté je veux qu'ils soient informés de cela.

merci à vous d'avoir trouvé "ma bêtise" dans la macro et je confirme votre remarque. Je ne recommencerai plus cela.

Amicalement,
Lionel,

Re,

Ok, pas de problème arthour973. C'est entendu.

Je mets donc ce fil de discussions en [résolu] comme il se doit.

Cordialement,

Bonjour Didier,

Je reviens sur vos MsgBox qui fonctionnent à merveille.
Cependant, j'ai un petit soucis :
Quand je lance votre MsgBox, si je m'aperçois que j'ai lancé par erreur et que je veux arrêter l'opération, je ne peux pas. Voir fichier joint.

Y-t-il une solution ?

merci de votre aide,
Amicalement,
Lionel,

Bonjour arthour973, le Forum,

Avant toutes choses, cher arthour973, je tiens à rappeler qu'il serait préférable de pratiquer déjà à minima le basique de la programmation VBA avant de te lancer dans l'utilisation de telles procédures (ne le prends pas mal arthour973, mais ça me semble normal de t'alerter sur ce point).

L'utilisation de la MsgBoxPerso est quasi similaire à l'utilisation d'une MsgBox « classique » (c'est même un des objectifs de cette mDF MsgBoxPerso) et c'est visiblement la valeur de retour de cette fonction que tu ne sais pas exploiter comme il convient.

Aussi je te conseille déjà de consulter CET ARTICLE pour bien comprendre le principe d'utilisation d'une MsgBox « classique » en tant que fonction, et savoir quoi faire de sa valeur retournée.

Pour te mettre sur la piste (et je m'arrêterai là), dans ton code :
... ne sert strictement à rien !

Ensuite, pour tout connaitre des subtilités de la mDF MsgBoxPerso et savoir comment l'exploiter au mieux : c'est dans CE TUTORIEL.

Cordialement,

Nb: l' « erreur 13 incompatibilité de type » (titre d'origine du présent sujet) étant résolue, je te remercie de créer de nouveaux sujets pour tes nouvelles questions.