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

Bonjour,
Peut-être une piste : vois si cela peut correspondre à ton besoin.

Range("N20:R20").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents

Tiens-nous au courant.
Bonne journée à tous.
 
Vote positif 0 Vote négatif
Re : protection d'une formule

Re-bonjour désolé du retard

Dans mon listing dois-je l'ecrire obligatoirement comme ca:

Range("P20:Q31").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContent


Si c'est le ca il me donne une erreur a la ligne 483 qui est la derniere ligne SELECTION.CLEARCONTENT

Merci
Panda

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

bonjour à tous,

ta feuille n'est-elle pas protégée ? si oui, dans ce cas, il faudrait la déproteger avant le code et la reproteger après...

si mot de passe
Sheets("nomdetafeuille").Unprotect Password:="tonmotdepasse"

si pas de mot de passe
Sheets("nomdetafeuille").Unprotect

et en fin de code tu reproteges avec les mêmes ecritures, mais en changeant le mot Unprotect par Protect

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

Bonjour,

Ne prends pas mal ce que je dis mais c'est une remarque d'ordre général.

Si tu prenais l'habitude de joindre un bout de ton code, tu aurais déjà eu ta solution. C'est ce que voulait dire ABCD avec sa boule de cristal.

La tu demandes à cricris d'aller à la pêche et de revenir plusieurs fois sur le problème. Il faut maintenant qu'il cherche ce que c'est l'erreur 483 pour te répondre et il va te donner une autre solution qui ne sera pas satisfaisante pour toi.

Cordialement.

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

Bonjour a tous

Je viens vous demander encore de l'aide, je n'arrive pas a efface les cellules sans efface mes formules.je joint mon listing car le fichier est trop gros.

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





C'est les cellule p20 a q31 a efface sans efface les formules et les cellules doivent revenir vide pour la prochaine facture.

Merci de votre aide

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

Bonsoir à tous,
Essaie ce code :

Code: 
[B]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")[/B]
[B]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
[COLOR=Red]Selection.SpecialCells(xlCellTypeConstants, 23).Select
     Selection.ClearContents[/COLOR][/B]
[B] .Range("B6:I6").ClearContents
[COLOR=Red]Selection.SpecialCells(xlCellTypeConstants, 23).Select
     Selection.ClearContents[/COLOR][/B]
[B] .Range("I12:M12").ClearContents
[COLOR=Red]Selection.SpecialCells(xlCellTypeConstants, 23).Select
     Selection.ClearContents[/COLOR][/B]
[B] .Range("A20:O31").ClearContents
[COLOR=Red]Selection.SpecialCells(xlCellTypeConstants, 23).Select
     Selection.ClearContents[/COLOR][/B]
[B] End With
ThisWorkbook.Save
End Sub
[/B]
Tiens nous au courant. Bonne soirée.
 
Vote positif 0 Vote négatif
Re : protection d'une formule

allo

il me donne une erreur a la ligne suivante 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
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents

.Range("B6:I6").ClearContents
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents

.Range("I12:M12").ClearContents
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents

.Range("A20:O31").ClearContents
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents

End With
ThisWorkbook.Save
End Sub

Merci de votre attention

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

Re,
Qu'à tu dans tes cellules B6:I6 ?
Essayes ce code :

Code: 
[B]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")[/B]
[B]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").Select
[COLOR=black]Selection.SpecialCells(xlCellTypeConstants, 23).Select
     Selection.ClearContents[/COLOR][/B][COLOR=black]
[B] .Range("B6:I6").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
     Selection.ClearContents[/B]
[B] .Range("I12:M12").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
     Selection.ClearContents[/B]
[B] .Range("A20:O31").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
     Selection.ClearContents[/B][/COLOR]
[B] End With
ThisWorkbook.Save
End Sub[/B]

Bonne soirée.
 
Vote positif 0 Vote négatif
Re : protection d'une formule

Allo tu vas trouver une capture d'ecran de mes feuille de facture (car mon fichier excel est trop gros pour l'envoyer....

C'est les cellule p20 a q31 a efface sans efface les formules et les cellules doivent revenir vide pour la prochaine facture.

Merci encore

Panda
 

Pièces jointes

  • 08-07-16 16 36 38.jpg
    08-07-16 16 36 38.jpg
    74.6 KB · Affichages: 258
  • 08-07-16 16 36 57.jpg
    08-07-16 16 36 57.jpg
    75.1 KB · Affichages: 165
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
550
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