grder des formules

A

andré

Guest

• 23 Octobre 2004

• #2

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é.

 

Vote positif 0 Vote négatif

B

Bernard

Guest

• 23 Octobre 2004

• #3

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

 

Vote positif 0 Vote négatif

G

guylaine

Guest

• 23 Octobre 2004

• #4

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

 

Vote positif 0 Vote négatif

J

jp

Guest

• 23 Octobre 2004

• #5

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

 

Vote positif 0 Vote négatif

G

guylaine

Guest

• 23 Octobre 2004

• #6

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

 

Vote positif 0 Vote négatif

J

jp

Guest

• 23 Octobre 2004

• #7

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

 

Vote positif 0 Vote négatif

B

Bernard

Guest

• 23 Octobre 2004

• #8

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("A1733").ClearContents
Sheets("devis").Rows("A3542").ClearContents

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

Cordialement

Bernard

 

Vote positif 0 Vote négatif