XL 2010 Une entrée qui n’est pas acceptée

[Magic_Doctor]

Bonjour,

Voilà un bon moment que j’essaie de résoudre un problème sans y parvenir.
Je rentre les coordonnées de 2 points géographiques en degrés sexagésimaux (degrés / minutes / secondes). J’obtiens la distance à vol d’oiseau séparant ces 2 points, et d’autres informations. Apparemment, tout marche très bien, sauf pour les secondes dans un cas bien précis. Toutes les entrées (degrés / minutes / secondes) sont sujettes à un contrôle de saisies.

Quand la valeur entrée est numérique, celle-ci doit être cohérente et ne peut excéder une valeur déterminée. Si la valeur n’est pas numérique, la cellule affiche alors un point d’interrogation clignotant et la dernière valeur numérique entrée s’affiche à nouveau. Ça marche très bien. Enfin, si l’on ne rentre rien (touche « Supr »), idem que précédemment pour les degrés et les minutes, mais ça plante pour les secondes, et là je ne comprends pas pourquoi. J’ai un peu tout essayé sans succès.

Le problème doit certainement se trouver dans la macro « ControleSaisie ».

 

[Compte Supprimé 979]

Bonjour Magic_Doctor,

Comment faire pour produire ton erreur ?
Car j'ai beau essayé à priori ça fonctionne bien chez moi
@+

 

[Magic_Doctor]

Bonjour BrunoM45,

Pour les degrés et minutes, pas de problème quand on rentre une valeur non numérique (par exemple "jj") ou RIEN (quand on appuie sur la touche "Supr"). En revanche, pour les secondes, c'est OK pour une valeur non numérique, mais si on appuie sur la touche "Supr", ça plante.

 

[Compte Supprimé 979]

Re,

Effectivement, il suffit de changer ta ligne

Set c = Range(adresse)

par

Set c = Range(adresse).Resize(, 1)

Il faut ne prendre qu'une cellule

@+

 

[job75]

Bonsoir Magic_Doctor, Bruno,

Tout à fait Bruno et il est plus simple d'écrire Set c = Range(adresse)(1)

Ensuite on pourra remplacer If Not IsNumeric(c) Or c = "" Then

par If Not IsNumeric(CStr(c)) Then

A+

 

[Magic_Doctor]

Bonsoir job, Bruno,

Et bien, merci les amis, enfin ça marche sans surprises.
J'aurais dû bien me douter que le problème résidait dans ces maudites cellules fusionnées (qui sont fréquemment sources d'ennuis), sans pour autant le résoudre aussi élégamment que vous l'avez fait.
Ces cellules sont fusionnée pour des raisons d'esthétique. Ceci n'est en fait que la moitié de l'application, l'autre étant, sur la même feuille, les saisies en degrés décimaux, avec d'autres trucs en plus.

Buenas noches a ambos.