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

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

Habituellement, j'utilise le calendrier de mon cher Roland_M qui fonctionne super bien avec la particularité de positionner l'UserForm sur la cellule cliquée.
Dans le fichier joint au fil, j'ai créé un UserForm (sans calendrier) et j'ai besoin également que le textbox s'affiche sur la cellule cliquée.

Mais voilà, bricolo que je suis, je n'arrive à copier dans le code de Roland_M les parties du code qui me permettraient de solutionner mon besoin.
Si vous aviez une solution de code, ça m'arrangerait bien lol.

Dans le fichier joint, la cellule cliquée est la cellule E2 :

Un grand merci par avance,
Amicalement,
lionel.

 

[sousou]

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

 

[Usine à gaz]

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

Bonne soirée,
lionel,

 

[Staple1600]

Bonsoir

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

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

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.

 

[Usine à gaz]

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

 

[Staple1600]

Re

J'avais précisé

NB: Faire les adaptations idoines.

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...

 

[Usine à gaz]

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 !

 

[Usine à gaz]

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,

 

[Staple1600]

Re

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

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.