macro conditionnel

[jderoque]

j'aimerai savoir comment faire en vba sous exel
pour que ma macro s'execute differament en fonction de la feuille de lancement.

merci d'avance

 

[Temjeh]

Bonjour à tous

Voici une solution

Sub Macro1()
If ActiveSheet.Name = 'Feuil1' Then
MsgBox 'Condition 1'
Else
If ActiveSheet.Name = 'Feuil2' Then
MsgBox 'Condition 2'
Else
If ActiveSheet.Name = 'Feuil2' Then
MsgBox 'Condition 3'
End If
End If
End If
End Sub


A+

TEmjeh

 

[jderoque]

oki merci ca marche ton truc
mé ni a til pas un moyen de faire plus simple?
quand on a
If ActiveSheet.Name = 'feuil1' Then
ne peu on pas mettre le nom de tt les feuille qui vont subir les meme propriété?
If ActiveSheet.Name = 'feuil1','feuil2',etc Then
peu tu me donner la synthaxe
merci bcp

 

[PascalXLD]

Bonjour

Dans ce cas tu fais

If Activesheet.name='Toto' or activesheet.name='Tutu' then

 

[jderoque]

ok je teste mé ca risk d'etre un peu long car g 50 feuille ki depande du meme critére

 

[PascalXLD]

Re

Attends si tu as 50 feuilles pour un même critères et quelques unes à part tu testes les autres et dans le else tu fais les 50

exemple

If activesheet.name= 'menu' then
exit sub
elseif activesheet.name= 'toto' then
macro1
else
macro2
end if

dans ce cas là si t'as feuille active est menu il ne se passe rien si c'est toto la macro1 s'enclenche si c'est une autre feuille c'est la macro2

Bon courage

 

[jderoque]

g pas tt compris
voici ma macro
Sub retourmenu()
'

' Touche de raccourci du clavier: Ctrl+m
'
If ActiveSheet.Name = 'bande1' Or ActiveSheet.Name = 'bande2' Or ActiveSheet.Name = 'bande3' Then
ActiveSheet.Protect
ActiveSheet.Visible = False
Sheets('menu').Select
Range('E9').Select

Else
Sheets('menu').Select
Range('E9').Select
End If
End Sub

les feuilles bande1, 2, vant juska 50

 

[jderoque]

c bon g pigé ca marche
merci bcp