protection d'une formule

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion panda200
  • Date de début Date de début

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 !

S'inscrire
P

panda200

Guest
Bonjour a tous

Je vais essayer d'etre le plus simple possible, j'ai une facture en Excel dans la cellule P20 j'ai une formule '=N20*R20' , j'ai une macro qui efface les cellules après avoir imprimé la facture '.Range("P20")' car la cellule doit etre efface pour recommencer une nouvelle formule, Mais le résultat que j'obtiens est que la cellule P20 et bien vide du résultat du calcul mais la formule '=N20*R20' est disparu aussi.

Avez-vous une solution pour que la formule '=N20*R20' reste la tout en effacent le résultat ?

Merci de votre attention !

Panda
 
Trier par date Trier par votes
Re : protection d'une formule

Re,
J'ai retouché le code afin d'avoir l'effet escompté : tu me diras si c'est bien cela que tu veux.
Par contre à la sauvegarde, est il normal que seule la première feuille (Invoice) soit archivée ? Si ce n'est pas le cas, on pourra adapter.
Bonne soirée.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : protection d'une formule

Bonjour a tous

il me donne une erreur:

Sub Archiver()

Dim nomfichier
Dim PO As String
Dim nom_client As String, num As String
With ThisWorkbook.ActiveSheet
.Copy
nom_client = .Range("B6")
num = .Range("P3")
PO = .Range("I12")
chemin = "C:\Facture\" 'repertoire d'archive
nomfichier = num & "_" & nom_client & "_" & PO & ".xls"
MsgBox "Votre sauvegarde porte la référence : " & nomfichier
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
.Close
End With
Sheets("Invoice").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
Sheets("Invoice 2").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
Sheets("Cash sale").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
End With
With ActiveSheet
Sheets("CASH SALE").Select
.Range("C3:E3").ClearContents
.Range("B6:I6").ClearContents
.Range("I12:M12").ClearContents
Range("A20:Q31").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
End With
ThisWorkbook.Save
End Sub



L'erreur est en rouge, (erreur d'execution:1004)pour que le fichier fonctionne correctement on dois creer un dossier dans:

c:/facture

les sauvegardes vont la ..

Merci encore

Panda
 
Vote positif 0 Vote négatif
Re : protection d'une formule

Je suis désolé ,mais je cherchais dans les macros
mais il reste que je suis un débutant, car j'ai eu beaucoiup d'aide pour faire
ce fichier en excel, des gens comme vous et des recherche sur internet.

je suis desolé de mon ignorance, je vais etudier ta macro pour ensuite essayer de l'inserer dans mon fichier excel.

Merci a toi Staple 1600

et Merci a tout les autres

Panda
 
Vote positif 0 Vote négatif
Re : protection d'une formule

si j'ai bien compris...J'espere...je devrai remplacer la section marquer en rouge :




Sub Archiver()
Dim nomfichier
Dim PO As String
Dim nom_client As String, num As String
With ThisWorkbook.ActiveSheet
.Copy
nom_client = .Range("B6")
num = .Range("P3")
PO = .Range("I12")
chemin = "C:\Facture\" 'repertoire d'archive
nomfichier = num & "_" & nom_client & "_" & PO & ".xls"
MsgBox "Votre sauvegarde porte la référence : " & nomfichier
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
.Close
End With
Sheets("Invoice").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
Sheets("Invoice 2").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
Sheets("Cash sale").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
End With
With ActiveSheet
.Range("C3:E3").ClearContents
.Range("B6:I6").ClearContents
.Range("I12:M12").ClearContents
.Range("A20:O31").ClearContents
End With
ThisWorkbook.Save
End Sub


par ceci:

Sub efface()
Sheets(1).Range("C3:E3,B6:I6,I12:M12,A20:Q31").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

Merci de ton aide, je prefere attendre l'avis de l'expert avant de faire une gaffe

Panda
 
Vote positif 0 Vote négatif
Re : protection d'une formule

Allo c'est encore moi

j'ai chercher a integere ta macro mais il donne encore une erreur
Voici le listing avec tes lignes integrees:

