Excel emise à zéro

Question

Bonjour, 


je souhaite mettre à zéro quelques zone de mon fichier excel et j'y arrive via une macro.
Par contre, la macro n'enregistre pas des valeurs de menus déroulant qui correspondent à "vide" ou "non"....
Puis pour finir, affecter la macro à un bouton "RAZ"
Je n'y connais rien en VB ou en macro.

Qu'elqu'un peut m'aider ???

Merci

cousinhub29 · Answer

Bonjour,

Qu'elqu'un peut m'aider ??? 

Oui...

Cependant, il va falloir t'expliquer bien mieux....

Parce que là?????

@ te relire, avec quelques précisions....(tu as ton fichier devant les yeux, pas nous....)

Le Pingou · Answer

Bonjour,
Au passage : Je n'y connais rien en VB ou en macro
et dans la première ligne ceci : j'y arrive via une macro.
C'est bizarre!

phebus_35 · Answer

alors voilà....

j'ai exécuté une macro en mode"enregistrement" afin de remettre à zéro quelques zones de mon tableau.
Pour les cellules purement numériques, no problem, à l'exécution les valeurs reviennent à 0.
Par contre, dans l'enregistrement de cette macro, j'ai ouvert des cellules issues de choix dans des listes ex : les départements de France.
Or, dans cette liste j'ai mis un "aucun" pour annuler tous les calculs issus du département (il s'agit d'un calcul de tarification selon le département de livraison".
J'ai d'autres zones sur le même principe "référence du produit" qui sont elles aussi à remettre à zéro (ou plutôt mettre le mot "aucun" inclus dans la liste.

Alors non, je n'y connais rien aux macros ou du moins à la possibilité de les enrichir pour avoir ce que je souhaite.

Voilà, j'espère que c'est plus clair :-))

La macro : 
Sub RAZ()
'
' RAZ Macro
'

'
    Range("F8").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("F9").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("F10").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("F11").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("F12").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("F13").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("F14").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("F15").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("F16").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("F17").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("G20").Select
End Sub

merci !!!

Le Pingou · Answer

Bonjour,
Selon vos explications il n'y a pas besoin de macro pour remettre à zéro la plage [F8:F17], il suffit de mettre chaque liste déroulante sur [aucun] et les calculs qui en dépendes doivent revenir sur zéro, ceci pour autant que les fonctions de calcul soient correctement formulées.

phebus_35 · Answer

Oui, mais j'aurai préféré avoir un formulaire vierge, complètement dépollué des choix précédent....
La question reste posée.

Le Pingou · Answer

Bonjour,
Oui d'accord, alors dans se cas il suffit de ne pas polluer votre document, se sera plus simple.
Désolé, la suite sans moi.

phebus_35 · Answer

C'est vrai, pourquoi je m'enquiquine avec excel ?
Une bonne feuille de papier et l'affaire est réglée...

Merci quand même à "Le Pingou" qui a bien voulu m'aider. :-))

D'autres suggestions ?
J'aurai posé une colle au forum ?

En tout cas, je trouve cette idée d'entraide géniale.

@ bientôt pour ceux qui peuvent jeter un oeil sur ma problématique.

Patrice33740 · Answer

Bonjour

Ceci devrait suffire :

Sub RAZ()
    Range("F8:F17").ClearContents
End Sub

Patrice

Excel emise à zéro

8 réponses

Votre réponse

Discussions similaires

Newsletters