indice de sélection erronée

Bonjour,
Eh, elle est où la macro ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Freedo" <Freedo@discussions.microsoft.com> a écrit dans le message de news:
22F7C41E-38CE-4A66-B2D2-292E0B178646@microsoft.com...

Bonjour à Totes et à Tous,
dans un projet contenant plusieurs feuilles dont 15 feuilles nommées de 1
à
15.
la macro ci dessous pour l'impression des feuilles sur base de check-box
cochées dans les cellules c81àc95.
Une erreur se produit avec la mention: "L'indice n'appartent pas à la
sélection".
j'ai déjà changé le C en Cx ou Koch par exemple, mais rien n'y fait !
à Votre avis ?
merci de suivre,
et dans l'attente je profite de ce message pour vous souhaiter à Toutes et
à
Tous de joyeuses fêtes de fin d'année et que l'année qui se termine ait pu
concrétiser vos voeux les plus chers et puissent-ils se répéter l'année
prochaine avec encore plus de succès.
Freedo

Pouvons nous voir le code?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Freedo" <Freedo@discussions.microsoft.com> wrote in message
news:22F7C41E-38CE-4A66-B2D2-292E0B178646@microsoft.com...

Bonjour à Totes et à Tous,
dans un projet contenant plusieurs feuilles dont 15 feuilles nommées de 1
à

15.
la macro ci dessous pour l'impression des feuilles sur base de check-box
cochées dans les cellules c81àc95.
Une erreur se produit avec la mention: "L'indice n'appartent pas à la
sélection".
j'ai déjà changé le C en Cx ou Koch par exemple, mais rien n'y fait !
à Votre avis ?
merci de suivre,
et dans l'attente je profite de ce message pour vous souhaiter à Toutes et
à

Tous de joyeuses fêtes de fin d'année et que l'année qui se termine ait pu
concrétiser vos voeux les plus chers et puissent-ils se répéter l'année
prochaine avec encore plus de succès.
Freedo

Re-bonjour à Toutes et à Tous,
Je n'arrive pas à me placer dans le fil du premier message que j'ai
posté pour cette question et en réponse à Pounet et Bob , voici la
macro manquante;
'
Private Sub CommandButton2_Click()
'Sub Imprimer()
'Impression d'une ou plusieurs feuilles suivant des cases à cocher
actifs
'Ceci est pour les CheckBox de la barre Formulaires:
Dim koch As CheckBox
Dim i As Single
Dim nb_pages As Integer, p As Integer
'Application.ScreenUpdating = False
sheets(Array("Page de Garde", "Sommaire", "Signalétique",
"Ouverture", "Check-List")).Select
'sheets("Check-List").Activate
i = 0
For Each koch In Worksheets("Check-list").CheckBoxes ‘ ICI
ERREUR
If koch.Caption <> " " Then
i = i + 1
If i < sheets.Count And koch.Value = 1 Then
sheets(koch.Caption).Select (False)
End If
End If
Next koch
nb_pages = ((VPageBreaks.Count + 1) * (HPageBreaks.Count + 1))
For p = nb_pages To 1 Step -1
ActiveWindow.SelectedSheets.PrintOut from:=p, To:=p
Next p
'Application.ScreenUpdating = True
sheets("Check-List").Select
Range("B81").Select
End Sub
<
<Bonjour à Toutes et à Tous,
<dans un projet contenant plusieurs feuilles dont 15 feuilles nommées
<de 1 à 15.
<la macro ci dessous pour l'impression des feuilles sur base de
check-box
<cochées dans les cellules c81àc95.
<Une erreur se produit avec la mention: "L'indice n'appartent pas à la
<sélection".
<j'ai déjà changé le C en Cx ou Koch par exemple, mais rien n'y fait !
<à Votre avis ?
<merci de suivre,
<et dans l'attente je profite de ce message pour vous souhaiter à
Toutes et à
<Tous de joyeuses fêtes de fin d'année et que l'année qui se termine
ait pu
<concrétiser vos voeux les plus chers et puissent-ils se répéter
l'année
<prochaine avec encore plus de succès.
<Freedo




Développer toutRéduire tout

"Pounet95" wrote:

Bonjour,
Eh, elle est où la macro ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Freedo" <Freedo@discussions.microsoft.com> a écrit dans le message de news:
22F7C41E-38CE-4A66-B2D2-292E0B178646@microsoft.com...

Bonjour à Totes et à Tous,
dans un projet contenant plusieurs feuilles dont 15 feuilles nommées de 1
à
15.
la macro ci dessous pour l'impression des feuilles sur base de check-box
cochées dans les cellules c81àc95.
Une erreur se produit avec la mention: "L'indice n'appartent pas à la
sélection".
j'ai déjà changé le C en Cx ou Koch par exemple, mais rien n'y fait !
à Votre avis ?
merci de suivre,
et dans l'attente je profite de ce message pour vous souhaiter à Toutes et
à
Tous de joyeuses fêtes de fin d'année et que l'année qui se termine ait pu
concrétiser vos voeux les plus chers et puissent-ils se répéter l'année
prochaine avec encore plus de succès.
Freedo

