Plusieurs macros du même type sur 1 feuille

Résolu/Fermé
delph42 Messages postés 7 Date d'inscription jeudi 4 mai 2023 Statut Membre Dernière intervention 16 mai 2023 - 15 mai 2023 à 14:35
delph42 Messages postés 7 Date d'inscription jeudi 4 mai 2023 Statut Membre Dernière intervention 16 mai 2023 - 15 mai 2023 à 17:35

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

2 réponses

ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
Modifié le 15 mai 2023 à 15:32

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 jeudi 4 mai 2023 Statut Membre Dernière intervention 16 mai 2023
15 mai 2023 à 17:35

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

0