Version imprimable
Bonjour à tous,
J'ai un fichier XLS avec des formules et de Validations de données.
Toutefois, quand j'appui sur le bouton Suppr toutes les valeurs s'effacent ainsi que les formules.
Je vous serais reconnaissant de m'aider à remédier à ce problème.
Merci d'avance.
JemaCodeur
Version : Excel 2010
Bonjour
La solution passe par F5 (que tu peux automatiser) une fois la logique comprise et testée avec l'enregistreur
Sélection des constantes...
http://www.excel-formations.fr/Trucs...s/ToucheF5.php
Je ne comprends pas ce que tu demandes.
Tu voudrais qu'une cellule contienne une formule mais n'affiche pas son résultat ?
Bonjour à vous, Bonjour le Forum,
C'est peut-être là où veut en venir Chris que je salue au passage.
La méthode SpecialCells décrites dans cet espace te serait utile pour supprimer ces cellules d'un bloc.
Salut Menhir,Citation:
Envoyé par Menhir
Ce que je veux concrètement c'est quand je mets une formule qui génère un valeur, quand j'appuie sur Suppr pour effacer la valeur générée que la forme ne s'efface pas.
Salut MarcelG,Citation:
Envoyé par MarcelG
J'avoue c'est pas exactement ce que je veux faire ou bien c'est moi qui ai mal compris ta réponse.
Ca n'est pas possible.Citation:
Envoyé par JemaCodeur
Quand on met une formule dans une cellule, c'est généralement pour afficher son résultat.
La seule chose que tu peux éventuellement faire, c'est rendre ce résultat invisible en mettant une couleur de police identique à la couleur de remplissage de la cellule.
Ah oui vous êtes sûre ? Car j'ai cherché dans le :faq: et j'ai trouvé ce bout de code qui correspond à ce que je veux faire.Citation:
Envoyé par Menhir
Par contre comme je suis Novice en VBA je ne sais pas comment m'y prendre.
Code:Range("A1:A10").SpecialCells(xlCellTypeConstants, 3).ClearContents
Bonjour,
Je pense que tu as du mal exprimé ta demande, peut être que des captures d'écran avant/après sur un exemple simple pourrait aider.Citation:
Envoyé par JemaCodeur
Je ne comprend pas ton problème, si tu as trouvé un code qui correspond qu'Est-ce qui t'empêche de t'en servir ? un message d'erreur ?Citation:
Par contre comme je suis Novice en VBA je ne sais pas comment m'y prendre.
Code:Range("A1:A10").SpecialCells(xlCellTypeConstants, 3).ClearContents
Salut.
Perso, je suis d'accord avec Menhir. Tu ne peux pas "supprimer le résultat des formules"
Dans la mesure où une formule génère toujours une valeur (c'est un peu le but, en fait), je ne comprends pas bien ce que tu veux dire, car tu ne peux pas "effacer la valeur générée".Citation:
Envoyé par JemaCodeur
Tu peux effectivement effacer (pas supprimer) les constantes qui alimentent les formules, au moyen de SpecialCells, mais tes formules renverront TOUJOURS un résultat, quoi qu'il arrive au niveau des constantes saisies dans les cellules. Du coup, si tu effaces les constantes (que tu vides les cellules qui les contiennent), tu risques d'avoir des résultats "rigolos" comme réponses à tes formules...
Pièce jointe 578795
Je suis curieux de savoir ce que tu souhaites réaliser :koi:
Au passage, je me demande comment tu peux affirmer que le code que tu as trouvé dans la faq te convient si tu ne sais pas l'implémenter... re:koi:
salut halaster08,Citation:
Envoyé par halaster08
Voici un exemple de tableau avec des listes déroulantes dépendantes.
Pièce jointe 578798
Dans les colonnes grises on y trouve la formule ci-contre :Donc ce je veux faire c'est d'effacer les valeurs des cellules grises tout en maintenant les formules.Code:=SI(ESTERREUR(RECHERCHEV($F17;Tableau_Lancer_la_requête_à_partir_de_axsql4[#Tout];2;FAUX));"";RECHERCHEV($F17;Tableau_Lancer_la_requête_à_partir_de_axsql4[#Tout];2;FAUX))
Grâce à vos explication, je me suis rendu compte que cela n'est pas possible.
Cependant, avez vous une idée de comment faire pour charger la formule en VBA de ce fait même si on efface la valeur générée la formule n'est pas supprimer.
Merci pour l'attention portée à ma demande.
Pour mettre ta formule dans la cellule A1:
Remplace A1 par n'importe quel plage où tu souhaite mettre ta formuleCode:Range("A1").FormulaLocal = "=SI(ESTERREUR(RECHERCHEV($F17;Tableau_Lancer_la_requête_à_partir_de_axsql4[#Tout];2;FAUX));"""";RECHERCHEV($F17;Tableau_Lancer_la_requête_à_partir_de_axsql4[#Tout];2;FAUX))"
ATTENTION, la formule est identique a celle que tu as posté à un détail près le doublement des " pour ne pas que VBA les considère comme un séparateur de texte
Cette ligne de code supprimera les cellule contenant des valeurs saisies.Citation:
Envoyé par JemaCodeur
Par contre, pour les cellules contenant une formule, elle laissera affiché le résultat.
Il serait beaucoup plus simple de modifier la formule en lui demandant d'afficher "" s'il n'y a rien à chercher, donc si la cellule correspondante dans la colonne des listes déroulantes est vide.Citation:
Envoyé par JemaCodeur
Un simple SI() suffirait.
En ajoutant un test à test formules, tu pourrais "effacer" les résultats...
Pièce jointe 578803
Ta formule en plus simple :Citation:
Envoyé par JemaCodeur
Code:=SIERREUR(RECHERCHEV($F17;Tableau_Lancer_la_requête_à_partir_de_axsql4[#Tout];2;FAUX));"")
Renomme tes tableaux issus d'une requête, également. Ca simplifiera ta lecture... ;)
Vraiment merci à vous pour ces explication très instructive qui m'ont permis de régler mon problème.
:bravo::resolu:
