Mettre à jour la valeur d'une cellule en fonction d'un autre Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
vip4rk
Jeune membre
Jeune membre
Messages : 31
Inscrit le : 17 janvier 2020
Version d'Excel : 2016 FR

Message par vip4rk » 17 janvier 2020, 16:37

Bonjour,

Après plusieurs recherches sur ce forum et d'autres, je ne parviens pas à trouver réponse à mon problème.

Je voudrais qu'une cellule se mette à jour automatiquement en fonction de la valeur d'une autre cellule.
En C14 j'ai une zone de liste qui renvoie soit "Oui" soit "Non" et je veux que si l'utilisateur sélectionne "Non", cela remplisse automatiquement les zones de liste suivantes C15 et C16 par la valeur "NA" (comme cela l'utilisateur n'a pas besoin de sélectionner NA lui-même.

Voici le code que j'ai mis dans "Feuil1" (et non Modules) :
Private Sub Worksheet_Change(ByVal Target As Range)

'Reset des cellules d'extension si il ne s'agit pas d'une extension

If Sheets("Fast_Price").Range("C14").Value = "Non" Then
    Sheets("Fast_Price").Range("C15").Value = "NA"
    Sheets("Fast_Price").Range("C16").Value = "NA"
End If

End Sub
Cela ne fonctionne pas du tout :-)))

Pouvez-vous m'aider?

Merci d'avance !

Vip4rk
Avatar du membre
bigdaddy154
Membre impliqué
Membre impliqué
Messages : 1'205
Appréciations reçues : 47
Inscrit le : 5 mars 2014
Version d'Excel : 2010

Message par bigdaddy154 » 17 janvier 2020, 16:56

Bonjour à tester
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Application.Intersect(Target, Range("C14")) Is Nothing Then
    If Target.Value2 = "Non" Then
        Range("C15").Value = "NA"
        Range("C16").Value = "NA"
    End If
End If
End Sub
Cordialement
Avatar du membre
vip4rk
Jeune membre
Jeune membre
Messages : 31
Inscrit le : 17 janvier 2020
Version d'Excel : 2016 FR

Message par vip4rk » 17 janvier 2020, 17:34

@Bigdaddy154 Je vous remercie pour réponse mais j'ai essayé et cela ne fonctionne pas non plus!

:bof:

Vip4rk
Avatar du membre
X Cellus
Membre dévoué
Membre dévoué
Messages : 513
Appréciations reçues : 51
Inscrit le : 13 octobre 2019
Version d'Excel : 2007 FR

Message par X Cellus » 17 janvier 2020, 18:17

Bonjour Vip4rk et bienvenue,

Pour ton besoin le code ci-dessous:
Private sub Worksheet_Change(ByVal Target as Range)
if Target.Address = "$C$14" and Target.Value = "Non" then [C15]="NA":[C16]="NA"
End Sub
Note qu'il fonctionne une fois le choix NON fait dans ta zone de liste en C14. Si tu la modifies ensuite par un OUI, C15 et C16 ne seront pas modifiées. Elles resteront NA.
1 membre du forum aime ce message.
Avatar du membre
vip4rk
Jeune membre
Jeune membre
Messages : 31
Inscrit le : 17 janvier 2020
Version d'Excel : 2016 FR

Message par vip4rk » 17 janvier 2020, 18:38

Mince je n'avais pas placé le code dans la bonne feuille xD !!

Vos codes fonctionnent parfaitement merci!

Vip4rk
Modifié en dernier par vip4rk le 17 janvier 2020, 18:46, modifié 1 fois.
Avatar du membre
X Cellus
Membre dévoué
Membre dévoué
Messages : 513
Appréciations reçues : 51
Inscrit le : 13 octobre 2019
Version d'Excel : 2007 FR

Message par X Cellus » 17 janvier 2020, 18:44

A nouveau,

Le mieux, ce serait qu'un onglet, celui de Fast_Price plutôt que tout le fichier. Ou sinon fais un court fichier et teste le code présenté.
Car je vois pas ce qui perturberait le code.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message