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

Nonno 94 · 28 Février 2011

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 · 28 Février 2011

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 :

Code:

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

Code:

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

Gorfael · 28 Février 2011

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

Code:

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

A+

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

Nonno 94

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

Discussions similaires

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

Nonno 94

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency