[VBA] pb avec inputbox
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 ...
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 ...
Configuration: Windows XP Firefox 1.5.0.11
3 réponses
-
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.
-
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 -
Je veux connaître le range de la cellule cliquée pour continuer le traitement.
