Problème Code Macro

**Un Internaute** · 29/05/2014, 07h56

Bonjour à tous,

Le code ci-dessous pose problème.

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 NouvellesSeances()
Dim NomFeuille As String
Dim An As Integer
Dim Couleur
 
  Couleur = Array(3, 5, 43, 6, 7, 33, 29, 27, 38, 46, 26, 6)
  With ActiveSheet
    An = Val(Split(.Name, " ")(1))
    If An = 0 Then
      MsgBox "Nom de La Feuille non Conforme"
      Exit Sub
    End If
    .Unprotect
    NomFeuille = "Seances " & An + 1
 
    .Copy after:=Sheets(Sheets.Count)
    .Shapes("SéancesPlus").Delete
    .Protect
  End With
  With ActiveSheet
    .Name = NomFeuille
    .Tab.ColorIndex = Couleur((An - 2000) Mod 12)
  End With
End Sub

Avant je travaillais avec des Années et maintenant avec des Séances et la macro ne reconnait plus ses "petits"!!!

Quelqu'un pour résoudre mon problème?
Merci d'avance à vous

**Daniel.C** · 29/05/2014, 10h30

Bonjour,

Si tu nous disais où se situe le problème et quels en sont les symptômes , ça aiderait.

**Un Internaute** · 29/05/2014, 12h11

Bonjour Daniel.C,
Je sais qu'il est préférable de joindre un fichier mais on m'a dit de ne pas le faire et plusieurs fois!
Tu veux mon fichier?
Merci d'avance.

**Philippe Tulliez** · 29/05/2014, 12h35

Bonjour,
Je ne pense pas que Daniel t'ai demandé de joindre un fichier mais tout simplement de dire

où se situe le problème et quels en sont les symptômes

.
Par exemple à quelle ligne de ton code as-tu une erreur, et quelle numéro à cette erreur ou bien qu'as-tu comme résultat non souhaité dans une variable par exemple.

**Un Internaute** · 29/05/2014, 13h12

Voilà

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
Option Explicit
 
Sub NouvellesSeances()
Dim NomFeuille As String
Dim An As Integer
Dim Couleur
 
  Couleur = Array(3, 5, 43, 6, 7, 33, 29, 27, 38, 46, 26, 6)
  With ActiveSheet
   An = Val(Split(.Name, " ")(1))         'cette ligne bug en jaune dans macro débogage
      MsgBox "Nom de La Feuille non Conforme"
      Exit Sub
    End If
    .Unprotect
    NomFeuille = "Seances " & An + 1
 
    .Copy after:=Sheets(Sheets.Count)
    .Shapes("SéancesPlus").Delete
    .Protect
  End With
  With ActiveSheet
    .Name = NomFeuille
    .Tab.ColorIndex = Couleur((An - 2000) Mod 12)
  End With
End Sub

**Philippe Tulliez** · 29/05/2014, 13h54

Bonjour,
Tu viens de remettre le code que tu as déjà publié (sans le placer entre les balises prévues à cet effet) et toujours sans expliquer quel est le problème que tu rencontres.
Erratum.
Je viens de lire que tu as mis un commentaire mais il faut avouer que tu ne facilites pas la lecture des personnes qui pourraient t'aider.

**casefayere** · 29/05/2014, 20h09

tu es en train de parler d'un autre sujet, as-tu résolu les autres problèmes ? si oui dis-le, après je regarderai ton nouveau soucis si j'ai le temps car j'ai de la visite

**casefayere** · 29/05/2014, 19h45

...Comment fait-on pour que le bouton Nouvelle Série suive la nouvelle feuille?...

je ne comprends, c'est toi qui décide de le supprimer avec

Code :

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

.Shapes("SeancesPlus").Delete

sinon enlèves cette ligne ou parles-tu d'un autre bouton ?

sinon pour l'autre problème je te propose

Code :

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

1
2
3
4
.....
    .Tab.ColorIndex = Couleur(Sheets.Count)
 
