En fonction du nom de la feuille

Le
philou36
Bonjour à tous,
J'ai un tableau avec 26 feuilles numérotées de 1 à 26, mais je
voudrais que dans la macro située dans un module elle effectue
certaines taches si on se trouve sur l'onglet 1 et d'autres taches si
on se trouve sur un autre onglet que le 1.
Ca doit etre jouable, non ?
Un grand merci à vous pour votre patience et votre disponibilité.
Bonne journée
Philippe
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Caetera
Le #19962441
"philou36"
J'ai un tableau avec 26 feuilles numérotées de 1 à 26, mais je
voudrais que dans la macro située dans un module elle effectue
certaines taches si on se trouve sur l'onglet 1 et d'autres taches si
on se trouve sur un autre onglet que le 1.

*************************
Sub macroFeuille()
If ActiveSheet.Name = "1" Then
macro1
Else: macro2
End If
End Sub

Sub macro1()
MsgBox "Faire ceci"
End Sub

Sub macro2()
MsgBox "Faire cela"
End Sub

Etc
garnote
Le #19962431
Salut Philippe,

Ça pourrait ressembler à :

Sub Faire()
Select Case ActiveSheet.Name
Case 1
'...
MsgBox "Bonjour"
'...
Case 2
'...
MsgBox "Bonsoir"
'...
Case 3
'...
MsgBox "MPFE"
'...
Case Else
Exit Sub
End Select
End Sub

Macro dans laquelle tu pourrais insérer les noms
d'autres macros que tu veux faire exécuter.

Serge


"philou36" news:
Bonjour à tous,
J'ai un tableau avec 26 feuilles numérotées de 1 à 26, mais je
voudrais que dans la macro située dans un module elle effectue
certaines taches si on se trouve sur l'onglet 1 et d'autres taches si
on se trouve sur un autre onglet que le 1.
Ca doit etre jouable, non ?
Un grand merci à vous pour votre patience et votre disponibilité.
Bonne journée
Philippe
philou36
Le #19962421
On 21 août, 09:46, "Caetera"
"philou36"
J'ai un tableau avec 26 feuilles numérotées de 1 à 26, mais je
voudrais que dans la macro située dans un module elle effectue
certaines taches si on se trouve sur l'onglet 1 et d'autres taches si
on se trouve sur un autre onglet que le 1.

*************************
Sub macroFeuille()
If ActiveSheet.Name = "1" Then
      macro1
      Else: macro2
      End If
End Sub

Sub macro1()
MsgBox "Faire ceci"
End Sub

Sub macro2()
MsgBox "Faire cela"
End Sub

Etc



Un grand merci à toi pour cette réponse aussi brillante que rapide
Bonne journée
Philippe
Publicité
Poster une réponse
Anonyme