userform et gestion données .Range !

[arnaoke]

Bonjour le forum,

Probablement une question bête, mais je sèche un peu.

Je dois afficher un userForm au double click sur une colonne.
Ce userform récapitulera des données propre à la ligne ou l'on à clické.

Pour le UserForm, pas de pb pour le moment, je l'affiche, je vois à peu près les champs, etc.
Mon problème vient du fait que je ne sais pas comment sélectionner le contenu de la cellule d'une la meme ligne que celle ou l'on à clicker (me suis je bien fait comprendre ? )

En gros : je click sur la cellule B9, j'affiche mon userform, et je veux voir (entre autres) un champs avec afficher la valeur de la case E9.

J'ai deja codé ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
    Dim typeDeContrat As String
    typeDeContrat = target.Value' ?? attribuer la valeur de la même ligne que target, mais colonne X
    UserForm1.Show
    msgbox "Vous avez double cliqué sur la cellule " & typeDeContrat
  Cancel = True
End Sub

ceci est un test, et je vous avoue que je ne sais pas tellement comment marche "target" (je pense en fait que mon pb vient de là ... )

Merci par avance de votre aide !!

Arnaoke

 

[Pierrot93]

Re : userform et gestion données .Range !

Bonjour,

et je veux voir (entre autres) un champs avec afficher la valeur de la case E9.

si tu veux récupérer la valeur dans un textbox de ton usf, code à placer dans l'événement "Initialize" de l'usf :

TextBox1.Value = ActiveCell.Offset(0, 1).Value

En espérant que cela puisse t'aider à avancer..

bonne journée
@+

 

[arnaoke]

Re : userform et gestion données .Range !

oui, cela fonctionne, mais un petit problème cependant : puis je verrouiller la zone de texte, afin qu'elle ne soit pas modifiée ?

 

[Pierrot93]

Re : userform et gestion données .Range !

Re,

essaye avec ceci :

TextBox1.Locked = True

 

[arnaoke]

Re : userform et gestion données .Range !

comme sur des roulettes !

merci beaucoup !

Arnaoke

 

[arnaoke]

Re : userform et gestion données .Range !

je viens de me rendre compte, je n'ai apparement pas assez renseigné la méthode worksheet_BeforeDoubleClick, puisque apparemment le double click fonctionne sur toute la feuille de calcul, et pas seulement su la colonne concernée (C en l'occurence)..

j'ai pourtant bien pris le temps de mettre target en variable globale (sur la feuille au moins) mais rien n'y fait ... des idées ?

 

[Pierrot93]

Re : userform et gestion données .Range !

Re,

modifie le début de procédure ainsi :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 3 Then Exit Sub

 

[arnaoke]

Re : userform et gestion données .Range !

pas bête du tout ... je n'y avais mémé pas pensé ...

Merci beaucoup 🙂