Re-bonjour à Toutes et à Tous,
Je n'arrive pas à me placer dans le fil du premier message que j'ai
posté pour cette question et en réponse à Pounet et Bob , voici la
macro manquante;
'
Private Sub CommandButton2_Click()
'Sub Imprimer()
'Impression d'une ou plusieurs feuilles suivant des cases à cocher
actifs
'Ceci est pour les CheckBox de la barre Formulaires:
Dim koch As CheckBox
Dim i As Single
Dim nb_pages As Integer, p As Integer
'Application.ScreenUpdating = False
sheets(Array("Page de Garde", "Sommaire", "Signalétique",
"Ouverture", "Check-List")).Select
'sheets("Check-List").Activate
i = 0
For Each koch In Worksheets("Check-list").CheckBoxes ‘ ICI
ERREUR
If koch.Caption <> " " Then
i = i + 1
If i < sheets.Count And koch.Value = 1 Then
sheets(koch.Caption).Select (False)
End If
End If
Next koch
nb_pages = ((VPageBreaks.Count + 1) * (HPageBreaks.Count + 1))
For p = nb_pages To 1 Step -1
ActiveWindow.SelectedSheets.PrintOut from:=p, To:=p
Next p
'Application.ScreenUpdating = True
sheets("Check-List").Select
Range("B81").Select
End Sub
<
<Bonjour à Toutes et à Tous,
<dans un projet contenant 23 feuilles dont 15 feuilles nommées
<de 1 à 15.
<la macro ci dessous pour l'impression des feuilles sur base de
check-box
<cochées dans les cellules c81àc95.
<Une erreur se produit avec la mention: "L'indice n'appartent pas à la
<sélection".
<j'ai déjà changé le C en Cx ou Koch par exemple, mais rien n'y fait !
<à Votre avis ?
<merci de suivre,
<et dans l'attente je profite de ce message pour vous souhaiter à
Toutes et à
<Tous de joyeuses fêtes de fin d'année et que l'année qui se termine
ait pu
<concrétiser vos voeux les plus chers et puissent-ils se répéter
l'année
<prochaine avec encore plus de succès.
<Freedo

Bonjour,
Eh, elle est où la macro ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Freedo" <Freedo@discussions.microsoft.com> a écrit dans le message de news:
22F7C41E-38CE-4A66-B2D2-292E0B178646@microsoft.com...

Bonjour à Totes et à Tous,
dans un projet contenant plusieurs feuilles dont 15 feuilles nommées de 1
à
15.
la macro ci dessous pour l'impression des feuilles sur base de check-box
cochées dans les cellules c81àc95.
Une erreur se produit avec la mention: "L'indice n'appartent pas à la
sélection".
j'ai déjà changé le C en Cx ou Koch par exemple, mais rien n'y fait !
à Votre avis ?
merci de suivre,
et dans l'attente je profite de ce message pour vous souhaiter à Toutes et
à
Tous de joyeuses fêtes de fin d'année et que l'année qui se termine ait pu
concrétiser vos voeux les plus chers et puissent-ils se répéter l'année
prochaine avec encore plus de succès.
Freedo

Re-bonjour à Toutes et à Tous,
Je n'arrive pas à me placer dans le fil du premier message que j'ai
posté pour cette question et en réponse à Pounet et Bob , voici la
macro manquante;
'
Private Sub CommandButton2_Click()
'Sub Imprimer()
'Impression d'une ou plusieurs feuilles suivant des cases à cocher
actifs
'Ceci est pour les CheckBox de la barre Formulaires:
Dim koch As CheckBox
Dim i As Single
Dim nb_pages As Integer, p As Integer
'Application.ScreenUpdating = False
sheets(Array("Page de Garde", "Sommaire", "Signalétique",
"Ouverture", "Check-List")).Select
'sheets("Check-List").Activate
i = 0
For Each koch In Worksheets("Check-list").CheckBoxes ‘ ICI
ERREUR
If koch.Caption <> " " Then
i = i + 1
If i < sheets.Count And koch.Value = 1 Then
sheets(koch.Caption).Select (False)
End If
End If
Next koch
nb_pages = ((VPageBreaks.Count + 1) * (HPageBreaks.Count + 1))
For p = nb_pages To 1 Step -1
ActiveWindow.SelectedSheets.PrintOut from:=p, To:=p
Next p
'Application.ScreenUpdating = True
sheets("Check-List").Select
Range("B81").Select
End Sub
<
<Bonjour à Toutes et à Tous,
<dans un projet contenant 23 feuilles dont 15 feuilles nommées
<de 1 à 15.
<la macro ci dessous pour l'impression des feuilles sur base de
check-box
<cochées dans les cellules c81àc95.
<Une erreur se produit avec la mention: "L'indice n'appartent pas à la
<sélection".
<j'ai déjà changé le C en Cx ou Koch par exemple, mais rien n'y fait !
<à Votre avis ?
<merci de suivre,
<et dans l'attente je profite de ce message pour vous souhaiter à
Toutes et à
<Tous de joyeuses fêtes de fin d'année et que l'année qui se termine
ait pu
<concrétiser vos voeux les plus chers et puissent-ils se répéter
l'année
<prochaine avec encore plus de succès.
<Freedo

Pouvons nous voir le code?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Freedo" <Freedo@discussions.microsoft.com> wrote in message
news:22F7C41E-38CE-4A66-B2D2-292E0B178646@microsoft.com...

Bonjour à Totes et à Tous,
dans un projet contenant plusieurs feuilles dont 15 feuilles nommées de 1
à

15.
la macro ci dessous pour l'impression des feuilles sur base de check-box
cochées dans les cellules c81àc95.
Une erreur se produit avec la mention: "L'indice n'appartent pas à la
sélection".
j'ai déjà changé le C en Cx ou Koch par exemple, mais rien n'y fait !
à Votre avis ?
merci de suivre,
et dans l'attente je profite de ce message pour vous souhaiter à Toutes et
à

Tous de joyeuses fêtes de fin d'année et que l'année qui se termine ait pu
concrétiser vos voeux les plus chers et puissent-ils se répéter l'année
prochaine avec encore plus de succès.
Freedo