Remplir des Textbox avec la fonction BeforeRightClick

[waow29]

Bonjour et Bonne année.
Je cherche en vain à copier des cellules d'une feuille excel dans des textbox d'un userform en cliquant droit avec la souris.
J'ai trouvé cette fonction:

Public Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Me.TextBox8.Text = ActiveCell 'ici je met la valeur qui se trouve dans la cellule active dans le textbox
End Sub

Cela fonctionne très bien avec une seule textbox, et mon Userform contient 20 textbox.
Comment faire en sorte que n'importe quelle Texbox active soit remplie par un clic droit dans une cellule?
Merci d'avance pour votre aide

 

[Pierrot93]

Re : Remplir des Textbox avec la fonction BeforeRightClick

Bonjour,

peut être ceci.....

UserForm1.ActiveControl.Text = ActiveCell

sans plus de détails...

bonne journée
@+

 

[waow29]

J'ai essaye et cela me donne une erreur d'exécution 438

 

[Pierrot93]

Re : Remplir des Textbox avec la fonction BeforeRightClick

Re,

fonctionne chez moi, l'usf doit être non modal et chargé en mémoire.... un textbox ayant le focus....

 

[waow29]

Merci Pierrot93 pour ton aide.
Je ne peux malheureusement pas partager mon fichier car il contient de nombreuses données professionnelles.
Pourrais tu etre plus précis au sujet du usf chargé en mémoire et du textebox ayant le focus?
Merci

 

[Guest]

Re : Remplir des Textbox avec la fonction BeforeRightClick

Bonjour,

Hello Pierrot

@Waoa29: ce que je ne comprends pas dans ta question: tes textbox sont sur un userForm ou dans ta feuille de calcul?

Ton rédigé suppose le userForm mais ton code suppose la feuille de calcul

le mot clef Me dans les lignes ci-dessous représente la feuille de calcul sur làquelle se produit l'évènement BeforeRightClick.

Public Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 Me.TextBox8.Text = ActiveCell 'ici je met la valeur qui se trouve dans la cellule active dans le textbox
End Sub

[Edit]

Je ne peux malheureusement pas partager mon fichier car il contient de nombreuses données professionnelles.

C'est pour cela que nous demandons des classeurs exemples anonymisés reproduisant le problème

A+

 

[waow29]

ma societe bloque le site web cijoint.fr, auriez vous un autre site web pour poster le fichier?

 

[Pierrot93]

Re : Remplir des Textbox avec la fonction BeforeRightClick

Re, bonjour Hasco, JM

le mieux est un tout petit fichier posté directement sur le forum....

 

[waow29]

Ci joint le fichier

Regarde la pièce jointe LISTE DES DETECTEURS Vnet.xls

 

[Pierrot93]

Re : Remplir des Textbox avec la fonction BeforeRightClick

Re,

tes textbox sont sur des "frame", donc :

    Set ObjActive = EnregistrerModifierDetecteur.ActiveControl
    ObjActive.ActiveControl.Text = ActiveCell.Value

 

[Guest]

Re : Remplir des Textbox avec la fonction BeforeRightClick

Re,

En mettant la propriété 'ShowModal' du userform à False cela fonctionne.

    Cancel = True 'Empêche le menu contextuel de s'afficher sur click-droit (falcultatif)
    Set ObjActive = EnregistrerModifierDetecteur.ActiveControl
    EnregistrerModifierDetecteur.TextBox8.Text = ActiveCell 'ici je met la valeur qui se trouve dans la cellule active dans le textbox
    EnregistrerModifierDetecteur.TextBox9.Text = ActiveCell

A+

 

[waow29]

Super!! Un Grand Merci pour votre aide!!