Discussion :

[Un Internaute]

Bonjour,
Je viens une nouvelle fois vers vous.
Petit souci. Lorsque j'ajoute une feuille par le bouton (voir fichier joint) la nouvelle feuille s'ajoute avec un espace => Exemple Année 2015 et non Année2015.
Un spécialiste aurait-il une réponse?
Merci à tous et bonne journée.
AL

[Invité]

Bonjour

Il serait plus judicieux de mette le code qu'une pièce jointe.

Un code sur le forum ne se perd pas, une pièce jointe si.
Pensez à ceux qui ne peuvent ouvrir les pièces jointes (proxi, sécurité,....)

Philippe

[Un Internaute]

Bonjour,
Voici le 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
Option Explicit
 
Sub NouvelleAnnee()
Dim NomFeuille As String
Dim An As Integer
Dim Couleur
 
  Couleur = Array(3, 4, 5, 6, 7, 8, 9, 10, 17, 40, 49, 42)
  With ActiveSheet
    An = Val(Right(.Name, 4))
    If An = 0 Then
      MsgBox "Nom de la feuille non conforme"
      Exit Sub
    End If
    .Unprotect
    NomFeuille = "Année " & An + 1
 
    .Copy after:=Sheets(Sheets.Count)
    .Shapes("AnneePlus").Delete
    .Protect
  End With
  With ActiveSheet
    .Name = NomFeuille
    .Tab.ColorIndex = Couleur((An - 2000) Mod 12)
  End With
End Sub

Bonne journée et merci
AL

[vanhoa]

Bonjour,

dans ton code il y a un espace apres annee:

Code :

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

NomFeuille = "Année " & An + 1

vanhoa

[Un Internaute]

Ah! quel C.N!!!!
J'y suis resté un moment!!!
Un grand merci
Bonne journée à toi vanhoa