Sélection d'une feuille en fonction de la valeur d'une cellule

[Nonno 94]

Bonsoir le Forum,

pouvez-vous m'indiquer quel code permettrait à une macro de s'exécuter dans les conditions suivantes :
- dans un classeur, 3 feuiles nommées : "Récap", 1 et 2
- dans la feuille "Récap", la cellule D6 qui contient une formule peut prendre la valeur 1 ou 2

Si D6 = 1, la feuille 1 est sélectionnée et la macro s'exécute; si D6 = 2, c'est la feuille 2 et la macro s'exécute.

Remerciements et bonne fin de journée.

Nonno 94.

 

[tototiti2008]

Re : Sélection d'une feuille en fonction de la valeur d'une cellule

Bonjour Nonno,

Sans plus de précision, dans le code de la feuille Recap :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$6" And Range("D6").Value <> "" Then
        Call MaMacro(Range("D6").Value)
    End If
End Sub

Dans le code d'un module

Sub MaMacro(NomFeuil As String)
    Sheets(NomFeuil).Select
    'Suite de la macro
    '...
    MsgBox ActiveSheet.Name
End Sub

 

[Gorfael]

Re : Sélection d'une feuille en fonction de la valeur d'une cellule

Salut Nonno 94 et le forum

Si D6 = 1, la feuille 1 est sélectionnée et la macro s'exécute; si D6 = 2, c'est la feuille 2 et la macro s'exécute.

Serait peut-être pas mal de donner le code de ta macro

Dim F as worksheet
if [D6]>0 then
    set F = sheets("feuille " & [D6]
Else
    Exit sub
End if

A+