Macro pour onglet sans espace

Version imprimable

25/04/2014, 07h29
Un Internaute

Macro pour onglet sans espace

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
25/04/2014, 07h50
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

Bonjour,
Voici le 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
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

25/04/2014, 08h02
vanhoa

Bonjour,

dans ton code il y a un espace apres annee:

Code:

NomFeuille = "Année " & An + 1

vanhoa
25/04/2014, 08h20
Un Internaute

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