tester une zone de liste.

Bonjour j ai une zone de list ds une cellule excel sur ma feuille 2
cette feuille etant copiable plein de fois

avec trois valeur: bibi,baba,bobo

je voudrais que quand j ai bibi : je mette le range("V2:Z2").value = nini
je voudrais que quand j ai baba : je mette le range("V2:Z2").value = nana
je voudrais que quand j ai bobo : je mette le range("V2:Z2").value = nana

j y arrive avec un

Code:

---

1 2 3 4 5 6 7 8

private workbook selection change () select case true case activesheet.range("U4").value = bibi range("V2:Z2").value = nini .. . . end sub

---

mais qd je suis sur ma feuille 1 je neveux pas que ce code s applique.


Une idée?


seconde partie quand U4 = bibi je voudrais masquer une colonne entière.

est ce possible?
merci

Citation:

---

Envoyé par Tomy

j y arrive avec un private workbook selection change ()

---

Connais pas cet événement :( (V2003)
Ça existe dans ta version d'Excel ? ;)
Tu vérifies ?
A+

Hello,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False If Sh.Name = "Feuil1" Then If Range("A1") = "bibi" Then Range("A2:B10") = "bobo" Columns("C").Hidden = True Else Columns("C").Hidden = False End If End If Application.EnableEvents = True End Sub

---

je l ai adapté a ma demande avec quelque modif

mais c est ce que je desirai, merci cafeine.