Boite de dialogue intégrée sous excel

[papouny]

Bonjour,

L'écriture en code VBA pour l'utilisation de la boite de dialogue intégrée sous excel ( formulaire ) est la suivante :

ActiveSheet.ShowDataForm
ou
Application.CommandBars.FindControl(ID:=860).Execute

Est'il possible d'ajouter une ligne de code de manière à paramètrer à l'écran la position du formulaire ( en haut et à droite de l'écran ) dès son activation.

merci pour votre aide

 

[roro69]

Re : Boite de dialogue intégrée sous excel

Bonjour à essayer:

With ActiveSheet.ShowDataForm

.StartUpPosition = 0
.Left = Application.UsableWidth - .Width
.Top = Application.UsableHeight - .Height

End With

A++

 

[papouny]

Re : Boite de dialogue intégrée sous excel

Malheureusement votre solution ne fonctionne pas

Merci pour votre aide