Double clic sur les cellules et Useform

[Munchkin]

Bonjour le forum

ma semaine commence mal avec ce petit problème

à la case A1 sur une double click ca m'ouvre le useform en récupérant la valeur de la cellule A1

TextBox1.Value = Range("A1").Value

mais je voudrais que ca marche aussi pour les autre cellule

donc coment modifier la ligne du programme ci dessus de facon qu'elle ne récupare pas seulement la valeur da A1 mais la valeur de la cellule sur laquelle je clic et certaienement dans une certaine plage déterminée

 

[Pascal76]

salut Munchkin et le forum

Remplace simplement ta ligne :

TextBox1.Value = Range("A1").Value

par

TextBox1.Value = ActiveCell.Value

Bon courage

Pascal

 

[Munchkin]

Ca marche bien mais c'est fasi pour toute la page

quelle est le meilleur facon de le faire pour une plage bien spécifié et non pas toute la page?

Grand merci Pascal (t'as réponse m'a décu, il fallait que je la trouve seule, je ne l'oublira pas toute ma vie)

Munchkin

 

[Pascal76]

Re

par exemple pour la plage A1:A4 ecris dans Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

If Not Intersect(Target, Range("A1:A4")) Is Nothing Then
UserForm1.Show
End If

au lieu de UserForm1.Show seul

Bon courage

Pascal

 

[Munchkin]

ca marceh bien,

Merci Pascal

mantenant je comprend ce que cela veut dire

If Not Intersect(Target, Range("A1:A4")) Is Nothing

à la prochaine lol

Munchkin