Code VBA pour effacer le contenu de cellules selon critère d

Bonsoir le forum,

Je n'ai pas beaucoup de connaissances en VBA et je suis face à un petit problème, dont je ne trouve pas la solution dans d'autres discussions ayant déjà traité ce problème.

J'ai un classeur composé de plusieurs feuilles. Le contenu de la cellule (D10) de la feuil1 "Collecteur" est soit "Oui", soit "Non".

Si (D10) = "Oui" je voudrais que le contenu des cellules (F60:F73), (G60:G73), (H60:H73), (F81:F105), (G81:G105), (H81:H105), (I81:I105), de la feuil2 "Calculs débits-diamètres", soit effacé. La feuille 2 sera protégée sans mot de passe.

Par défaut (D10) = "Non" et dans ce cas des formules sont écrites dans les cellules citées ci-dessus.

Ci-joint un fichier pour exemple.

D'autre part, est-il possible si (D10) = "Oui" et donc que le contenu des cellules citées plus haut est effacé de revenir à la position par défaut ?

Merci d'avance pour votre aide.

Bonjour Sergio,

Un essai à tester

cordialement

précision si tu as des formules dans les cellules préfère ce code à mettre dans le module.

Sub efface()
    Sheets(2).Range("F60:H73,F81:I105").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

cordialement

Bonjour ddetp88,

Merci pour ton aide.

Très bonne journée.