VBA: Cacher/Afficher une feuille en fonction d'un userform

Version imprimable

Bonjour à tous :),

J'aurais besoin d'aide concernant un petit problème de programmation en VBA. J'ai compris l'erreur de mon fichier mais ne trouve pas de solutions.

Voici le fonctionnement de mon fichier :

Je dispose d'un fichier EXCEL composé de 2 feuilles de base ("TBR","Checklist") et d'un userform lui-même composé de 3 boutons (ajouter, effacer, quitter).

Lorsque j'ouvre mon fichier EXCEL ou que j'appuie sur un bouton "+" le userform apparait.

A partir du moment où mon userform est ouvert je créer une nouvelle checklist à partir de ma feuille de base "Checklist" et je l'ajoute par incrémentation dans ma feuille "TBR" en cliquant sur le bouton ajouter de mon userform.
Code:

1 2 3 4 5 6 7 8 9 Private Sub Ajouter_Click() Sheets("Checklist").Copy After:=Sheets(Sheets.Count) 'copie la checklist vierge remplie dans le userform et la colle à la dernière feuille du classeur ActiveSheet.Name = PN.Value Sheets("TBR").[B1].Value = ActiveSheet.Name Sheets("Checklist").Select ActiveWindow.SelectedSheets.Visible = False End Sub
Ce que j'aimerais, c'est qu'à l'aide de mon bouton ajouter de mon userform je puisse ajouter autant de nouvelle checklist que je souhaite.
Le problème est que j'ai fait en sorte de cacher la feuille de base "Checklist" (qui permet de créer les nouvelles checklists) à chaque clique du bouton "ajouter" pour éviter toutes modifications de la part d'un utilisateur de ma feuille de base.
Code:

1 2 3 4 5 6 7 8 Sub Ajouter() If Création.Visible = False Then Sheets("Checklist").Visible = True Création.Show End If End Sub
De ce fait je ne peux créer qu'une seule checklist à la fois car la ligne Sheets ("Checklist").select de mon premier code est en erreur si je clique une seconde fois sur le bouton ajouter vu que ma feuille de base "Checklist" ne redevient pas visible après avoir cliqué sur le bouton ajouter.

Ma première idée était de faire une boucle avec un do while mais je n'ai pas réussi.

J'espère avoir été assez claire... Avez-vous une idée, des pistes d'actions?

Merci d'avance à ceux qui répondront à cette discussion :)

30/05/2016, 10h41
thebenoit59

Bonjour Aurelu.

Pour éviter tout problèmes, il vaut mieux éviter les .Select.
Tu peux aisément écrire :

Code:

Sheets("Checklist").Visible = False

Dans ton premier code, ce qui éviter de la sélectionner.

Bonjour le fil, bonjour le forum,

Pas sûr d'avoir bien compris... Essaie comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Ajouter_Click()
Dim NF As Variant 'déclare la variable NF (Nombre de Feuilles)
Dim C As Byte 'déclare la variable C (Compteur)
 
NF = Application.InputBox("Combien de feuilles faut-il créer ?", "AJOUT", Type:=1) 'définit la boîte d'entrée NF
If NF = False Or NF = 0 Then Exit Sub 'si bouton "Annuler" ou si NF = 0, sort de la procédure
For C = 1 To NF 'boucle de 1 à NF
    Sheets("Checklist").Copy After:=Sheets(Sheets.Count) 'copie la checklist vierge remplie dans le userform et la colle à la dernière feuille du classeur
    ActiveSheet.Name = PN.Value & "_" & C
    Sheets("TBR").[B1].Value = ActiveSheet.Name
Next C 'prochaine valeur de la boucle
Sheets("Checklist").Visible = False
End Sub

Merci pour vos aides et conseils :). J'ai réussi à résoudre mon problème après plusieurs relecture. J'ai juste supprimer une ligne de mon ancien code et rajouter des lignes de codes pour initialiser mon userform pour chaque utilisation de celui-ci.

Je mets mon code au cas où ça puisse servir à quelqu'un.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Ajouter_Click()
 
    Sheets("Checklist").Copy After:=Sheets(Sheets.Count) 'copie la checklist vierge remplie dans le userform et la colle à la dernière feuille du classeur
    ActiveSheet.Name = PN.Value
    Sheets("TBR").[B1].Value = ActiveSheet.Name
    Worksheets("Checklist").Range("C2").ClearContents
    Worksheets("Checklist").Range("C3").ClearContents
    Worksheets("Checklist").Range("B3").ClearContents
    Worksheets("Checklist").Range("E2").ClearContents
    Moment.Value = ""
    Choix_Change
    Choix.Value = ""
 
End Sub

Code:

1
2
3
4
5
 
Private Sub Quitter_Click()
    Création.Hide 'quitte le userform
    Sheets("Checklist").Visible = False
End Sub

Code:

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
    Choix_Change
    Choix.Value = ""
    PN.Value = ""
    Designation.Value = ""
    Nom.Value = ""
    Moment.Value = ""
End Sub

Une bonne journée à vous :)

histoire de..., 1ère procédure

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Ajouter_Click()
 
With Sheets("Checklist")
  .Copy After:=Sheets(Sheets.Count) 'copie la checklist vierge remplie dans le userform et la colle à la dernière feuille du classeur
  ActiveSheet.Name = PN.Value
  Sheets("TBR").[B1].Value = ActiveSheet.Name
  Union(.Range("B3"), .Range("C2:C3"), .Range("E2")).ClearContents
  Moment.Value = ""
  Choix_Change
  Choix.Value = ""
End With
End Sub