Sub Archiver()
Dim nomfichier
Dim PO As String
Dim nom_client As String, num As String
With ThisWorkbook.ActiveSheet
.Copy
nom_client = .Range("B6")
num = .Range("P3")
PO = .Range("I12")
chemin = "C:\Facture\" 'repertoire d'archive
nomfichier = num & "_" & nom_client & "_" & PO & ".xls"
MsgBox "Votre sauvegarde porte la référence : " & nomfichier
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
.Close
End With
Sheets("Invoice").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
Sheets("Invoice 2").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
Sheets("Cash sale").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
End With
With ActiveSheet


Sheets(Invoice).Range("B6:I9,M6:Q6,D10:F10,B11:G11,O10😛10,M11😛11,I12:M12,C12:E13,D14:M15,A20:Q31").SpecialCells(xlCellTypeConstants, 23).ClearContents



Sheets("Invoice 2").Range("B6:I9,M6:Q6,D10:F10,B11:G11,O10😛10,M11😛11,I12:M12,C12:E13,D14:M15,A20:Q31").SpecialCells(xlCellTypeConstants, 23).ClearContents



Sheets("Cash sale").Range("B6:I9,M6:Q6,D10:F10,B11:G11,O10😛10,M11😛11,I12:M12,C12:E13,D14:M15,A20:Q31").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
End With

ThisWorkbook.Save
End Sub

Il me donne l'erreur a la premiere ligne

Merci de ton aide

Panda
 
Vote positif 0 Vote négatif
Re : protection d'une formule

Je me suis tromper dans le listing ...J,ai tellement essayer de différente facon....désolé

Voici le resultat:

Sub Archiver()

Dim nomfichier
Dim PO As String
Dim nom_client As String, num As String
With ThisWorkbook.ActiveSheet
.Copy
nom_client = .Range("B6")
num = .Range("P3")
PO = .Range("I12")
chemin = "C:\Facture\" 'repertoire d'archive
nomfichier = num & "_" & nom_client & "_" & PO & ".xls"
MsgBox "Votre sauvegarde porte la référence : " & nomfichier
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
.Close
End With
Sheets("Invoice").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
Sheets("Invoice 2").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
Sheets("Cash sale").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
End With
With ActiveSheet
Sheets("Invoice").Range("B6:I9,M6:Q6,D10:F10,B11:G11,O10😛10,M11😛11,I12:M12,C12:E13,D14:M15,A20:Q31").SpecialCells(xlCellTypeConstants, 23).ClearContents
Sheets("Invoice 2").Range("B6:I9,M6:Q6,D10:F10,B11:G11,O10😛10,M11😛11,I12:M12,C12:E13,D14:M15,A20:Q31").SpecialCells(xlCellTypeConstants, 23).ClearContents
Sheets("Cash sale").Range("B6:I9,M6:Q6,D10:F10,B11:G11,O10😛10, M11😛11,I12:M12,C12:E13,D14:M15,A20:Q31").SpecialCells(xlCellTypeConstants, 23).ClearContents
End With
ThisWorkbook.Save
End Sub


Il me donne une erreur sur la ligne en rouge

Merci de ta patience

Panda
 
Vote positif 0 Vote négatif
Re : protection d'une formule

Merci de ton attention

Mais dans l'onglet CASH SALE les cellules P20 a Q31 les formules disparaissent
quand je sauvegarde .... As tu une bonne idée comment les conserver ?

la cellule P20 contient: =M20*N20
la cellule P21 contient: =M21*N21

etc...

Merci


Panda
 
Vote positif 0 Vote négatif
Re : protection d'une formule

Désolé j'ai regardé tres vite entre deux papiers...

merci pour la mise au point

une petite derniere chose ( J,espere ne plus te deranger apres)

dans l onglet INVOICE les cellules P20 a Q31, les montants reste la apres la sauvegarde...

as-tu une idée lumineuse pour moi.

Merci énormement

Panda
 
Vote positif 0 Vote négatif
Re : protection d'une formule

allo

pour repondre a ta question, si je comprends le VBA...la reponse et ...ca commence a rentrer....ca ressemble beaucoup au BASIC. mais je manque encore d'experience.

Ma question est: est ce que j'ajoute ca dans :

