Macro reset

Bonjours a tous, j’ai à nouveau besoins de vos talents

Voila j’ai créé un fichier « questionnaire recyclage AFGSU » basé sur 30 questions.

Ce questionnaire est donné au candidat en début de recyclage (matin) et en fin de recyclage (soir).

12 candidats par sessions donc 12 feuilles Excel.mon problème est que j’ai essayé de faire un « reset « par macro des données entrées sans réussite.

(pour les besoins j’ai coché toute les cases ou doit être appliqué la remise a zéro)

J’ai essayé avec l’enregistreur de macro pas de résultat alors j’ai modifié le code Vba en essayant de le simplifier et n’étant comme vous vous en douté peu a l’aise avec monsieur Vba j’ai eu ce message qui suit

« Erreur exc…1004 la methode ‘range de l’objet_global a echoué »

Je joins mon fichier et vous remercie à l’avance

Cordialement : ricktnt

Bonsoir,

cela devrai te convenir:

Sub Macro4()

'éfface les données

Range("J10:L161").ClearContents

End Sub

Merci Patrick33 pour ta réponse mais pas possible d’appliquer cette solution 'çà je sais faire

le problème est que sous chaque réponse il y a une formule "J12:L12:J12:L15 etc.......":Qui incrémente le tableau ré cap a droite .

je renvois le fichier mettant les cases "vrai ou faux "si bonne réponse avec autre couleur pour voir celle-ci.

encore merci pour votre aide

cordialement ; ricktnt

Bonsoir,

Essaie comme ça :

Sub Macro4()
   Range("J10:L11,J13:L14,J18:L20,J22:L23,J27:L28,J32:L34,J38:L40,J42:L43,J47:L49,J53:L57,J61:L63").ClearContents
   Range("J67:L69,J73:L75,J77:L78,J82:L83,J85:L86,J90:L92,J96:L98,J102:L104,J108:L110,J112:L113").ClearContents
   Range("J117:L120,J124:L126,J128:L129,J131:L132,J136:L139,J143:L144,J148:L151,J155:L158,J160:L161").ClearContents
End Sub

A+

re,comme quoi faire travailler ses méninges ça aide

j'ai essayé ceux-ci et cela fonctionne

Sub Macro4()

'éfface les données

Range("J10:J11").ClearContents

Range("J13:J14").ClearContents

Range("J18:J19:J20").ClearContents

Range("J22:J23").ClearContents

Range("J27:J28").ClearContents

End Sub

cela va prendre un peux de temps mais il n'y a que

le résultat qui compte .

Cordialement : ricktnt

merci palopin01 j’étais entrain d'ecrire quand tu m'as adressé ta réponse

cela dit ta méthode est de loin plus facile et courte a mettre en place j'essaye et te tiens au courant.

merci

Bonsoir

Un petit essai à tester

Sub Efface()
  On Error Resume Next
  Range("J10:L161").SpecialCells(xlCellTypeConstants, 23).ClearContents
  On Error GoTo 0
End Sub

merci galopin01 et banzai64 les 2 méthodes fonctionnent a merveille

beaucoup plus simple que ma méthode

Cordialement : ricktnt