Selection de feuilles

[hambel]

bonjour,

j'ai plusieurs listes déroulantes différente sur plusieurs feuilles.
je voudrais déclarer au début de chaque liste de code la feuille qu'il lui correspond

j’espère que j'été assez claire

cordialement.

 

[job75]

Re : Selection de feuilles

Bonjour hambel,

j’espère que j'été assez claire

Clair(e) ? Pas du tout, même ma boule de cristal ne comprend rien à ceci :

je voudrais déclarer au début de chaque liste de code la feuille qu'il lui correspond

A+

 

[Pyrof]

Re : Selection de feuilles

Bonjour

Peut être ça .......

 

[hambel]

Re : Selection de feuilles

bonjour,
merci pyprof mai ce n'est pas sa,
voila j'ai 3 feuille qui contienne différente liste déroulante, celles ci sont gérer par des code vba,
quand je tape mes codes il faut déclarer avant la feuille qui correspond a ces code.
je donnerai l'exemple dans le fichier suivant
merci d’avance.
Private Sub Worksheet_Change(ByVal Target As Range)
(feuille saisie)
Rows("2:3").Hidden = [B1] <> "oui"
If [B1] = "non" Then Rows("2:3").Hidden = True
If [B1] = "oui" Then Rows("2:3").Hidden = False

(feuille HP)
Rows("2").Hidden = [B1] <> "oui"
If [B1] = "non" Then Rows("2").Hidden = True
If [B1] = "oui" Then Rows("2").Hidden = False

 

[job75]

Re : Selection de feuilles

Re,

Bon j'ai enfin compris. Alors il y a 2 solutions :

1) Vous mettez le même code dans chacune des 3 feuilles "saisie", "HP", "BP".

Vous n'avez rien à déclarer, circulez

2) Vous ne mettez aucun code dans ces 3 feuilles mais vous mettez dans ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "liste de choix" Or _
  Intersect(Target, Sh.[B1:B4]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
If Target.Address = "$B$1" And Sh.[B1] = "oui" Then Sh.[B2] = "pressostatique"
If Target.Address = "$B$2" And Sh.[B2] = "automate" Then Sh.[B3] = "A"
If Target.Address = "$B$2" And Sh.[B2] = "regulateur" Then Sh.[B4] = "D"
Sh.Rows("2:4").Hidden = Sh.[B1] <> "oui"
If Sh.[B2] = "pressostatique" Then Sh.Rows("3:4").Hidden = True
If Sh.[B2] = "automate" Then Sh.Rows(4).Hidden = True
If Sh.[B2] = "regulateur" Then Sh.Rows(3).Hidden = True
End Sub

A+