ouvrir un userform sur un clic

justine

XLDnaute Occasionnel

• 5 Février 2006

• #2

bonsoir le forum, gilles
et si tu agrandissais ta plage dans la range.
a moins que je ne comprenne pas ta question

 

Vote positif 0 Vote négatif

G

Gilles

Guest

• 5 Février 2006

• #3

Merci,
quand je mets cela, je suis limité à 30

If Application.Intersect(Target, Range('E9:E20,G9:G20,I9:I20,K9:K20,M9:M20,O9:O20,Q9:Q20,S9:S20,U9:U20,W9:W20,Y9:Y20,AA9:AA20,AC9:AC20,AE9:AE20,AG9:AG20,AI9:AI20,AK9:AK20,AM9:AM20,AO9:AO20,AQ9:AQ20,jusqu'a 30 plages')) Is Nothing Then Exit Sub

A+

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 5 Février 2006

• #4

re
essais
for each c in range( rentre ici ta plage entre guillemet)
If Application.Intersect(Target, c) Is Nothing Then Exit Sub
next

moi je n'ai pas essayé

 

Vote positif 0 Vote négatif

G

Gilles

Guest

• 5 Février 2006

• #5

j'essaie de suite
je vous tient au courant
A+

 

Vote positif 0 Vote négatif

G

Gilles

Guest

• 5 Février 2006

• #6

j'ai essayé cela mais cela ne fonctionne pas

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean, c As Range)
For Each c In Range('E9:E20,G9:G20,I9:I20,K9:K20,M9:M20,O9:O20,Q9:Q20,S9:S20,U9:U20,W9:W20,Y9:Y20,AA9:AA20,AC9:AC20,AE9:AE20,AG9:AG20,AI9:AI20,AK9:AK20,AM9:AM20,AO9:AO20,AQ9:AQ20,AS9:AS20,AU9:AU20,AW9:AW20,AY9:AY20,BA9:BA20,BC9:BC20,BE9:BE20,BG9:BG20,BI9:BI20,BK9:BK20')
If Application.Intersect(Target, c) Is Nothing Then Exit Sub
UserForm2.Show 0
Cancel = True
Next c
End Sub
Il n'aime pas la variable c en Range, mais même si je l'enlève, cela est pareil
J'ai beaucoup de mal, je débute...
😱

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 5 Février 2006

• #7

re
desolee mais je viens de travailler dessus et je ne trouve pas de solution pour le moment

 

Vote positif 0 Vote négatif

G

Gilles

Guest

• 5 Février 2006

• #8

merci quand même,
je vais profiter pour m'inscrire sur ce forum très instructif avec des personnes fort aimable...
A bientôt j'espère :huh:

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 5 Février 2006

• #9

Bonsoir Gilles, justine,

Si j'ai bien compris la question :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Plage As Range
Dim C As Byte
      Set Plage = Range('E9:E20')
      For C = 7 To 63 Step 2
            Set Plage = Union(Plage, Range(Cells(9, C), Cells(20, C)))
      Next C
      If Application.Intersect(Target, Plage) Is Nothing Then Exit Sub
      Cancel = True
      UserForm2.Show 0
End Sub

Cliquez pour agrandir...

Même si ça devrait bien fonctionner comme ça, je te conseillerais tout de même de déclarer la variable 'Plage' en variable Public et de définir sa composition une fois pour toutes à l'ouverture du classeur (dans Workbook_Open() par exemple). Cela éviterait ainsi le parcours de cette boucle à chaque clic droit dans la feuille...

Cordialement,

 

Vote positif 0 Vote négatif

G

Gilles

Guest

• 5 Février 2006

• #10

oui, j'ai compris, ouf...
je ne connaissais pas 'step 2'
Je vais pouvoir dormir l'esprit tranquille...
Merci à vous deux
glm vous remercie(je viens de m'inscrire)
Bonne soirée et A+

 

Vote positif 0 Vote négatif