XL pour MAC cellules verouillées

finpier34

XLDnaute Nouveau
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

XLDnaute Barbatruc
Repose en paix
Bonjour Finpier (un voisin...), bonjour le forum,

Essai comme ça :

VB:
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

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

Essai comme ça :

VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 907
Membres
101 836
dernier inscrit
karmon