Discussion :

[NEC14]

Bonjour à tous,

Voici mon problème. J'ai un fichier avec 52 onglets.
A l'ouverture du fichier, un formulaire (FrmChoix) s'affiche. Dans ce formulaire une zone de texte (TxtChoix) dans laquelle on tape un numéro de 1 à 52.
Si on tape "1" alors l'onglet 1 s'affiche, 2 etc.
Comment encode t'on cela en Vba sous Excel ?
Je vous remercie par avance de votre aide

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(Index).activate

[Gorfael]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets(TxtChoix.value).select

ou peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets(Cint(TxtChoix.value)).select

J'ai pas testé, et si tu entres "01", je suis pas sur qu'il accepte
A+

[ouskel'n'or]

Oui, ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(Val(TxtChoix)).activate

[NEC14]

Oui, ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(Val(TxtChoix)).activate

Bonjour,

Super ça marche. Par contre j'ai un autre problème dans cette même application.
Comment cacher toutes les feuilles sauf la 1 sans être obligée de taper une litanie de texte du genre
Sheets("2").visible=false
Sheets("3") etc...
Merci par avance

[Gorfael]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub test()
Dim X As Integer
 Sheets(1).Visible = True
For X = 2 To Sheets.Count
    Sheets(X).Visible = False
Next X
End Sub

A+

[ouskel'n'or]

Dans ce formulaire une zone de texte (TxtChoix) dans laquelle on tape un numéro de 1 à 52.
Si on tape "1" alors l'onglet 1 s'affiche, 2 etc.

Le code qu'on t'a passé (aussi bien Gorfael que moi) ne fonctionne "correctement" que si tu n'as déplacé aucune de tes feuilles de calculs. Ex : Si tu déplaces "feuil1" pour la placer en troisième position, Sheets(3).Activate ou Sheets(3).visible = False concernera "feuil1".
Juste pour indication.
Si tu as déplacé tes feuilles, tu dis, il y a une solution simple.

[NEC14]

Le code qu'on t'a passé (aussi bien Gorfael que moi) ne fonctionne "correctement" que si tu n'as déplacé aucune de tes feuilles de calculs. Ex : Si tu déplaces "feuil1" pour la placer en troisième position, Sheets(3).Activate ou Sheets(3).visible = False concernera "feuil1".
Juste pour indication.
Si tu as déplacé tes feuilles, tu dis, il y a une solution simple.

Merci beaucoup, ça marche trés bien. Je n'avais pas déplacé les feuilles.
Je vais abuser un peu de vos connaissances.
Dans FrmChoix lorsque je choisi un n° de feuille ça marche bien, par contre j'aimerai que lorsque mon choix change, la feuille précédemment choisie devienne invisible au profit du nouveau choix.
Après ce sera fini.
Merci pour votre patience

[ouskel'n'or]

Je crois me souvenir que tu saisis tes N° de feuille dans un txtbox... Auquel cas, en entrant dans le TextBox, tu mémorises le N° de la feuille active et en sortie, si ce N° a changé, tu masques l'ancien N°. Pour ça, tu déclares une variable NoFeuille dans les déclarations de l'objet userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim NoFeuil

Dans TxtBox_Enter, tu mémorises le N° de la feuille que le txtbox contient, et dans TxtBox_Exit tu masques la feuille(NoFeui)
Pour le code, je pense que tu sauras te débrouiller

[NEC14]

Ok je vais me débrouiller.
Merci pour l'explication. Je te tiens au courant

J'ai essayé de faire, mais je n'y arrive pas. Je suis néophyte en la matière et je ne maîtrise pas le sujet. Je ne sais pas comment on fait pour mémoriser un n° de feuille. Je suis désolé de vous faire perdre votre temps.
Pouvez-vous me donner le code s'il vous plait ?

[fred65200]

NoFeuil = TxtChoix

[ouskel'n'or]

ou plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NoFeuil = val(TextChoix)

[NEC14]

ou plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NoFeuil = val(TextChoix)

Bonjour ouskel'n'or

Voici ce que j'ai fait, mais ça ne marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub TxtChoix_Enter()
Dim nfeuil As Long
nfeuil = (Val(TxtChoix))
If nfeuil = (Val(TxtChoix)) Then
Sheets(Val(TxtChoix)).Visible = True
    Sheets(Val(TxtChoix)).Activate
End If
End Sub

[Gorfael]

Salut
T'as du sauter un épisode :
nfeuil = (Val(TxtChoix))
If nfeuil = (Val(TxtChoix)) then
nfeuil= contenu de ma textBox
si nfeuil = contenu de ma TextBox, faire...

ce ne serait pas plutot :
nfeuil = ActiveSheet.Name
If nfeuil = (Val(TxtChoix)) Then
ou
nfeuil = ActiveSheet.Index
If nfeuil = (Val(TxtChoix)) Then
nfeuil = soit nom d'onglet soit numéro d'index de la feuille active

Ou autre chose qui fait référence à une valeur que tu peux choisir dans ta TextBox

