Astuce? Fonction? Macro?

[Yannou_3413]

[Résolu]Astuce? Fonction? Macro?

Bonjour,

Je suis nouveau venu sur ce forum et je pense que vous pourrez peut-être m'apporter l'aide dont j'ai besoin (ou du moins je l'espère très fort🙂 )
Je suis devant un problême que je n'arrive pas à résoudre, je m'explique :
J'ai une cellule qui peut prendre deux valeurs (via une liste déroulante) "oui" et "non" , quand le choix rentré dans cette cellule est "oui", il faut que deux case prennent la valeur 0, mais quand je suis sur "non", je dois pouvoir taper librement la valeur qui m'intéresse.

Ne m'y connaissant pas en macro, je ne sais pas si cela est réalisable par ce biais, j'ai bien essayé avec certaines fonction, mais le problème est qu'apparement on ne peut pas avoir une case qui puisse recevoir des valeurs tout en ayant une formule qui persiste car cette dernière est écrasée quand on rentre une autre valeur. J'ai essayé aussi dans les options de validation de la cellule de mettre une formule "SI" pour que la case prenne la valeur zéro dans les bons cas mais cela ne marche pas.

Ce problème pourra peut-être vous paraître bête mais je me sens dépassé et personne dans ma société ne peux résoudre ce soucis.
Merci d'avance pour vos réponses.
Yann

 

[Compte Supprimé 979]

Re : Astuce? Fonction? Macro?

Salut Yannou_3413,

Je pense que dans ton cas il faut effectivement un petit code VBA 😉

Quelle est la référence de la cellule (oui/non) ?
Quelle sont les références des deux autres cellules ?

A+

 

[Jocelyn]

Re : Astuce? Fonction? Macro?

Bonjour le Forum,
Bonjour Yannou_3413,

Bon je suis un tout petit joueur de VBA mais pour essayer de me soigner un essai si l'une des cellule A1:A10 contient Oui les cellules B et C de la même ligne =0

pour voir le code faire ALT + F11

JOcelyn

Oup's bonjour Bruno désolé de la collision mais content que tu sois sur le fil les réponses seront a n'en pas douter bien meilleures

 

[Yannou_3413]

Re : Astuce? Fonction? Macro?

Salut Yannou_3413,

Je pense que dans ton cas il faut effectivement un petit code VBA 😉

Quelle est la référence de la cellule (oui/non) ?
Quelle sont les références des deux autres cellules ?

A+

Merci de ta réponse 🙂
Référence de ma cellule ("Single road"/"Double road") : D6
Référence de mes deux autre cellules : D8 et I8
Merci.

@ Jocelyn : j'analyse ta proposition de solution dès que j'ai un peu de temps, parce que mon chef ma donnée un autre taf en attendant de trouver la solution

 

[pierrejean]

Re : Astuce? Fonction? Macro?

bonjour Yannou

Salut Bruno

Jocelyn tu te soignes tès très bien

j'ai ajouté a ta proposition l'interdiction de mettre autre chose que 0 dans les cellules D8 et I8 si D6 est Oui

 

[Yannou_3413]

Re : Astuce? Fonction? Macro?

@Jocelyn : Ce que tu m'as fait est parfait, c'est exactement ce que je veux mais je n'arrive pas à l'appliquer à ma feuille Excel (je suis un boulet des macros).
Si ça peut t'aider a m'aider a réaliser la même macro que toi, je te donne les cellules que sur lesquelles je dois appliquer la macro
Feuille n°1 du classeur : Caracteristique bride
Cellule de choix multiples : "Single road"/"Double road" réf D6
Cellules à mettre à zéro quand "Single road" : D8 et I8
Comme je sais que ce n'est pas seulement Jocelyn qui arpente ce forum, toute personne qui saura m'aider sera fortement remercié de louanges (lol 😱 )

 

[Dugenou]

Re : Astuce? Fonction? Macro?

Salut

Etant allergique aux macros, j'aurais utilisé le "workaround" suivant :

en D8: =si(D6="SingleRoad";0;C1) et je tape la valeur souhaitée en C1 comme ça j'écrase pas la formule.

Mais bon, vous faites comme vous voulez, je suis pas raciste !

Cordialement

 

[Yannou_3413]

Re : Astuce? Fonction? Macro?

Quelqu'un pourait m'expliquer la manip pour pouvoir appliquer la macro créée par pierrejean dans mon classeur.
En sachant qu'il faut m'expliquer pas à pas parceque les macros et moi ça fait beaucoup trop pour être compté sur tous les doigts des deux mains...🙂
En tout cas merci de votre aide à tous

 

[Dugenou]

Re : Astuce? Fonction? Macro?

D'accord, je vois, ma solution te plait pas !!🙁

je suis pas bien meilleur que toi en macro mais je vais essayer.

dans ton classeur tu cliques sur outils/macros/visual basic éditor

dans l'écran qui s'affiche tu devrais avoir dans la partie gauche ton classeur et les feuilles qu'il contient.
tu doubles cliques sur la feuille ou se trouvent tes cellules et dans la partie droite tu colles le texte ci dessous.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
If Target = "Oui" Then
Range("D8") = 0
Range("I8") = 0
Else
Range("D8") = ""
Range("I8") = ""
End If
End If
If Target.Address = "$D$8" And Range("D6") = "Oui" Then Target = 0
If Target.Address = "$I$8" And Range("D6") = "Oui" Then Target = 0
End Sub

tu enregistres et tu fermes : ça devrait fonctionner
Il faut corriger le "Oui" en "Single Road"
Cordialement

 

[pierrejean]

Re : Astuce? Fonction? Macro?

re

dans mon classeur

Outils > Macro>visual basic Editor
dans Visual
Affichage > Explorateur de projet
cliquer sur la feuille concernée

dans la deroulante de gauche
cliquer sur Worksheet
copier la macro

dans ton fichier

même endroit et coller

si difficulté ne pas hesiter a revenir

edit:
dugenou plus rapide (et meilleur !)

 

[Dugenou]

Re : Astuce? Fonction? Macro?

re

dugenou plus rapide (et meilleur !)

C'est trop d'honneur Pierre Jean 🙂

 

[Yannou_3413]

Re : Astuce? Fonction? Macro?

Merci a tous de votre aide, ça m'as beaucoup servi.
Je sais maintenant que je peux compter sur vous en cas de gros soucis.
Encore merci et à bientôt!
🙂 🙂 🙂