refaire une feuille

[aperobass]

bonsoir,je suis entrain de faire un classeur avec un modèle, mais je n'arrive pas refaire la feuille "menu" le bouttonmacro pour lancer userform c'est bon mais pour le menu déroulant problème .Quelqu'un pourrait m'expliquer?
JE début en vba

 

[job75]

Re : refaire une feuille

Bonsoir aperobass,

Vous recherchez les difficultés

Elles viennent de la liste des mois dans la feuille Listes : à cause des accents, il y a des feuilles qui ne peuvent pas être trouvées simplement et il a fallu écrire un code laborieux.

Revoyez donc cette liste pour qu'elle corresponde aux noms exacts des feuilles. Pas de problème pour un espace devant le mois.

La macro est alors très simple :

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(Trim(ComboBox1)).Activate
If Err Then MsgBox "La feuille " & Trim(ComboBox1) & " n'existe pas...", 48
End Sub

EDITION : il faut aussi rendre la liste des mois dynamique.

1) Définissez (menu Insertion-Nom) le nom ListeMois par la formule :

=DECALER(Listes!$A$5;;;NBVAL(Listes!$A:$A)-2)

[Si vous effacez Listes!A3 (qui ne sert à rien), mettez -1 au lieu de -2]

2) En Mode Création, en face de la propriété ListFillRange de la ComboBox, écrivez : ListeMois

A+

 

[aperobass]

Re : refaire une feuille

salut, merci job75 de m'expliquer . Mais je suis perdu, j'ai définie (menu Insertion-Nom) le nom ListeMois et aprés je ramme...Si tu peux m'aider je te mes ce que j'ai fais.
a+

 

[job75]

Re : refaire une feuille

Bonjour aperobass, le forum,

Bon pour que la liste des mois soit toujours à jour, j'ai complété ComboBox1_Change :

Private Sub ComboBox1_Change()

On Error Resume Next
Sheets(Trim(ComboBox1)).Activate
If Err Then MsgBox "La feuille " & Trim(ComboBox1) & " n'existe pas...", 48

[COLOR="Red"]If Range(ComboBox1.ListFillRange).Count = Sheets.Count - 2 Then Exit Sub 'mettre en commentaire pour la 1ère fois[/COLOR]
Dim i As Integer
For i = 2 To Sheets.Count - 1
Sheets("Listes").Range("A3").Offset(i) = " " & Sheets(i).Name
Next

End Sub

La 1ère fois, pour refaire la liste sans se fatiguer, mettre la ligne en rouge en commentaire.

Fichier joint.

A+

 

[aperobass]

Re : refaire une feuille

bon j'ai inséré mon code. mais comment je fais pour créer mon boutton déroulant dans ma feuille"new menu"
nouveau fichier joint.
a+

 

[job75]

Re : refaire une feuille

Re,

Autant pour moi, il faut corriger la macro dans le fichier (1) :

Private Sub ComboBox1_Change()

On Error Resume Next
Sheets(Trim(ComboBox1)).Activate
If Err Then MsgBox "La feuille " & Trim(ComboBox1) & " n'existe pas...", 48

If [COLOR="Red"][ListeMois][/COLOR].Count = Sheets.Count - 2 Then Exit Sub 'mettre en commentaire pour la 1ère fois
Dim i As Integer
For i = 2 To Sheets.Count - 1
Sheets("Listes").Range("A3").Offset(i) = " " & Sheets(i).Name
Next

End Sub

Mais il vaut mieux je pense mettre la mise à jour de la liste dans ThisWorkbook, cela se fera immédiatement quand on créera une nouvelle feuille.

La macro dans le fichier (2) :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If [ListeMois].Count = Sheets.Count - 2 Then Exit Sub 'mettre en commentaire pour la 1ère fois
Dim i As Integer
For i = 2 To Sheets.Count - 1
Sheets("Listes").Range("A3").Offset(i) = " " & Sheets(i).Name
Next
End Sub

A+

 

[aperobass]

Re : refaire une feuille

oh la ,petit problème dans les fichiers ça plante excel.regard je t'es mis mon mouveaux fichier avec les mouveaux codes.
a+

 

[job75]

Re : refaire une feuille

Re,

Beaucoup de choses à adapter avec ce nouveau fichier.

1) La ComboBox1 n'etant plus dans une feuille mais dans l'UserForm Sérial, mettre dans le code de cet UserForm :

Private Sub ComboBox1_Change()
On Error Resume Next
Application.EnableEvents = False
Sheets(Trim(ComboBox1)).Activate
Application.EnableEvents = True
If Err Then MsgBox "La feuille " & Trim(ComboBox1) & " n'existe pas...", 48
End Sub

2) C'est la propriété RowSource de cette ComboBox1 qui doit maintenant être égale à listeréférence.

3) Le nom listeréférence était mal défini, ce doit être :

=DECALER(Listes!$A$5;;;NBVAL(Listes!$A:$A)-1)

4) Enfin j'ai finalement supprimé le test If... dans la macro SheetActivate de ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Integer
Sheets("Listes").Range("A5:A65536").ClearContents
For i = 2 To Sheets.Count - 1
Sheets("Listes").Range("A3").Offset(i) = " " & Sheets(i).Name
Next
End Sub

A+

 

[aperobass]

Re : refaire une feuille

merci job75 ça marche nikel.Maintenant je vais essayer de comprendre tout ça!!
a+

 

[aperobass]

Re : refaire une feuille

bonjour job75, j'ai modifier mon classeur dans le vba et j'ai un soucis avec la mise en place des données dans les cellules.Quand j'enregistre mes donnés sur ma feuille de calcul ça marche avec les onglets que j'ai déjà mais quand j'en insère ou que je l'es renomme ça marche plus "erreur".
Peut tu m'aider a résoudre ce problème?
A+

 

[job75]

Re : refaire une feuille

Bonjour aperobass,

Je ne comprends pas, je ne vois pas d'erreur.

Quand on ajoute ou renomme une feuille, elle apparaît dans la liste bien sûr, et la ComboBox la sélectionne.

Que voulez-vous de plus ??

A+

 

[job75]

Re : refaire une feuille

Re,

Bon j'ai regardé la macro du bouton "Enregistrer", j'ai compris, c'est très simple.

Lors de la création de la liste dans ThisWorkbook, on met un espace devant les noms des feuilles (comme c'était au tout début), ça peut servir pour la présentation de la liste.

Donc soit vous enlevez l'espace dans ThisWorkbook, soit dans le code du bouton vous remplacez :

nomClasseur = Me.ComboBox1 par

nomClasseur = Trim(ComboBox1) [NB : les Me. ne servent à rien]

A+

 

[aperobass]

Re : refaire une feuille

merci job75 j'ai changé nomClasseur = Trim(ComboBox1) et ça marche cool...
a+