Erreur De Code

TooFatBoy

XLDnaute Barbatruc

• 20 Juin 2008

• #2

Re : Erreur De Code

Peut-être que le deuxième "End If" est en trop ?

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 20 Juin 2008

• #3

Re : Erreur De Code

Bonsoir Yldie,

Tu as oublié Sheets dans :

Code:

[SIZE=3][COLOR=red][B]Sheets[/B][/COLOR][/SIZE](Array("Feuil4", "Feuil1", "Feuil15", "Feuil24", _
"Feuil22", "Feuil25", "Feuil29", _
"Feuil30", "Feuil31", "Feuil32", "Feuil33", _
"Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6"))

Ensuite dans la boucle faire référence à la feuille par sh.visible = True
A bientôt

 

Dernière modification par un modérateur: 20 Juin 2008

Vote positif 0 Vote négatif

Yldie

XLDnaute Junior

• 20 Juin 2008

• #4

Re : Erreur De Code

Merci a vous, mais rien n'y fait sh englobe en fait toutes les feuilles mais le code coince à ce stade......

Je continue à chercher mais n'hésitez surtout pas à me dépanner

 

Vote positif 0 Vote négatif

Yldie

XLDnaute Junior

• 20 Juin 2008

• #5

Erreur De Compilation

Toujours ce code qui bloque
HELP ME, PLEASE

Private Sub CommandButton1_Click()
If Me.TextBox1 = "RGI" Then
For Each sh In Array("Feuil4", "Feuil1", "Feuil15", "Feuil24", _
"Feuil22", "Feuil25", "Feuil29", _
"Feuil30", "Feuil31", "Feuil32", "Feuil33", _
"Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6")
Sheets(sh).Visible = xlVeryHidden

Merci pour votre aide

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 20 Juin 2008

• #6

Re : Erreur De Code

Ca devrait pourtant fonctionner simplement en supprimant le End If, à mon avis.

As-tu un message d'erreur, ou une ligne sur laquelle il y a arrêt ?



[edit]
Toutes les feuilles que tu énumères dans ton code exitent-elles réellement dans ton classeur ???

Bonsoir Staple1600.
[/edit]

 

Dernière édition: 20 Juin 2008

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Juin 2008

• #7

Re : Erreur De Code

Bonsoir



Ce code (pour test) fonctionne (dans un classeur qui a au moins 3 feuilles)

Code:

Sub test()
Dim x As String
x = InputBox("test")
If x = "o" Then
For Each sh In Array("Feuil1", "Feuil2")
Sheets(sh).Visible = xlVeryHidden
Next sh
Sheets(3).Activate
Else
For Each sh In Array("Feuil1", "Feuil2")
Sheets(sh).Visible = True
Next sh
End If
End Sub

edition :houps: bonjour MArcel32

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 20 Juin 2008

• #8

Re : Erreur De Code

Bonsoir,
salut le fil

A tout hasard....

Code:

Option Explicit

As-tu déclaré sh?

Code:

Dim sh As Worksheet

ou plutôt, dans ton cas :

Code:

Dim sh As Variant

 

Dernière édition: 20 Juin 2008

Vote positif 0 Vote négatif

G

Guest

Guest

• 20 Juin 2008

• #9

Re : Erreur De Code

re Yldie
bonsoir Skoobi
bonsoir Marcel32

Chez moi ce code avec Sheets(Array(....,....)fonctionne bien.

Code:

Sub BasculeVisible()
    Dim sh As Worksheet
    For Each sh In Sheets(Array("Feuil2", "Feuil3", "Feuil4"))
        If sh.Visible = xlSheetVisible Then
            sh.Visible = xlSheetVeryHidden
        Else
            sh.Visible = xlSheetVisible
        End If
    Next
End Sub

bonne soirée

Oups Hello BhBh Ca sent la mer.....

 

Vote positif 0 Vote négatif

Yldie

XLDnaute Junior

• 20 Juin 2008

• #10

Re : Erreur De Code

C'est bon je me suis débrouillé en reprenant feuille par feuille.....ça colle, encore merci pour votre dévouement à bientôt (Ce site est génial, vraiment !!!)

Option Explicit

Private Sub CommandButton1_Click()
If Me.TextBox1 = "password" Then
Sheets("Feuil4").Visible = True
Sheets("Feuil1").Visible = True
Sheets("Feuil15").Visible = True
Sheets("Feuil24").Visible = True
Sheets("Feuil22").Visible = True
Sheets("Feuil25").Visible = True
Sheets("Feuil29").Visible = True
Sheets("Feuil30").Visible = True
Sheets("Feuil31").Visible = True
Sheets("Feuil32").Visible = True
Sheets("Feuil33").Visible = True
Sheets("Feuil34").Visible = True
Sheets("Feuil35").Visible = True
Sheets("Feuil36").Visible = True
Sheets("Feuil39").Visible = True
Sheets("Feuil6").Visible = True
Unload Me

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 20 Juin 2008

• #11

Re : Erreur De Code

Re-,

juste pour saluer Hasco, avec plaisir

Et oui, ça sent la mer

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Juin 2008

• #12

Re : Erreur De Code

Re


J'en profite pour saluer bhbh et Hasco

qui salue Skoobi dans un post ou il n'est pas encore

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 20 Juin 2008

• #13

Re : Erreur De Code

So Sorry Stapple!

C'étais toi... Je dois lire des choses qui n'existent pas

Vivement demain que la musique me remette les neurones en place!

Bonne fête de la musique à toutes et tous et Bon été

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 20 Juin 2008

• #14

Re : Erreur De Code

Re,

euh, J-M, tu fais allusion à ce fil, où tu salues Hasco, grand absent de ce fil?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Juin 2008

• #15

Re : Erreur De Code

Pan dans le nez

Ca fait un prété pour un rendu

 

Vote positif 0 Vote négatif