erreur avec for i = 1 to 10

[pascal21]

bonsoir
je suis à la recherche de la formulation exacte de ce code:

For i = 1 To 10
[COLOR=Red]sheets (i) . activate then[/COLOR]
UserForm1.Show
Next i

"si feuille de 1 à 10 activée alors ouvrir userform1"
j'ai une erreur "attendu fin d'instruction"
je désirerais mettre ce code dans this workbook sheets activate ou encore dans workbook open
que faut-il rectifier dans ce code
merci

 

[skoobi]

Re : erreur avec for i = 1 to 10

Bonsoir,

"si feuille de 1 à 10 activée alors ouvrir userform1"

Tu ne peux avoir qu'une seule feuille active.
Tu veux peut-être dire si feuille de 1 à 10 sélectionnées?

A te relire.

 

[pascal21]

Re : erreur avec for i = 1 to 10

bonsoir skoobi
j'avais hésité à mettre cette phrase ,justement à cause de ce "s"
je voulais dire "si une des feuilles numérotée(s) !!!! de 1 à 10 est activée, alors ........"
je n'ouvre bien qu'une seule feuille à la fois

 

[Roland_M]

Re : erreur avec for i = 1 to 10

bonsoir
voir correction du code:

Sub essai()
F$ = ActiveSheet.Name
For I = 1 To ThisWorkbook.Sheets.Count
If Sheets(I).Name = F$ Then UserForm1.Show
Next I
End Sub

Roland

 

[TooFatBoy]

Re : erreur avec for i = 1 to 10

Ou peut-être ceci :
If ActiveSheet.Index >= 1 And ActiveSheet.Index <= 10 Then UserForm1.Show

 

[Pierrot93]

Re : erreur avec for i = 1 to 10

Bonjour à tous

pas sur d'avoir tout compris, mais essaye peut être les codes ci dessous, à placer dans le module "thisworkbook" :

test sur le numéro d'index de la feuille activée

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Index <= 10 Then UserForm1.Show
End Sub

ou :

test sur le nom de la feuille activée

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <= 10 Then UserForm1.Show
End Sub

bonne journée
@+