protection de formule malgré ClearContents

[rudy]

bonjour le forum par cette belle journée ??

on ma aider a crée une formule de remise a zero de plusieur cellule mais dans ses cellule il y a des formule de calcule que je voudrais conserver

comment faire pour proteger ma formule est non sont contenu ??

merci A+

 

[Staple1600]

Bonsoir


messagé édité
voir pièce jointe plus haut dans le fil

 

[rudy]

salut, staple1600 , bonjour forum :
je vien de regarder le code que ta mis mais l idé de depart ete de conserver les formule de BQ5:BQ80 mais en recopient le contenu
de BQ5:BQ80 en E5 ?

le code que j avais mis fonctionnai mais effacer les formule et le tien n efface pas les formule mais ne recopie pas les valeur en E5

conclusion : on va bien finir par y arriver !!
A+

 

[Staple1600]

Bonjour


message édité
suppression de la PJ devenue obsolète.

 

[rudy]

re-staple1600
je vien d ouvrir le fichier mais BQ5:BQ80 ne se recopie pas en E5:E80
moi je sui perdu ??

 

[Spock]

Re tout le monde,

Reprend ta macro d'origine, supprime la derniere ligne de cette macro.

Là ça doit être bon !

 

[Bricofire]

Bonjour le fil, Le pb est peut-être simple...

Comme souvent question non explicite, non détaillée = moultes réponses pas fausses, mais hors sujet, comme pour une création de projet :

Rudy : Que veux tu faire exactement ? :

Après effort en regardant ton fichier (plutot que lire), j'ai compris ceci, est-ce exact :

Tu as en E un stock initial
A partir de G tu rentres des arrivages ou sorties jour par jour
En BQ tu as le stock total raffraîchi au jour le jour
En fin de mois tu veux reporter le stock de cette fin de mois (donc col BQ en col E)
Et remettre tes données journalières à zéro pour changer le mois

Si c'est ça, je ne vois pas ce qui te gêne à ce que la colonne BQ ne soit pas remise à Zéro, c'est logique vu sous cet aspect qu'au jour zéro du mois, elle soit égale à ta colonne E.
Si tu veux autrementn éssaie de dire pourquoi et La Bonne solution tombera inévitablement (si c'est un visuel du stock temporaire qui ne concerne que le mois en cours, pour info, une col sup mettra fin facilement à la douleur )
à suivre....

Bfr

 

[Staple1600]

Bonjour à tous

Voila le code aprés modification
(celui de rudy2.zip)

Private Sub CommandButton1_Click()
Dim Cell As Range
Application.ScreenUpdating = False
[COLOR=SeaGreen] 'Ici c'est bien la plage de cellule que tu souhaites copier[/COLOR]
Range("BQ5 : Q80").Copy
[COLOR=SeaGreen] 'et la la destination de la copie[/COLOR]
Range("E5").PasteSpecial Paste:=xlValues
[COLOR=SeaGreen] 'et ici effacement des cellules ne contenant pas de formules[/COLOR]
'pour la plage indiquée à savoir G5:BP80
[COLOR=SeaGreen] 'ci dessous Code de BricoFire[/COLOR]
For Each Cell In Range("$G$5:$BP$80") [COLOR=SeaGreen]'tu mets la plage que tu veux[/COLOR]
If Cell.HasFormula = False Then
Cell.ClearContents
End If
Next
End Sub

(le code se trouve dans la Feuil1
c'est donc ici que tu dois le modifier)

Est-ce que maintenant cela fonctionne?

 

[rudy]

impect , c est tou a fait sa

merci a tous les participent c été pas une mince afaire par manque d info ou autre je ne sais pas

a bientot

 

[Robert]

Bonjour le fil, bonjour le forum,

Je suis impressionné par mon efficacité dans ce fil... Si j'étais Ouèbema s'taire je rajouterais illico 'Résolu grâce aux talents de Roberto...'