Problème Code Macro

Version imprimable

Voir 40 message(s) de cette discussion en une page

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

29/05/2014, 11h30
Daniel.C

Bonjour,

Si tu nous disais où se situe le problème et quels en sont les symptômes , ça aiderait.
29/05/2014, 13h11
Un Internaute

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.
29/05/2014, 13h35
Philippe Tulliez

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

29/05/2014, 14h54
Philippe Tulliez

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.
29/05/2014, 15h00
Un Internaute

Merci mais impossible de résoudre mon problème sans fichier.
Bonne journée à vous
29/05/2014, 15h06
casefayere
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 ?
29/05/2014, 15h17
Un Internaute

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
29/05/2014, 15h22
casefayere

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)
29/05/2014, 15h30
Un Internaute

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

29/05/2014, 15h46
Un Internaute

C'est mieux mais je veux mettre par exemple Nouvelles Séances
Merci
29/05/2014, 16h00
casefayere
tout simplement
Code:

1 2 3 ... .Name = "Nouvelles Seances " & An + 1 ...
29/05/2014, 18h35
Un Internaute

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
29/05/2014, 18h41
casefayere

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
29/05/2014, 18h47
Un Internaute

Voilà et encore merci pour ton dévouement
Bien cordialement
29/05/2014, 19h23
Daniel.C

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.
29/05/2014, 19h29
casefayere
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)
29/05/2014, 19h34
casefayere

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

Code:

.Shapes("SeancesPlus").Delete

fichier corrigé avec cette macro nettoyée

Voir 40 message(s) de cette discussion en une page