.....

**Un Internaute** · 29/05/2014, 20h01

Lorsqu'on change quelque chose il y a de la "casse" dans les macros!
Presque tout fonctionne mais j'ai oublié de dire.
Lorsque je supprime le 1 toute la ligne doit s'effacer mais là un hic dans Série 2 (nouvelle feuille) et dans la macro ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Range("B9:B" & Rows.Count), Target) Is Nothing Then
    Range("A" & Target.Row) = IIf(Target = "", "", Date)
    If Target = "" Then
      Target.Interior.ColorIndex = Target.Offset(0, -1).Interior.ColorIndex
      Target.Offset(0, 1).Resize(1, 4).ClearContents
    End If
  End If
End Sub

Ligne : Target.Interior.ColorIndex = Target.Offset(0, -1).Interior.ColorIndex
Débogage

**casefayere** · 29/05/2014, 14h06

Bonjour,

Dans

Code :

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

1
2
With ActiveSheet
   An = Val(Split(.Name, " ")(1))

le nom de ton "ActiveSheet" est bien sous la forme "nomdefeuille 2012", donc séparé par un espace et un nombre derrière, par exemple ?

**Un Internaute** · 29/05/2014, 14h17

Bonjour casefayere,
Tu viens de me faire toucher du doigt le bug.
En effet mon nom de feuille est Séances et non plus janvier 2014 par exemple.
Tu peux s'il te plaît me dire ce qu'il faut mettre?
Merci d'avance super bien vu.
Amicalement

**casefayere** · 30/05/2014, 09h46

Bonjour,

Je m'excuse vraiment de t'avoir fait passer le jour de l'Ascension devant le clavier!!!

Pas de problème, je vais très bientôt rejoindre ton clan (Retraité), en vacances en attendant

Bonne journée

**Un Internaute** · 30/05/2014, 11h51

Bienvenue au club alors!

Je te remercie encore ainsi que Daniel.C

Bonnes vacances en attendant.
Bien cordialement

**casefayere** · 29/05/2014, 14h22

Tu peux s'il te plaît me dire ce qu'il faut mettre?

Si ta feuille se nomme "Séances", tu n'obtiendras jamais un integer avec ton code, de plus le "Split(...)(1) n'existe pas, alors si tu expliques bien ton but (je pense qu'à ce stade, personne ne t'en voudra de joindre ton fichier)

**Un Internaute** · 29/05/2014, 14h30

Mon but est d'ajouter la même feuille avec ses boutons. Au lieu de faire Clic droit (déplacer ou copier le plus simple et plus facile), mais c'est tout simplement pour voir si c'est faisable car j'ai fait ça pour un classeur pour l'année 2014 et j'ajoute ainsi tous les mois ou Année que je veux.
Merci d'avance.

Ps: Tu a compris le problème

**casefayere** · 29/05/2014, 14h37

Si j'ai compris, ceci suffirait peut-être

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub NouvellesSeances()
Dim NomFeuille As String
Dim An As Integer
Dim Couleur
  An = InputBox("choisir l'année")
  Couleur = Array(3, 5, 43, 6, 7, 33, 29, 27, 38, 46, 26, 6)
  With ActiveSheet
    .Unprotect
    .Copy after:=Sheets(Sheets.Count)
    .Name = "Seances " & An + 1
 
...

**Un Internaute** · 29/05/2014, 14h46

C'est mieux mais je veux mettre par exemple Nouvelles Séances
Merci

**casefayere** · 29/05/2014, 15h00

tout simplement

Code :

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

1
2
3
...
.Name = "Nouvelles Seances " & An + 1
...

**Un Internaute** · 29/05/2014, 17h35

Je m'excuse de répondre un peu tard mais hélas ça ne fonctionne pas.
Peut-on envoyer des MP sur ce forum avec l'autorisation de la personne car impossible sans fichier.
Merci de ta réponse
Bien cordialement