Microsoft 365 UserForm - Position d'affichage sur la cellule cliquée

sousou

XLDnaute Barbatruc

• 17 Mars 2021

• #2

Bonjour
Pas compris ou tu veux que ton userfom s'affiche?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 17 Mars 2021

• #3

Bonsoir Sousou,
Merci pour ton message 🙂
Je le voudrais ICI ;

Bonne soirée,
lionel,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2021

• #4

Bonsoir

Question multi-traitée sur le forum
mais comme ma soupe est trop chaude 😉
Code dans l'userform

VB:

Private Sub UserForm_Initialize()
With Me
    .StartUpPosition = 0
    .Top = ActiveCell.Top + ActiveCell.Height + .Height - 21
    .Left = ActiveCell.Left + 18
End With
End Sub

Code dans la feuille concernée

VB:

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If Not Intersect(T, Range("B1:B1600")) Is Nothing Then
UserForm1.Show
End If
End Sub

NB: Faire les adaptations idoines.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 17 Mars 2021

• #5

Bonsoir JM,

Merci pour ton retour,
Effectivement, c'est traité, tant sur notre Forum que sur le net mais je n'y arrive pas 😡

J'ai testé tes codes et je n'arrive pas à les faire fonctionner d'autant plus que j'ai déjà dans ma feuille un code
"Private Sub Worksheet_SelectionChange(ByVal T As Range)" mais avec (ByVal R As Range)

Je continue mes recherches,
lionel 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2021

• #6

Re

J'avais précisé

NB: Faire les adaptations idoines.

Cliquez pour agrandir...

On aura remarqué que mon exemple était liée à la plage B1:B1600
Pour testé, il suffisait d'un classeur vierge avec un userform et de mettre le code au bon endroit...
🙄

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 17 Mars 2021

• #7

Re JM,

Effectivement mais j'ai un conflit car j'ai déjà ce code mon Ma feuille :
Private Sub Worksheet_SelectionChange(ByVal R As Range)
Je cherche comment contourner mais je n'y arrive pas !

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 17 Mars 2021

• #8

Re JM, j'y suis arrivé grâce à toi.
Je te remercie 🙂

Petit question finale :
Je n'ai que des ordinateur de même taille et même résolution.
Penses-tu que ça fonctionnera de la même façon sur des ordinateur de différentes résolutions ?
Encore merci 🙂
lionel,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2021

• #9

Re

Penses-tu que ça fonctionnera de la même façon sur des ordinateur de différentes résolutions ?

Cliquez pour agrandir...

La réponse est dans la question
Ou plutôt la question invite à une réponse toute simple
"Il suffit de tester pour le savoir!"
1) En changeant la résolution de ton PC (momentanément)
2) En testant sur le PC d'un tiers.

 

Vote positif 0 Vote négatif