Plusieurs macros du même type sur 1 feuille

Résolu
delph42 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
delph42 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour, Je n'arrive pas a résoudre mon probleme (mais je suis totalement  débutante et autodidacte donc je fais comme je peux ;)  et vous remercie par avance pour votre aide! 

Sur la feuille excel, j'ai besoin d'intégrer 3 macros du même type : qui automatiquement, effacent certaines cellules lorsque d'autres sont modifiées.

J'ai reussi à trouver le code (grace au forum :)  et Lorsque je les teste séparément, ça marche mais pas si les écrit  1 à 1 à la suite .....

Je ne sais pas comment compiler tout celà dans un seule et même macro (j'ai cru comprendre qu'on ne pouvait pas mettre 2 macros distinctes worksheet dans une feuille.

Merci 1000 fois pour votre aide  ! 

MACRO N°1 : Si F28 est modifiée, F30 s’efface :

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("F28")) Is Nothing Then

        Range("F30").ClearContents

    End If

End Sub

MACRO N°2 : Si S7 est modifiée, S11, U11, V11 s’effacent :

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("S7")) Is Nothing Then

        Range("S11:V11").ClearContents

    End If

End Sub

MACRO N°3 : Si S11 est modifiée, U11 et V11 s’effacent :  (a noter, S11 peut avoir été modifiée car effacée par la macro N°1 ou directement par mon action)

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("S11")) Is Nothing Then

        Range("U11:V11").ClearContents

    End If

End Sub

A voir également:

2 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 

Bonjour

Il te faut intégrer les 3 codes dans la même procédure, quelque chose comme ça

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F28")) Is Nothing Then Range("F30").ClearContents : exit sub
    If Not Intersect(Target, Range("S7")) Is Nothing Then  Range("S11:V11").ClearContents : exit sub
    If Not Intersect(Target, Range("S11")) Is Nothing Then Range("U11:V11").ClearContents : exit sub
End Sub

Cdlmnt

1
delph42 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 

Super merci beaucoup ! ça marche parfaitement ! :)))

0