VBA Critère pour "Evènement"

Question

Est ce que le critère en Cellule B4 (liste déroulante) peut provenir d'une autre feuille ou doit toujours être dans la feuille ou elle agit: si oui comment code t-on cellule B4 feuil2?? : If Target.Address = "$B$4" Then Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range ( "B4" ) ) Is Nothing Then Rows(Range("B5").Value).Select Private Sub Worksheet_Change(ByVal Target As Range) Dim TSS As ListObject 'déclare la variable TSS (Tableau Structuré Source) Dim PLS As Range 'déclare la variable PLS (PLage Source) Dim TSD As ListObject 'déclare la variable TSD (Tableau Structuré Destination) Dim PLD As Range 'déclare la variable PLD (PLage Destination) Dim LI As Integer 'déclare la variable LI (LIgne) If Target.Address = " $B$4" Then Crdlmt Nonno...

ThauThème · Accepted Answer

Bonjour Nonno, boujour le forum,

Si tu daignais être plus explicite ou pourrait te proposer une solution adaptée...
Mais sinon, au changement de B4 dans l'onglet Feuil1, tu peux faire des modifications dans l'onglet Feuil2, sachant que l'événementielle Change sera toujours dans le composant Feuil1(Feuil1). Voir un exemple ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OT As Worksheet 'déclare la variaboe OT (Onglet de Travail)

If Target.Address <> "$B$4" Then Exit Sub 'si le changement a lieu ailleurs qu'en B4 (de l'onglet Feuil1), sort de la procédure
Set OT = Worksheets("Feuil2") 'définit l'onglet de travail OT
If Target.Value = "toto" Then OT.Range("A1").Value = "tata" 'si B4 de Feuil1 est égale à "toto", A1 de Feuil2 sera égale à "tata"
End Sub

Xmenpl · Accepted Answer

Exacte Thauthème, tant qu'à faire une liste déroulante j'aurai inséré une combobox. qui a son propre évènement "Change"...