Une Fatale ERROR !?!?

Z

ZON

Guest

• 9 Juillet 2003

• #2

Bonjour Samantha,



Normal tu n'as pas la droit dans un meme module de nommer 2 macros par le meme nom de procedure.

Comme suit fera la meme chose (à tester) en regroupant

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("H4,H24")) Is Nothing Then
cancel=true
userform1.show
end if
If Not Application.Intersect(Target, Range("G14,G24")) Is Nothing Then cancel=true userform2.show
End Sub

A+++

 

Vote positif 0 Vote négatif

Z

ZON

Guest

• 9 Juillet 2003

• #3

Re,

petites ereurs de saisie

Le H4 est à remplacer par H14

et le 2 eme If par

If Not Application.Intersect(Target, Range("G14,G24")) Is Nothing Then cancel=true : userform2.show



A+++

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 9 Juillet 2003

• #4

Bonsoir Samantha, bonsoir ZON et le toi le Forum...

oui c'est juste...inscrire deux macros identiques dans la même feuille (ou module) fait que VBA ne sait pas quelle macro prendre...y'a ambiguïté...

Donc Zon te propose la correction qui inclue l'affichage des userform selon les plages définies...mais je me permet juste d'apporter une petite rectification pour que le copier/coller de cette macro soit plus juste... sinon tu risques de revenir en nous disant qu'il y a beug...loool


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("H14:H24")) Is Nothing Then
Cancel = True
UserForm1.Show
End If
If Not Application.Intersect(Target, Range("G14:G24")) Is Nothing Then
Cancel = True
UserForm2.Show
End If
End Sub


incrémenté de cette manière c'est mieux car sinon y'a beug...j'ai aussi indiqué ("H14:H24") puisqu'il me semble avoir distingué sur l'image qu'il s'agissait d'une plage de cellule et non de deux cellules...

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les atributs gras du post dans la macro

 

Vote positif 0 Vote négatif

Z

ZON

Guest

• 9 Juillet 2003

• #5

Re,

Merci Veri je suis allé un peu vite en besogne...


A+++

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 9 Juillet 2003

• #6

ah ben t'es un rapide toi...looool...;-)

 

Vote positif 0 Vote négatif

S

SAMANTHA

Guest

• 9 Juillet 2003

• #7

Vous etes F.A.N.T.A.S.T.I.Q.U.E.S !

Merci beaucoup à toi ZON et à toi aussi VERILAND, je vais essayer ça demain au boulot et vous tiens au courrant si cela fonctionne !

Milles merci d'avance !

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 9 Juillet 2003

• #8

Re: Vous etes F.A.N.T.A.S.T.I.Q.U.E.S !

ben tu nous fais confiance alors...loool...si tu n'as pas encore essayé la macro...mais j'te rassure tout de suite ça marche...;-)

Bonne programmation

PS : tiens jvais voir si Zon est encore là...hi hi hi

 

Vote positif 0 Vote négatif

Z

ZON

Guest

• 9 Juillet 2003

• #9

Re: Vous etes F.A.N.T.A.S.T.I.Q.U.E.S !

Re,


Je suis sur le chat Veri

A+++

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 9 Juillet 2003

• #10

Re: Vous etes F.A.N.T.A.S.T.I.Q.U.E.S !

ah oui l'est encore là...loool...bon ben moi j'suis entrain de tester le Lien supprimé de Thierry...hi hi hi...j'suis dans la quatrième dimension puisqu'on travaille maintenant sur trois fichiers simultanément...mdr

 

Vote positif 0 Vote négatif