Discussion :

[NadStin]

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.

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 :

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

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.

[Fab_de_chez_PERFORM]

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

[NadStin]

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.

[NadStin]

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

[Fab_de_chez_PERFORM]

Re
content que le travail plaise

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

Code :

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

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 ?

[NadStin]

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