Vider les celulles d'une feuille

Bonjour le forum,

Dans une feuille de classeur, j'ai créé un masque à imprimer rempli par userform. Tout se passe bien hormis le fait que j'ai mis un bouton pour un RESET sur la feuille "Masque" avec ce code.

Private Sub CommandButton3_Click()

Sub RESetfeuilleInfo()

Sheets("Suivi").Range("D5:G5:H5:J5:K5:L5:M5:P5:D14:I14:O18:O19:O20:D25:H30:H32:H34:D40:D48:D69").ClearContents

End Sub

End Sub

cela me lance le débogage sur l'intitulé :

Private Sub CommandButton3_Click()

Ai-je oublié quelque chose ou le code est-il inadapté ?

L'impression du "Masque" étant obligatoire, est-il possible d'associer ce code sur ce bouton "Imprimer".

(Les deux options m'intéressent.)

Merci de votre aide.

Licaon

Bonjour,

Il n'y a pas de cellules fusionnées parmi celles à effacer ?

Faudrait voir le feuille

Amicalement

Claude

Re

Il faut enlever le Sub RESetfeuilleInfo() et le End Sub correspondant

En plus je penses que tu veux effacer dans la page Masque

alors

Sheets("Masque").Range(.......

Edit2: Comme l'a suggéré Dubois, tu as des cellules fusionnées utilises

Sheets("Masque").Range("D5:G5:H5:J5:K5:L5:M5:P5:D14:I14:O18:O19:O20:D25:H30:H32:H34:D40:D48:D69") = ""

Bonne journée

Réponse pour le sieur DUBOIS : oui les cellules sont fusionnées.

Réponse pour Banzaï64 : J'ai enlevé ceci

Sub RESetfeuilleInfo()

et il reste ceci :

Private Sub CommandButton3_Click()

Sheets("Masque").Range("D5:G5:H5:J5:K5:L5:M5:P5:D14:I14:O18:O19:O20:D25:H30:H32:H34:D40:D48:D69").ClearContents

End Sub

Et toujours le même souci.

Licaon

Re

Voir le Edit2 de mon précédent message

Cela m'efface toute les cellules et je ne veux effacer que celles-ci :

"D5:G5:H5:J5:K5:L5:M5:P5:D14:I14:O18:O19:O20:D25:H30:H32:H34:D40:D48:D69"

Licaon

(Ps: Je reprends le fil demain matin, je dois partir travailler)

re,

du dois séparer les plages par des virgules, et non des ":"

cela devrait ressembler à:

Sheets("Suivi").Range("D5:G5,H5:J5,K5:L5,M5:P5,D14:I14,O18:O20,D25,H30:H32,H34,D40:D48,D69") = ""

Amicalement

Claude

Bonjour Claude, Banzaï64 et le Forum.

Merci pour cette modification de code, ça fonctionne comme d'habitude après vos interventions.

Bonne journée.

Licaon