[VBA] pb avec inputbox

Question

Bonjour,

Je soumets un petit pb aux experts, concernant INPUTBOX en VBA.

Code concerné :

Public Msg As String
Public Titre As String
Public Rng_Place_pointee As Range 'place pointée dans "gradins"
...
Workbooks(Class_gradins).Sheets("gradins").Activate
On Error GoTo SB_annule 'l'utilisateur a cliqué "annuler"
Set Rng_Place_pointee = Application.InputBox(Prompt:=Msg, Title:=Titre, Type:=8, Left:=500, Top:=50)
On Error Resume Next



Pb rencontré :

L'INPUTBOX marche d'une manière apparemment aléatoire : bien que cliquant toujours sur OK, la routine d'erreur "SB_annule" reçoit parfois la main, d'autre fois on passe bien en séquence.
Si je supprime l'instruction "on error goto ..." j'ai une erreur 424 aléatoirement.
APPLICATION a bien pour valeur "Microsoft Excel".


Configuration :

Windows/XP SP2
MS Office 2002 SP3


Merci pour la réponse, je patine dur ...

arxg · Answer

Précision : le cas décrit se produit si on scrolle le feuille active (verticalement ou horizontalement) avant de cliquer sur une cellule. Si on clique sans scroller, INPUTBOX marche correctement.

arxg · Answer

Merci pout ta réponse Louis.
Cependant je veux le RANGE de la cellule sur laquelle on clique. Je dois donc utiliser la forme set xxx = application.inputbox

arxg · Answer

Je veux connaître le range de la cellule cliquée pour continuer le traitement.

[VBA] pb avec inputbox

3 réponses

Discussions similaires

Newsletters