Userform - impression d'onglets via listbox

Bonsoir à tous,

J'ai encore besoin d'aide au niveau d'une amélioration d'une macro.

J'ai voulu mettre en place un userform pour gérer les impressions. Après des recherches, j'ai pu créer un fichier répondant à mes besoins.

Cependant, confronté à des nombres de pages variables, j'ai voulu annexer dans ma listbox le nombre de page qui sera imprimé. Cependant j'ai une erreur au niveau du nom de l'onglet. Je pense qu'en rajoutant le nombre de page à la suite du nom de l'onglet, la macro ne peut plus sélectionner l'onglet en question. Je bloque donc.

en espérant avoir été clair et merci d'avance pour votre aide.:ccool:

Cordialement
yannick

Bonsoir,

Et elle se présente comment ton erreur ?

Montre nous la petite partie de code concerné entre balises...

Bonjour,

l'erreur est une "erreur d'execution 9 l'indice n'appartient pas à la selection"
Je pense que cela vient donc de ces parties du code :
Macro 1 :

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Dim Sh As Worksheet For Each Sh In Sheets If Sh.Name <> "A - C" Then ListBox1.AddItem Sh.Name & " ( " & Sh.HPageBreaks.Count + 1 & " )" End If Next Sh

---

Macro 2 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton5_Click() Dim x As Byte Dim verif As Boolean verif = False For x = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.Selected(x) = True Then verif = True Sheets(Me.ListBox1.List(x)).Activate End If Next

---

L'activation de l'onglet via la listbox1 ne s'effectue pas? Je pense que c'est à cause de mon rajout du nombre de page!

Merci
Yannick

Bonjour,

Essaie avec

Code:

---

Sheets(Trim(Split(Me.ListBox1.List(x), "(")(0))).Activate

---

Cordialement.

Bonjour,

super ça marche nickel. Merci

Cordialement