Plusieurs boutons sur une meme page.. [Résolu]

Signaler
Messages postés
2
Date d'inscription
mardi 21 juillet 2009
Statut
Membre
Dernière intervention
13 août 2009
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
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..

3 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
55
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
Messages postés
2
Date d'inscription
mardi 21 juillet 2009
Statut
Membre
Dernière intervention
13 août 2009

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 !

Une excellente journée et fin de semaine a toi
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
55
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é.


@+: Ju£i€n
Pensez: Réponse acceptée