Discussion :

[AJACOB]

Bonjour chère communauté,

J'ai un souci VB tout simple mais que me pose un problème depuis quelques heures !

Je souhaite selon une cellule variable avec une liste (OUI,NON) affecter une valeur dans une liste de cellules définies.
En clair selon la valeur "OUI" de la cellule de référence faire afficher "Actif" dans une plage de cellules définies. En somme ça donnerai une valeur par défaut. Simple mais...

Merci de votre aide.

[mfoxy]

Hello,

Peut-être une piste
Pas testé codé sur mon tel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Dim sTest as String 
sTest = Sheets("feuil1").Range("C1").Value ' modifier feuille et Range de valeur test
If  sTest <> "" then
  Select case true
    Case sTest = "OUI"
         Sheets("Feuil1").Range("A1:A6").Value = "Actif" ' modifier plage et nom de feuille
    Case sTest = "NON"
        Sheets("Feuil1").Range("A1:A6").Value = "Desactif" ' modifier plage et nom de feuille
    Case else
       Msgbox "Valeur test non reconnue"
  End select
Else
Msgox "Pas de valeur attribuée"
End if
End Sub

[Menhir]

J'ai un souci VB tout simple mais que me pose un problème depuis quelques heures !

Peut-être pourrais-tu présenter le code que tu as tenter au cours de ces "quelques heures" pour qu'on puisse comprendre ce que tu as fais de travers.

[AJACOB]

Bonjour,

Voici le code simple que j'avais essayé de créer en m'inspirant de contenu sur le web.
J'ajoute en pièce jointe une version simple du document.
Merci pour votre aide.

Ceci est une des versions que j'avais testé et essayé d'adapter de code VB trouvé ci et là. Mais je suis vraiment pas un expert !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim cell as Object
 
  For Each cell In Range("D4:D10")
 
    If Range("B4").Value = "OUI" Then
    cell = "Actif"
    End If
 
  Next cell
End Sub

[MarcelG]

Bonjour et bienvenu sur le Forum,

Une valeur peut très bien s'affecter à un ensemble de cellules simultanément (Objet "Range")

Regarde ce code et reviens si nécessaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address <> Cells(4, 2).Address Then Exit Sub
 
Range("D4:D10").Value = IIf(Target.Value = "OUI", "Actif", "Non actif")
 
 End Sub

Sur l'objet Worksheet : Objet Worksheet Microsoft

Sur l'évènement Change : Evt Change sur WorkSheet

Sur l'objet Range : Objet Range Microsoft

[AJACOB]

Re,

C'est impeccable !
C'est exactement ça. Merci beaucoup.