Double clic sur les cellules et Useform

Munchkin · 10 Mai 2004

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 · 10 Mai 2004

salut Munchkin et le forum

Remplace simplement ta ligne :

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

par

TextBox1.Value = ActiveCell.Value

Bon courage

Pascal

Munchkin · 10 Mai 2004

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 · 10 Mai 2004

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 · 10 Mai 2004

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

Double clic sur les cellules et Useform

Munchkin

Guest

Pièces jointes

Pascal76

Guest

Munchkin

Guest

Pascal76

Guest

Munchkin

Guest

Discussions similaires