Discussion :

[diguert]

Bonjour à tous
J'ai créé un classeur sous excel 2003 pour établir des devis clients et sur la feuil1, j'ai mis un bouton de raz qui raz un certain nombre de cellules en fin de devis.
je ne parviens pas à RAZer une cellule de la Feui2 simultanément
J'ai écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandeButton1_Click()
ActiveSheet.Unprotect "cotonou"
Range("C9,C10,C11,D18,F21").ClearContents
ActiveSheet.Protect"cotonou"
End Sub

Que dois-je rajouter à cette macro pour effacer la cellule L8 de la Feuil2 ?

De plus, je dois partager ce classeur avec mes collègue, mais quand je partage, une erreur apparait à l'activation du bouton RAZ
Comment faire pour que tout se passe bien?

Dans l'attente de votre aide, je souhaite un bon Lundi de pâques
Diguert

[gFZT82]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
    ActiveSheet.Unprotect "cotonou"
    Range("C9,C10,C11,D18,F21").ClearContents
    ActiveSheet.Protect "cotonou"
    Worksheets("Feuil2").Range("L8").ClearContents
End Sub

Cordialement.

[78chris]

BOnjour

Le partage interdit quasi tout et notamment la protection/déprotection

[diguert]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
    ActiveSheet.Unprotect "cotonou"
    Range("C9,C10,C11,D18,F21").ClearContents
    ActiveSheet.Protect "cotonou"
    Worksheets("Feuil2").Range("L8").ClearContents
End Sub

Cordialement.

Bonjour

Merci beaucoup pour ce coup de main qui fonctionne à merveille
Bonne journée