Création d'une user form

Bonjour,
Je souhaite créer une userform permettant d'afficher dans une colonne le nom des onglets 6 à 10 (numéro d'index), dans la 2ème colonne mettre le nouveau nom de l'onglet qui lui sera attribué et dans une 3ème colonne mettre une date qui sera reportés dans une cellule de la feuille qui vient d'être renommée.
Pièce jointe 593767
Voici à quoi ressemblera la userform.

Le problème vient du code, je n'y arrive plus. J'avais effectué une user form il y a un bout de temps, j'ai essayé de reprendre le code et de le modifier.
J'ai deux problèmes, dans un 1er temps, le code repris et modifié ne fonctionne pas. Je n'ai pas de message d'erreur mais rien ne se passe.
Le 2ème problème étant que je n'arrive pas à écrire le code permettant de reporter le nom de la feuille indexée en 5, puis 7 ... puis 10, donc la pour le moment j'ai mis activesheet. name et active sheet.next.name pour les 2 premières feuilles.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

Dim D   Private Sub CommandButton4_Click() If IsDate(Me.TextBox11) Then Sheets("SEM 27").Activate Range("E2").Value = CDate(Me.TextBox11) ActiveSheet.Name = TextBox6 Else Unload Me saisie_onglet.Show Callcommandbutton1_click End Sub   Private Sub CommandButton1_Click() Unload Me End Sub   Private Sub Label1_Click()   End Sub   Private Sub UserForm_Initialize() Me.TextBox1 = ActiveSheet.Name Me.TextBox2 = ActiveSheet.Next.Name     Me.TextBox11 = "../../...." D = 0 Me.TextBox11.SelStart = D Me.TextBox11.SelLength = 1   Me.TextBox12 = "../../...." D = 0 Me.TextBox12.SelStart = D Me.TextBox12.SelLength = 1   Me.TextBox13 = "../../...." D = 0 Me.TextBox13.SelStart = D Me.TextBox13.SelLength = 1   Me.TextBox14 = "../../...." D = 0 Me.TextBox14.SelStart = D Me.TextBox14.SelLength = 1   Me.TextBox15 = "../../...." D = 0 Me.TextBox15.SelStart = D Me.TextBox15.SelLength = 1       End Sub   Private Sub TextBox11_Change() D = D + 1 If D = 2 Or D = 5 Then D = D + 1 Me.TextBox1.SelStart = D Me.TextBox1.SelLength = 1 End Sub

---

Merci d'avance à ceux qui pourront m'aider.

Bonjour
j'ai regardé votre demande et ai effectué un test sur le fichier ci joint

J'ai mis 1 premiere feuille avec un bouton de lancement du userform
+ 4 feuilles inutilisées (pour arriver à index 5)
+ 5 feuilles indexees 6 à 10

Le userform récupère les noms des feuilles 6 à 10
Remplir les colonnes 2 et 3 puis appuyer sur valider

En espérant que ca puisse aider
Fabien

Bonjour Fabien,

C'est vraiment parfait. Je me rend compte que je cherchais la complication...

J'ai tout de même une demande, je voudrais que l'on ne puisse pas valider si les dates de la 3ème colonne ne sont pas au format date, ceci afin d'éviter les erreurs.
Et est-il possible de compléter automatiquement les textbox 12 à 15 en mettant + 7 jours par rapport à la textbox 11

Merci.

Par contre je viens de tester sur mon fichier, la userform s'affiche bien mais lorsque je valide... rien ne se passe...

Re
content que le travail plaise

pour être au format date et pour l'ajout de 7 jours automatiquement, vous pouvez faire ceci :

Code:

---

1 2 3 4 5 6 7 8

Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox11.Value = CDate(TextBox11)   TextBox12.Value = DateAdd("d", 7, TextBox11) TextBox13.Value = DateAdd("d", 7, TextBox12) TextBox14.Value = DateAdd("d", 7, TextBox13) TextBox15.Value = DateAdd("d", 7, TextBox14) End Sub

---

Ainsi, après avoir appuyé sur entrée sur la 1e date, le format se met en date (via Cdate) puis on ajoute 7 jours (via DateAdd) (le "d" signifie valeur en jour, le 7 le nb de jour et le 3e argument est la date de départ)

Pour la non action du bouton valider dans votre fichier, sans voir, je ne sais pas dire ...
Avez vous vérifié que les n° de textbox correspondaient dans votre UserForm ?

Bonjour Fabrice,

Je me permets de vous envoyer un fichier afin que vous constatiez que rien ne se passe aprés la validation de l'User form.

Merci pour votre aide,

Nadège

Bonjour

sur le bouton valider vous n'avez pas changé le code ;)
Vous avez laissé juste "Unload me"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton1_Click() Sheets(6).Name = TextBox6.Value Sheets(7).Name = TextBox7.Value Sheets(8).Name = TextBox8.Value Sheets(9).Name = TextBox9.Value Sheets(10).Name = TextBox10.Value   Sheets(6).Range("E2").Value = CDate(TextBox11.Value) Sheets(7).Range("E2").Value = CDate(TextBox12.Value) Sheets(8).Range("E2").Value = CDate(TextBox13.Value) Sheets(9).Range("E2").Value = CDate(TextBox14.Value) Sheets(10).Range("E2").Value = CDate(TextBox15.Value)   Unload Me   End Sub

---

Au passage j'ai mis le report de date en E2 comme dans votre fichier (au lieu de B1 dans mon exemple)

:roll::oops:

Effectivment, merci pour votre aide précieuse.

Bonne journéee