Quand tu es bloqué, tu prends une feuille blanche (ou verte ), ou une ardoise et tu suis le déroulement de ton programme (ta macro), en notant uniquement tes variables :
J'exécute cette ligne => variable1 = X
la suivante variable1=Y
et une fois que ça fonctionne sur le papier, tu peux lancer ton programme. Si tout ce passe bien, c'est bon, sinon, sur Excel, tu mets un point d'arrêt sur le titre de ta macro, et tu l'exécute en pas-à-pas avec F8
Tu affiches la fenêtre "variables locales", ou tu mets ta souris sur la variable (la bulle d'aide te donne sa valeur actuelle). Et tu peux vérifier où il y a une différence entre ce que tu attends et ce qu'Excel a calculé.

A+

[ouskel'n'or]

Hello Nec14,
J'ai compris le test que tu voulais faire mais donne un exemple du nom de tes feuilles qu'on y voit plus clair.
Si tu fais

nfeuil = (Val(TxtChoix))

que trouve-t-on dans nfeuil ?
Mets un point d'arrêt sur

If nfeuil = (Val(TxtChoix)) Then

et regarde ce que tu as dans nfeuil en passant la souris dessus.

[NEC14]

Par exemple si la feuille1 ("1") est affichée, la feuille2 ("2") est masquée et les autres aussi par ailleurs.

[NEC14]

Salut
T'as du sauter un épisode :
nfeuil = (Val(TxtChoix))
If nfeuil = (Val(TxtChoix)) then
nfeuil= contenu de ma textBox
si nfeuil = contenu de ma TextBox, faire...

ce ne serait pas plutot :
nfeuil = ActiveSheet.Name
If nfeuil = (Val(TxtChoix)) Then
ou
nfeuil = ActiveSheet.Index
If nfeuil = (Val(TxtChoix)) Then
nfeuil = soit nom d'onglet soit numéro d'index de la feuille active

Ou autre chose qui fait référence à une valeur que tu peux choisir dans ta TextBox

Quand tu es bloqué, tu prends une feuille blanche (ou verte ), ou une ardoise et tu suis le déroulement de ton programme (ta macro), en notant uniquement tes variables :
J'exécute cette ligne => variable1 = X
la suivante variable1=Y
et une fois que ça fonctionne sur le papier, tu peux lancer ton programme. Si tout ce passe bien, c'est bon, sinon, sur Excel, tu mets un point d'arrêt sur le titre de ta macro, et tu l'exécute en pas-à-pas avec F8
Tu affiches la fenêtre "variables locales", ou tu mets ta souris sur la variable (la bulle d'aide te donne sa valeur actuelle). Et tu peux vérifier où il y a une différence entre ce que tu attends et ce qu'Excel a calculé.

A+

Bonjour,

Tu as raison, je devrais procéder de cette manière. Mais je veux faire vite et je ne prends pas toujours le temps pour la patience.
Sinon merci pour ton aide

[Gorfael]

Salut ouskel'n'or, Nec14, et le forum
J'ai compris le test que tu voulais faire
Moi, pas du tout (voir mon poste précédent

Je viens de relire les postes précédents, et ça y est :
sur la feuille de code de l'USF, en haut, avant les ùacros, tu déclares ta variable :
Public nfeuil as long

ensuite, il te faut créer 2 macros pour faire ce qu'a dit ouskel'n'or :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub TxtChoix_Enter()
nfeuil = Clng(activesheet.name)
End Sub

Je mémorise la feuille : le nom de la feuille transformé en Long à l'entrée dans la TextBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub TxtChoix_Exit()
If nfeuil <> clng((Val(TxtChoix))) Then
Sheets(Val(TxtChoix)).Visible = True
Sheets(Val(TxtChoix)).Activate
Sheets(nfeuil).visible=false
End If
End Sub

Quand je sorts de la Textbox, je compare le nom choisit avec celui de la feuille active : s'il est différent, j'affiche la feuille choisie, et je masque celle mémorisée.
CLng() transforme une valeur en entier long. Comme j'ai transformé le nom de la feuille, je fais de même pour la valeur de la TextBox : ce n'est sans doute pas nécessaire, mais quand on est en débuggage, au bout d'un moment, je préféres prendre mes précautions

A+

[ouskel'n'or]

Par exemple si la feuille1 ("1") est affichée, la feuille2 ("2") est masquée et les autres aussi par ailleurs.

Ok alors "1" est un string, pas un long. Auquel cas, pour sélectionner la bonne feuille, tu dois mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub TxtChoix_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim nfeuil as string
nfeuil = trim(TxtChoix.text) 'on supprime les espaces éventuels
    Worksheets(nfeuil).Visible = True
    Sheets(nfeuil).Activate
End Sub

Teste ça et dis-nous
A+

NB - C'est volontairement que j'ai placé le code dans _Exit(...)

[NEC14]

J'ai testé les 2 codes. Dans les 2 cas après un nouveau choix, les feuilles précédentes restent affichées.
Rectificatif, le code de Gorfael fonctionne bien. Je me suis trompé dans une ligne, c'est corrigé et ça marche.
Par contre comment empêcher que les utilisateurs aillent dans "Format/feuille/afficher" pour afficher une feuille, l'idéal serait qu'elles n'apparaissent pas, mais est-ce possible ?
Sinon merci beaucoup pour votre aide et surtout votre patience.