geckosan
Messages postés2Date d'inscriptionmardi 21 juillet 2009StatutMembreDernière intervention13 août 2009
-
12 août 2009 à 17:34
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
13 août 2009 à 09:09
Bonjour,
est ce que quelqu un aurait une idee ou se trouverait l erreur...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Dim Intersection As Range
Application.ScreenUpdating = False
Set Plage = Range("E9")
Set Intersection = Intersect(Target, Plage)
If Not (Intersection Is Nothing) Then
Module1.scf_jul
End If
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Change_2(ByVal Target As Range)
Application.ScreenUpdating = False
Dim Plage2 As Range
Dim Intersection2 As Range
Set Plage2 = Range("E10")
Set Intersection2 = Intersect(Target, Plage2)
If Not (Intersection2 Is Nothing) Then
Module2.scf_aug
End If
Application.ScreenUpdating = True
End Sub
Si la première se lance parfaitement, la deuxième par contre refuse de prendre..
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 13 août 2009 à 08:56
Salut,
Tout simplement car l'évènement Worksheet_Change_2 n'existe pas. Excel ne connait que Worksheet_Change
Si tu veux faire plusieurs cas possible, tu dois tout mettre dans Worksheet_Change
Exemple
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not (Intersect(Target, Range("E9")) Is Nothing) Then Call Module1.scf_jul
If Not (Intersect(Target, Range("E10")) Is Nothing) Then Call Module2.scf_aug
Application.ScreenUpdating = True
End Sub
En revanche ce qui me turlupine c'est que tu parles de boutons, hors il n'est pas question de bouton ou autres dans l'événement Worksheet_Change
Est ce que tu nous cacherait quelque chose
@+: Ju£i€n
Pensez: Réponse acceptée
geckosan
Messages postés2Date d'inscriptionmardi 21 juillet 2009StatutMembreDernière intervention13 août 2009 13 août 2009 à 09:06
Après mure reflexion et bidouillage en tout genre.. j'étais arrivé a la meme conclusion. :D
Content que les génies se rencontrent .. (humm humm.. Lool (cfr. moi)). En tout cas un tout grand merci d avoir pris la peine de regarder ma petite question !
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 13 août 2009 à 09:09
Salut,
Ok content d'avoir pu t'aider même trop tard.
Si ton problème est résolu pense à appuyer sur le bouton réponse acceptée
(sur le ou les posts qui t'ont aider => m^me si la je suis arrivé trop tard )
cela permet de voir que tu n'es plus bloqué.