Sub dernier_test()
Dim i as Byte
Dim Zone_D_Effacement As String
Zone_D_Effacement = _
"B6:I9,M6:Q6,D10:F10,B11:G11,O10😛10,M11😛11,I12:M12,C12:E13,D14:M15,A20:O31"
With ActiveWorkbook
n_f = Split("INVOICE+INVOICE 2+CASH SALE", "+")
For i = 0 To 2
With Sheets(n_f(i))
'.[P3] = Left(num, 1) & Right(num, Len(num) - 1) + 1
.Range(Zone_D_Effacement).ClearContents
End With
Next i
.Save
End With
End Sub


dans le listing de la macro original...et si oui a quelle endroit le coller (pour etre sur que je ne plante rien) car je suis au bureau et je fais ca entre deux client..

Merci

Un PANDA débutant 🙂
 
Vote positif 0 Vote négatif
Re : protection d'une formule

allo

quand je le colle a la suite de Archiver_II, je sauvegarde et que je fais la facture,il me donne encore me meme resultat , mes chiffres reste dans le INVOICE.

Peux-tu me copier/coller le listing complet qui fonctionne de ton coté, je vais le coller de mon coté.....si c'est possible..

Merci

Un panda en un peu décourager

merci
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

O
  • Résolu(e)
XL 2013 Formule ou une programmation VBA qui permette de répartir des numéros de factures par ligne
Réponses
3
Affichages
308
JHA
J
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
347
Marie.
M
gh4
  • Question Question
Autres résultats differents entre formule et macro (excel 2007)
2
Réponses
18
Affichages
529
dysorthographie
dysorthographie
L
  • Résolu(e)
XL 2021 Déterminer la hauteur d'une formule (barre d'outils)
Réponses
8
Affichages
302
Lolote83
L
D
  • Résolu(e)
XL 2019 Formule qui suit le total général d'un TCD ( galère ! )
Réponses
4
Affichages
325
AtTheOne
AtTheOne
S
  • Résolu(e)
XL 2021 "Blocage de la mise a jour d'une cellule"
Réponses
8
Affichages
549
Steph733
S
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
315
TooFatBoy
TooFatBoy
D
  • Question Question
XL 2016 VBA remplacement de valeur de cellule
Réponses
3
Affichages
223
Deadpool_CC
Deadpool_CC
M
  • Question Question
Microsoft 365 Résultat #DIV/0! avec fonction si erreur avec formule moyenne
Réponses
8
Affichages
613
Maya3375
M
W
  • Résolu(e)
XL 2016 Écriture correcte d'un Transpose() avec FormulaLocal à partir de données d'une autre feuille
Réponses
6
Affichages
374
Webperegrino
W
Tony44
  • Résolu(e)
XL 2016 Graphique et données à 0 qui créé une ligne dans le graphique
Réponses
2
Affichages
245
Tony44
Tony44
R
  • Question Question
XL pour MAC Rechercher une valeur non vide
Réponses
4
Affichages
244
sylvanu
sylvanu
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
528
TooFatBoy
TooFatBoy
S
  • Question Question
Microsoft 365 Problème résultat de formule SI CONDITIONS ET SINON
Réponses
12
Affichages
553
sylvanu
sylvanu
pascal21
  • Question Question
XL 2019 formule et ou
Réponses
5
Affichages
273
djidji59430
djidji59430
V
  • Résolu(e)
Microsoft 365 Recherch V formule s'affiche et ne donne pas le résultat
Réponses
6
Affichages
629
Virginie31p
V
tristan05
  • Résolu(e)
Microsoft 365 référence feuille en fonction du nom d'une cellule
Réponses
4
Affichages
431
tristan05
tristan05
O
  • Résolu(e)
XL 2013 Formule qui isole 1 donnée d'une cellule
Réponses
4
Affichages
246
onyirimba
O
N
  • Question Question
XL 2019 Fonction RECHERCHEV
Réponses
2
Affichages
244
JHA
J
Y
  • Résolu(e)
XL 2016 4 Messages dans des formules différentes à imbriquer dans une seule formule SI.est vide.ET.ET
Réponses
6
Affichages
234
YGU1
Y
Retour