(VBA) Validation de données = Résultat direct

Re : (VBA) Validation de données = Résultat direct

bonjour,

Un essai :

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("B7").Value
Case "OUI"
Range("B7").Offset(0, 2).Value = "OUI"
Case "NON"
Range("B7").Offset(0, 2).Value = "NON"
End Select
End Sub

Re : (VBA) Validation de données = Résultat direct

bonjour sebamak, CHALET53

en utilisant la même sub que CHALET53


A+

Re : (VBA) Validation de données = Résultat direct

Bonjours, à vous et merci déjà d’avoir pris le temps de me répondre,

Alors pour tout vous dire, le problème que je vous ai exposé, n’est pas : « Comment remplir une cellule après avoir sélectionné une donnée dans une liste de « validation de données » ? », mais de remplir cette cellule en direct, sans devoir cliquer ailleurs.

Ce que propose CHALET53 est exactement le code que j’ai dans mon fichier d’exemple, et le problème, c’est que lorsqu’on sélectionne « OUI » ou « NON », la cellule de destination ne change pas directement.

Il faut que je clique à un autre endroit de la feuille pour qu’elle se mette à jour.

Quant à la solution de Paf, cela marche aussi, mais je donnais « OUI » ou « NON » comme exemple. Vous vous doutez bien que ce que je cherche à faire et plus complexe que ça :
Sélection d’une valeur dans une liste de « validation de données » renvoie une autre « valeur » dans une cellule déterminée.

Mais ce que je souhaite c’est qu’elle renvoie cette valeur instantanément sans devoir cliquer ailleurs.

Donc si vous avez la solution, je suis preneur.

Re : (VBA) Validation de données = Résultat direct

re,

la proposition de CHALET53 et la mienne modifient instantanément la cellule D7 après sélection en B7, sans avoir à cliquer quelque part.
Si non, pourquoi proposer une solution qui présente le même inconvénient que le problème soumis ?

Peut-être avez vous copier le code dans la mauvaise sub ?

A+

Re : (VBA) Validation de données = Résultat direct

Toutes mes excuses,
Effectivement, je ne m’étais pas aperçu que vous faisiez la procédure dans « Worksheet_Change » et non dans « Worksheet_SelectionChange » et cela fonctionne très bien.

Mais quand je l’intègre à mon programme, il se met à bugger de partout.

Du coup je me suis rabattu sur une solution de substitution qui laisse mon programme viable.

Encore un grand merci à vous pour vos réponses rapides et constructives.

A+