grder des formules

[guylaine]

Bonjour le forum

Je fais une application pour faire des devis ,en cliquant sur un bouton j'efface l'ancien devis pour en faire un nouveau ,mais dans cette feuille de devis j'aimerai mettre des formules
(qui s'efface malheureusement à chaque nouveau devis)
J'ai donc besoin à nouveau de vos lumiéres
Je ne peux vous joindre mon appli (trop lourde)
Par avance merci
guylaine

 

[andré]

Salut guylaine,

Difficile d'être précis sans voir ton fichier, mais essaie quand même ceci :

Sélectionne ton devis, puis fais F5 (le touche clavier) / Cellules / Constantes / OK / Delete (la touche clavier supprimer).

Normalement tes données seront effacées, mais les formules conservées.

Ândré.

 

[Bernard]

Bonjour guylaine et André

si tu ne veux pas que tes formules s'effacent, if faut modifier la ligne de code qui commande l'effacement.

il doit y avoir une ligne du style :

range("A1:H30").Clear

modifier le Clear en Clearcontents

Cordialement

bernard

 

[guylaine]

re le forum
salut Bernard et Andre

voilà se que j'ai dans la ligne de commande

Private Sub CommandButton1_Click()
Sheets("devis").Rows("17:33").ClearContents
Sheets("devis").Rows("35:42").ClearContents
Sheets("devis").Range("B44") = ""
Sheets("devis").Range("E11") = ""
Sheets("devis").Range("E12") = ""
Sheets("devis").Range("E13") = ""
Sheets("devis").Range("E14") = ""

mes formules sont en F 17:33
et F 35:42
elles s'effacent quand même
idem pour ta methode André
merci
bonne journée

 

[jp]

Bonsoir guylaine, André, Bernard, le Forum,

Et si tu supprimes les deux premières lignes :

Sheets("devis").Rows("17:33").ClearContents
Sheets("devis").Rows("35:42").ClearContents

cela donne quoi ?

En attendant,

bonne soirée

jp

 

[guylaine]

Re le forum
salut jb

si je supprine
Sheets("devis").Rows("17:33").ClearContents
Sheets("devis").Rows("35:42").ClearContents

il me reste toutes les données de l'ancien devis

??
bonne soirée
guylaine

 

[jp]

Re guylaine, re le fil et le Forum,

un petit fichier exemple et zippé, seulement avec la feuille principale et le code y attenant serait le bienvenu..
Il n'est pas trop possible de reproduire les problèmes rencontrés sans le fichier qui en est la cause.

Bonne soirée en tous cas, et à plus.

jp

 

[Bernard]

Re le fil

J'ai dit des conneries dans mon empressement précédent !

Sheets("devis").Rows("17:33").ClearContents
Sheets("devis").Rows("35:42").ClearContents

Il est normal que ce code efface les formules. Clearcontents est une méthode qui efface les formules mais conserve la mise en forme.

Pour éviter cela, il ne faut effacer que les plages du devis qui sont les zones de saisie.

Dans ce cas le code pour effacer ces plages sera du genre :

Sheets("devis").Range("A17😀33").ClearContents
Sheets("devis").Rows("A35😀42").ClearContents

Pour réaliser le travail, comme le dit Jp, un petit fichier serait le bienvenu.

Cordialement

Bernard