Problème avec Err.Number

Bonjour

Depuis la version 2007, j'ai remarqué ce problème...
Pourquoi Err.Number prend il la valeur de 9 !!
Avec Excel 2003 il restait à 0.

Code:

---

1 2 3 4 5 6 7

Sub test_error()   Debug.Print Err.Number '=0 Sheets(1).Range("A1").Value = "coucou" Debug.Print Err.Number 'pourquoi = 9 ????   End Sub

---

Merci
@+
Dams'

Slt,
j'ai aussi Excel 2007, et j'ai essayé ton code dans un nouveau classeur.
Il me met "coucou" en A1 ,j'ai mis un msgbox apres debug.print.

Résultat Err.number = 0, C'est OK.

Code:

---

1 2 3 4 5 6 7 8 9

Sub test_error()   Debug.Print Err.Number '=0 Sheets(1).Range("A1").Value = "coucou" Debug.Print Err.Number 'pourquoi = 9 ???? MsgBox Err.Number   End Sub

---

A+

Bizarre...
Moi il me met 9 dans le message.
Par contre, ma macro ne plante pas et il m'écrit bien coucou dans A1...

Également fait avec un nouveau classeur (non enregistré) et copié tel quel dans le module 1.

L'erreur 9 correspond à : "L'indice n'appartient pas à la sélection"

Quelqu'un d'autre peut-il tester ?

Je viens de tester sur un autre ordi... résultat = 0 !!!
C'est quoi ce délire ?!!
Pourquoi chez moi c'est 9 !!?
Quelqu'un d'autre peut-il tester ?

Créer un nouveau document et copier ce code dans un nouveau module... ça prend 30 secondes...
merci

Code:

---

1 2 3 4 5 6

Sub test_error()   Sheets(1).Range("A1").Value = "coucou" MsgBox Err.Number   End Sub

---

test avec encore un autre ordi... résultat = 9 aussi !!

Bonjour,

Je viens de recopîer très exactement ce code et de le lancer (Excel 2007)

Je connaissais le résultat, mais bon ...

====>>> Err.Number reste à 0 (bien évidemment)

Et la version d'Excel n'a là rien à voir ...

Seule conclusion possible :

Le code que tu nous montres n'est qu'une partie de ton code réel ;)

Fais-nous (pour voir), un copier coller complet et fidèle de ton code...

non je t'assure je n'ai que ça !!
et j'ai fait ce test sur plein d'ordis dans ma boîte et y'en a qui renvoient 0 d'autres 9 !!!

Il y a alors là un mystère insoluble concernant les "ordis" de ta boîte ! :ccool:

Pour parvenir à un tel effet (avec ce seul code), il faudrait le faire exprès (hooker, mettre des messages dans la queue, etc...) depuis quelque part ailleurs que ton appli..... (et je veux penser qu'il n'y a pas un plaisantin dans ta boîte)

EDIT :
Question pouvant être par ailleurs intéressante :
Les "ordis" concernés ont-ils une version Excel dotée de "Add-Ins" ?

Citation:

---

Envoyé par ucfoutu

Il y a alors là un mystère insoluble concernant les "ordis" de ta boîte ! :ccool:

Pour parvenir à un tel effet (avec ce seul code), il faudrait le faire exprès (hooker, mettre des messages dans la queue, etc...) depuis quelque part ailleurs que ton appli..... (et je veux penser qu'il n'y a pas un plaisantin dans ta boîte)

---

Que j'explique quand même comment je m'en suis rendu compte...

J'avais une appli 2003 qui marchait nickel... depuis qu'on à migré en 2007... la macro déliré à un moment car err.value = 9... mais bon pour en arriver là et trouver pourquoi err.value = 9 y'a eu du chemin ??... et enfin pour simplifier le truc au maximum et essayer de trouver d'où venait le problème j'ai alors simplement écrit ces quelques lignes dans un nouveau classeur que je crée en live... donc pas de plaisantins possibles :-) !

Code:

---

1 2 3 4 5 6

Sub test_error()   Sheets(1).Range("A1").Value = "coucou" MsgBox Err.Number   End Sub

---

mais le pire c'est que la macro ne plante pas !! pas besoin de "On Error Resume Next".. elle s'exécute mais Err.Value prend étrangement la valeur de 9 !!

Citation:

---

Envoyé par damsmut

j'ai alors simplement écrit ces quelques lignes dans un nouveau classeur que je crée en live... donc pas de plaisantins possibles :-) !

Code:

---

1 2 3 4 5 6

Sub test_error()   Sheets(1).Range("A1").Value = "coucou" MsgBox Err.Number   End Sub

---

---

Je crois que tu n'as pas compris ce que j'exposais plus haut...
Ton appli n'aurait rien à voir dans une telle affaire :lol:

Lis également mon édit.

Bonjour à tous,

Il m'est arrivé d'avoir une erreur inexpliquée, quand la macro complémentaire Eurotools était installée, la désinstallation avait réglé le problème.

Peut être une piste ?

Edit : la discussion ici


Edit2 : Le lien vers la réponse de Fred pour désinstaller

Citation:

---

Question pouvant être par ailleurs intéressante :
Les "ordis" concernés ont-ils une version Excel dotée de "Add-Ins" ?

---

J'ai effectivement installé "Microsoft Office 2003 Web Components - OWC11"...

Mais d'autres pc n'ont pas cela d'installé et j'ai également 9 en résultat...

Par contre, nous avons Excel sur un Terminal serveur et là le résultat = 0...

Je testerai ce soir à la maison également.

je viens de comparer les addins d'un pc à l'autre...
effectivement les mêmes ne sont pas activés...
je vais creuser dans cette voie

Ah, les copains "add-ins", hein...
Il peuvent dans certains cas être tout sauf de vrais amis .....:lol:...
Et c'est surtout vrai lorsque leur source n'est pas connu ou si (connu) il n'est pas analysé et compris...
Et encore plus vrai s'ils "hookent", détournent des messages, etc... (bref ... ils peuvent devenir de parfaits espions..., mais avec quelques petits bugs non prévus qui font que leur présence se fait sentir ...) :lol:
Zigouille-les ! ... Sauf si tu les maîtrises parfaitement (après en avoir analysé le source, hein ...)

LE COUPABLE EST CE FOUTU EUROTOOLS !!! :aie::aie::aie:

cette m#&%$ dont je ne connaitrai jamais l'utilité

un grand merci !!