Discussion :

[yannick63430]

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.

Cordialement
yannick

[SfJ5Rpw8]

Bonsoir,

Et elle se présente comment ton erreur ?

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

[yannick63430]

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 :

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

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 :

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

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

[gFZT82]

Bonjour,

Essaie avec

Code :

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

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

Cordialement.

[yannick63430]

Bonjour,

super ça marche nickel. Merci

Cordialement