Discussion :

[aurelu]

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 :

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

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 :

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

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

[thebenoit59]

Bonjour Aurelu.

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

Code :

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

Sheets("Checklist").Visible = False

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

[Thautheme]

Bonjour le fil, bonjour le forum,

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

Code :

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

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

[aurelu]

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 :

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

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 :

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

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

Code :

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

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

[casefayere]

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

Code :

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

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