Problème Code Macro

Bonjour à tous,

Le code ci-dessous pose problème.

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 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

Bonjour,

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

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.

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

Citation:

---

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.

Voilà

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

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

---

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.

Merci mais impossible de résoudre mon problème sans fichier.
Bonne journée à vous

Bonjour,

Dans

Code:

---

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 ?

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

Citation:

---

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)

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

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

Code:

---

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   ...

---

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

tout simplement

Code:

---

1 2 3

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

---

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

Citation:

---

Peut-on envoyer des MP sur ce forum avec l'autorisation de la personne car impossible sans fichier.

---

Jamais de question technique par MP, tu peux envoyer une copie de ton fichier sur le forum en Zip, si tu veux en mettant des données bidons

Voilà et encore merci pour ton dévouement
Bien cordialement

Tu ne peux pas écrire ça :

Code:

---

An = Val(Split(.Name, " ")(1))

---

puisque l'index maxi est 0 :

Code:

---

MsgBox "Index maximum : " & UBound(Split(.Name, " "))

---

Le nom de ta feuille ne se prête pas à cette manipulation.

oui Daniel (bonjour) on a déjà vu le problème, voici une proposition mais il reste 2 problèmes pour

Code:

---

1 2	.Shapes("SéancesPlus").Delete .Tab.ColorIndex = Couleur((An - 2000) Mod 12)

---

ça y est, le "é" devait etre "e"

Code:

---

.Shapes("SeancesPlus").Delete

---

fichier corrigé avec cette macro nettoyée

Félicitations à vous deux.
Juste un petit problème ça accroche à la ligne ci-dessous

Code:

---

.Tab.ColorIndex = Couleur((An - 2000) Mod 12)

---

Si je la met en commentaires plus de débogage mais la couleur est la même pour chaque onglet.
Encore une question: Comment fait-on pour que le bouton Nouvelle Série suive la nouvelle feuille?
Un grand merci à vous 2
Un dernier petit effort!!!!
Bien cordialement

J'ai légèrement modifié mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit   Sub NouvellesSeances() Dim NomFeuille As String Dim An As Integer, sh As Shape Dim Couleur   Couleur = Array(3, 5, 43, 6, 7, 33, 29, 27, 38, 46, 26, 6) An = Application.InputBox("Numéro de la nouvelle Série", Type:=1) If An = 0 Then MsgBox "Entrez un Nombre": Exit Sub With ActiveSheet .Unprotect NomFeuille = "Série " & An .Copy after:=Sheets(Sheets.Count) End With With ActiveSheet .Name = "Serie " & An .Shapes("SeancesPlus").Delete ' .Tab.ColorIndex = Couleur((An - 2000) Mod 12) .Protect End With End Sub

---

Citation:

---

...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:

---

.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:

---

1 2 3 4

..... .Tab.ColorIndex = Couleur(Sheets.Count)   .....

---

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:

---

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

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

Oui tout le reste fonctionne bien.
Toutes mes excuses c'est dans "l'euphorie" de voir que tout fonctionne.
Prend ton temps et surtout un grand merci.
Nous sommes des éternels apprentis"!!!
Bonne fin de soirée
Bien cordialement

regardes l fichier que je t'envoie et essayes de trouver ce qui as changé, quant à ton dernier problème, je n'ai pas eu de bug en essayant

Ah! oui tu l'as mis dans le ThisWorbook
Je m'excuse vraiment de t'avoir fait passer le jour de l'Ascension devant le clavier!!!
Tout fonctionne parfaitement.
Bonne fin de soirée
Cordialement à toi.

Bonjour,

Citation:

---

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 :lol::P8-)

Bonne journée

Bienvenue au club alors!

Je te remercie encore ainsi que Daniel.C

Bonnes vacances en attendant.
Bien cordialement