Problème de vérouillage et de copie

Merci Banzai64 sa marche et bonne nuit.

Désolé,

J'ai répondu trop vite il ne faut pas effacer les formules de calcul qui sont dans la colonne (AR) Total.

Merci

Bonsoir

Modifies ta macro Private Sub CommandButton1_Click()

' [barrer]Cel.Offset(0, 2).Resize(7, 45).ClearContents[/barrer]
Cel.Offset(0, 2).Resize(7, 45).SpecialCells(xlCellTypeConstants).ClearContents

Je viens de tester cela n'efface pas les formules

Oui sa marche super, par contre si j'efface un non ou il n'y a pas de donnés a effacer, sa donne une erreur mais bon sa marche.

Je veux pas être trop lourd tu ma bien arranger.

Merci

Bonsoir

Je n'ai pas pensé à ce cas

Solution rapide

Juste avant la ligne de code que tu placé rajoutes

On Error Resume Next

Tout est OK

Encore Merci et bonne nuit

Désolé mais j'ai trouvé un autre hic...............

Si dans la colonne A il n'y a pas de non dans les colonne qui s'ouvre avec la toupi, il n'y a bien sur pas de non dans l'Userfor et c'est normal.

Par contre si je coche la case. quand même pour l'effacer ca efface les lignes 3,4,et 5 des titres c'est pas bon.

Désolé je teste pour que celui qui va l'utiliser ne puisse pas faire d'erreur

Merci

Bonjour

je n'avais pas vu ton message

A vérifier avec cette version

Bonjour,

C'est pas grave.

Merci