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.