Bonjour le forum,
Je suis confronté à un problème que je n'arrive à résoudre :
J'ai commencé à créer un UsF qui va venir m'ajouter une feuille avec des données à chaque fois que je ferai "Valider".
Cette feuille qui sera ajoutée à chaque fois aura le nom pris dans 4 Combobox :
Jour
Mois
Zone
Période
Jusque là, tout va bien !
Ce que je n'arrive pas à faire, c'est soit d'écraser la feuille, soit de la supprimer si elle a déjà le même nom.
voici le code :
Private Sub CommandButton3_Click()
Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
For Each CTRL In Me.Controls 'boucle sur touts les contrôles de l'UserForm en cours
'condition 1 : si le contrôle est une Combobox ou une TextBox
If TypeOf CTRL Is MSForms.ComboBox Or TypeOf CTRL Is MSForms.TextBox Then
If CTRL.Value = "" Then 'condition 2 : si le contrôle est vide
MsgBox "Champ non renseigné !", vbExclamation
CTRL.SetFocus 'place le curseur dans le controle
Exit Sub 'sort de la procédure
End If 'fin de la condition 2
End If 'fin de la condition 1
Next CTRL 'prochain contrôle de la boucle
If Me.ComboBox1 = "" Then Exit Sub
If Me.ComboBox2 = "" Then Exit Sub
If Me.ComboBox4 = "" Then Exit Sub
If Me.ComboBox5 = "" Then Exit Sub
On Error Resume Next
Sheets(Me.ComboBox1.Text & _
Me.ComboBox2.Text & _
Me.ComboBox4.Text & _
Me.ComboBox5.Text).Visible = True
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.name = _
Me.ComboBox1 & " " & _
Me.ComboBox2 & " " & _
Me.ComboBox4 & " " & _
Me.ComboBox5
End Sub
J'espère que vous n'aurez pas besoin de mon fichier (contenant des données sensibles).
Si jamais, il va me falloir le modifier pour le poster ici
Je vous remercie, d'avance, de vous pencher sur mon sujet