quelques questions simples

[gscv]

Tous d'abord Bonjour à tous.

Je suis nouveau sur ce forum et debutant sur excel et vba

voici 2 petits soucis que je rencontre

1) La somme

je cherche sous vba a faire une somme toute bête :huh:

exemple : somtot = (de b1 a b10)

2 ) Les Multipages

J'ai crée une multipage avec plusieurs onglets mais je souhaiterais que certains onglet apparaisse selon condition:

exemple : si celulle aa1 = 1 je ne veux pas voir la page2

voici ce que je me suis tanté de faire :

Sub menu()
If ActiveSheet.Range('aa1') = 1 Then
UserForm2.MultiPage1.Pages(2).Visible = True
End If
UserForm2.Show
End Sub

mais cela ne fonctionne pas


Voila mes premiers soucis a vous soumettre

en remerciant par avance , les bonnes volontés.......

Cordialement

Gscv

 

[BOBBY]

Lut gscv

Sub menu()
If ActiveSheet.Range('aa1') = 1 Then
UserForm2.MultiPage1.Pages(2).Visible = False
End If
UserForm2.Show
End Sub

Si tu veux que lorsque aa1 = 1 alors la page 2 est invisible.

A+

 

[Gscv]

Je te remercie Bobby Pour cette reponse que j'avais deja essayer

mais en faite je viens de m'appercevoir que cela fonctionnais

ce qui m'a induit en erreur cest en faite que

UserForm2.MultiPage1.Pages(2).Visible = False rend non pas invisible la page 2 mais la page 3 (il y aurai un decalage dans les pages). Elles demmareraient de la page 0 donc:

MultiPage1.Pages(0)..... serait la page 1
MultiPage1.Pages(1)..... serait la page 2
MultiPage1.Pages(2)..... serait la page 3
MultiPage1.Pages(3)..... serait la page 4
et ainsi de suite


je te remercie de quand meme de ta reponse

je considere mon probleme 2 resolue

Merci de votre aide pour la question 1

cordialement

Gscv

Message édité par: gscv, à: 18/05/2005 10:30

 

[BOBBY]

Re Gscv

Je vien de m'apercevoir d'un truc

Il faut mettre Multipage1.Page1 et non pas Multipage1.Pages(1)

Donc tu auras

Sub menu()
If ActiveSheet.Range('aa1') = 1 Then
UserForm2.MultiPage1.Page2.Visible = False
End If
UserForm2.Show
End Sub

 

[gscv]

Ok je prend note de ta remarque et la teste de suite

encore merci

 

[gscv]

Merci José pour ta reponse que je m'empresse d'essayer

cordialement

Gscv

 

[BOBBY]

Re gscv, José

Alors gscv, tout marche comme tu veuxx ???

A+

 

[gscv]

toute a fait
merci josé