XL pour MAC cellules verouillées

[finpier34]

bonsoir a tous,
toujours dans le cadre d'auto entrepreneur et avec votre aide j'ai fais un fichier de facturation qui me convient.
néanmoins j'aurai souhaité si c'est possible, quand j'enregistre avec une macro ma facture, elle viens sur autre feuille en ligne avec les indications que je souhaite pour le suivi des factures "payée ou pas.
j'ai voulu pou éviter les effacements intempestifs protéger cette feuille et là impossible d'inscrire les informations message d'erreur "Microsoft Visual Basic 400"
est il possible de la protéger ou non ??
peu être avec un bout de code mais je suis incapable de le faire.

je vous joins le code pour enregistrer les indications très simple )

Sub Archiver()

'derl=derniere ligne=feuille("suivi_facture").cellule("A2").aller a la fin(vers le bas).ranger+1
'vers le bas (premiere case vide apres derniere case rempli)

derl = Sheets("suivi_facture").Range("A1").End(xlDown).Row + 1

'feuille("suivi_facture").cellule("A"&derniere ligne)=feuille facture.cellule("F9"). valeur

Sheets("suivi_facture").Range("A" & derl) = Sheets("facture").Range("G8").Value
Sheets("suivi_facture").Range("B" & derl) = Sheets("facture").Range("G9").Value
Sheets("suivi_facture").Range("C" & derl) = Sheets("facture").Range("F8").Value
Sheets("suivi_facture").Range("D" & derl) = Sheets("facture").Range("A8").Value
Sheets("suivi_facture").Range("E" & derl) = Sheets("facture").Range("I38").Value


Sheets("facture").Range("E13:E32") = ClearConstents
Sheets("facture").Range("B10") = ClearConstents
Sheets("facture").Range("F10") = ClearConstents
Sheets("facture").Range("I37") = ClearConstents
Sheets("facture").Range("H13:H32") = ClearConstents
Sheets("facture").Range("F8").Value = Sheets("facture").Range("F8").Value + 1


End Sub


merci d'avance et bonne soirée

 

[Robert]

Bonjour Finpier (un voisin...), bonjour le forum,

Essai comme ça :

Sub Archiver()
Dim SF As Worksheet 'déclare la variable SF (onglet Suivi Facture)
Dim F As Worksheet 'déclare la variable F (onglet Facture)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

Set SF = Worksheets("suivi_facture") 'définit l'onglet SF
Set F = Worksheets("facture") 'définit l'onglet F
SF.Unprotect 'déprotège l'onglet SF
F.Unprotect 'déprotège l'onglet F
DL = SF.Range("A1").End(xlDown).Row + 1
SF.Range("A" & DL) = F.Range("G8").Value
SF.Range("B" & DL) = F.Range("G9").Value
SF.Range("C" & DL) = F.Range("F8").Value
SF.Range("D" & DL) = F.Range("A8").Value
SF.Range("E" & DL) = F.Range("I38").Value
F.Range("E13:E32").ClearContents
F.Range("B10").ClearContents
F.Range("F10").ClearContents
F.Range("I37").ClearContents
F.Range("H13:H32").ClearContents
F.Range("F8").Value = F.Range("F8").Value + 1
SF.Protect 'protège l'onglet SF
F.Protect 'protège l'onglet F
End Sub

 

[finpier34]

Bonjour Finpier (un voisin...), bonjour le forum,

Essai comme ça :

Sub Archiver()
Dim SF As Worksheet 'déclare la variable SF (onglet Suivi Facture)
Dim F As Worksheet 'déclare la variable F (onglet Facture)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

Set SF = Worksheets("suivi_facture") 'définit l'onglet SF
Set F = Worksheets("facture") 'définit l'onglet F
SF.Unprotect 'déprotège l'onglet SF
F.Unprotect 'déprotège l'onglet F
DL = SF.Range("A1").End(xlDown).Row + 1
SF.Range("A" & DL) = F.Range("G8").Value
SF.Range("B" & DL) = F.Range("G9").Value
SF.Range("C" & DL) = F.Range("F8").Value
SF.Range("D" & DL) = F.Range("A8").Value
SF.Range("E" & DL) = F.Range("I38").Value
F.Range("E13:E32").ClearContents
F.Range("B10").ClearContents
F.Range("F10").ClearContents
F.Range("I37").ClearContents
F.Range("H13:H32").ClearContents
F.Range("F8").Value = F.Range("F8").Value + 1
SF.Protect 'protège l'onglet SF
F.Protect 'protège l'onglet F
End Sub

Bonjour Robert effectivement (voisin proche...)
je te remercie pour ta réponse, j'essai cette solution et je reviens vers toi pour te dire ce qui l'en est.
bonne journée
finpier

 

[finpier34]

Bonjour Robert effectivement (voisin proche...)
je te remercie pour ta réponse, j'essai cette solution et je reviens vers toi pour te dire ce qui l'en est.
bonne journée
finpier

Re bonjour Robert
un grand merci car certes avec une petite adaptation "a ma portée" mais Le code fonction parfaitement.
je vous souhaite une excellente journée