Plusieurs macros du même type sur 1 feuille
Résoludelph42 Messages postés 7 Statut Membre -
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
- Plusieurs macros du même type sur 1 feuille
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment imprimer en a5 sur une feuille a4 - Guide
- Comment supprimer une feuille sur word - Guide
- Clear type - Guide
2 réponses
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