Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Position de application.inputbox

  • Initiateur de la discussion Initiateur de la discussion Guy_M
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Guy_M

XLDnaute Occasionnel
Bonjour,

Je voudrait que Application.InputBox s'ouvre approximativement au niveau du bouton donc je passe en paramètre des coordonnées avec le code suivant.
VB:
Private Sub MonBouton_Click()
(...)
PosHautIB = Me.Top + Me.MonBouton.Top 'Me est le userform
PosGaucheIB = Me.Left
Set CellChoisie = Application.InputBox("Sélection de cellules", "Choisissez une cellule", , PosGaucheIB, PosHautIB, , , 8)
(...)
end sub

Ça ne fonctionne pas, Application.InputBox s'ouvre toujours à la dernière position où je l'ai déplacé manuellement.

Il semble que cela ne concerne que Excel 2007.

Avez-vous rencontré le même problème ?

Auriez-vous un contournement ? (N'y aurait-il que le USF avec un refedit mimant Application.InputBox ?)

Par avance, je vous remercie de vos réponses.
Guy
 
Dernière édition:
Re : Position de application.inputbox

Bonjour.

Personnellement je ne vois pas trop l'intérêt puisque WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean) est déjà décrété par l'objet Application Excel.
 
Re : Position de application.inputbox

Bonjour,

C'est un choix : j'ai plusieurs variables globales de type WorkBook, utiliser "Classeur_BeforeClose" me permet de ne pas devoir tester "Wb" dans "WorkbookBeforeClose" pour décider de la suite des actions.

A bientôt
Guy
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…