Userform avec un click et non Doubleclick

G

Guest

Guest

• 24 Septembre 2009

• #2

Re : Userform avec un click et non Doubleclick

bonsoir,

Le click sur une cellule entraine sa sélection. Si tu veux que ton userForm s'ouvre sur selection d'une cellule, par exemple "A1":

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then UserForm3.Show
End Sub

Mais à l'usage cela risque d'être pénible, plus moyen de sélectionner la cellule sans que le userform s'affiche.

A+

 

Vote positif 0 Vote négatif

W

Webperegrino

XLDnaute Accro

Supporter XLD

• 24 Septembre 2009

• #3

Re : Userform avec un click et non Doubleclick

Merci Hasco pour ton intervention rapide,

L'Userform devant paraître avec 1 clic sur la plage A2:A2000, je vais donc tenter :

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A2:A2000" Then UserForm3.Show
End SubMais

N'est-ce pas ? Corrige-moi si je me trompe, merci.

Webperegrino

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 24 Septembre 2009

• #4

Re : Userform avec un click et non Doubleclick

Re,

Pourquoi ne pas être plus précis dès le départ, cela nous éviterait de tourner en rond?

Si tu veux que ton userForm s'afiche sur une et une seule cellule quelconque de ta plage alors ce sera:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A2000")) Is Nothing Then UserForm3.Show
End Sub

A+

 

Vote positif 0 Vote négatif

W

Webperegrino

XLDnaute Accro

Supporter XLD

• 24 Septembre 2009

• #5

Re : Userform avec un click et non Doubleclick

Merci HASCO,
Ça me convient parfaitement.
Cette macro fonctionne très bien dans mon application.

Quand à ton message, en effet, <<Mais à l'usage cela risque d'être pénible, plus moyen de sélectionner la cellule sans que le userform s'affiche>> je verrai si c'est vraiment pratique ou pas.
En effet, pour y effacer une date entrée, je ferme l'Userform puis je fais Suppr.
Comme ce genre d'effacement ne se fera pas souvent, je gagne donc en usure de ma souris à ne cliquer qu'une fois, grâce à toi.
Merci donc
Webperegrino

 

Vote positif 0 Vote négatif