[VBA] Clearcontent sur cellules de lignes masquées

Bonjour ,

Dans mon fichier , suivant la selection je masque des lignes de cette façon ( ici de la ligne 20 à 35 ), j'ai donc écrit le code suivant au niveau de ma feuille :

PS: je force d'abord l'affichage de toutes les ligne pour ensuite les masquées

Private Sub Worksheet_Change(ByVal Target As Range)

If [D6] = "MA_SELECTION" Then
    Rows("8:35").Hidden = False
    Rows("20:35").Hidden = True

'...... etc en fonction d'autres choix, je masque d'autres lignes

Ca fonctionne bien.

Mais j'aimerai que certaines cellules soit vidées et dans d'autre, écrire un texte, lorsqu'elles sont masquées donc j'ai écrit ceci :

If [D6] = "MA_SELECTION" Then
    Range("D20:E35").Select
    Selection.ClearContents
    Range("G20:G35").Value = "SANS" 
    Rows("8:35").Hidden = False
    Rows("20:35").Hidden = True

Avec ce code , ça ne fonctionne pas , ma feuille clignotte et soit s'arrete sur une erreur de code , soit excel arrete de fonctionner.

Je ne comprend pas trop pourquoi ca ne fonctionne pas vu que je vide mes cellules avant de les masquer ?

Merci

Bonne journée

Devrait marcher...

If [D6] = "MA_SELECTION" Then
    Range("D20:E35").ClearContents
    Range("G20:G35").Value = "SANS" 
    Rows("8:35").Hidden = False
    Rows("20:35").Hidden = True

Dans le cas contraire dis nous dans quelle ligne est-ce que ça bloque.

Bon en fait j'ai procédé différemment.

Je voulais vider les lignes pour ne pas les comptabiliser dans mes calculs de prix.

Au lieu de les vider , j'ai tout simplement utiliser la fonction SOUS.TOTAL pour ne pas additionner les cellules masquées.

=SOUS.TOTAL(109;SELECTION)

Ca pourra peut etre aider certaines personnes

Excuse moi EngueEngue, je n'avais pas vu ta réponse .

J'ai testé ta solution et ça bloque à

Range("D20:E35").ClearContents

Et comme précédemment mon Excel plante.