XL pour MAC cellules verouillées

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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 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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour