J'ai sur une Usf 12 CheckBoxes.
Le Caption de chacune d'entre elles porte le nom d'un onglet.
Les noms de ces 12 CheckBoxes vont de CheckBox1 à CheckBox12
Je souhaite récupérer le Caption de chaque CheckBox quand leur valeur est à
True afin d'imprimer en une seule séquence tous les onglets correspondants.
J'ai écrit :
Sub PrintFeuilles()
For i = 1 To 12
If usfPrint1.CheckBox & i.Value = True Then
With Worksheets(usfPrint1.CheckBox & i.Caption)
.Visible = True
.Activate
End With
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
End Sub
et cela ne fonctionne pas.
Je m'entoure de Google et Excelabo, je sens que je tourne autour, mais ne
trouve pas LA solution.
J'ai même essayé via les Arrays, mais ne suis pas assez bon pour en
maîtriser toutes les subtilités.
Merci d'avance de me remettre sur la voie.
Michel
(le seul qui s'accroche)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RV
Bonjour, Essayer peut-être comme ceci:
Sub PrintFeuilles() For i = 1 To 12 If usfPrint1.Control("CheckBox" & i).Value = True Then With Worksheets(usfPrint1.Control("CheckBox" & i).Caption) .Visible = True .Activate End With ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub
Cordialement RV
"Péhemme" a écrit dans le message de news: 453225cf$0$25948$
Bonjour à Toutes et à Tous,
J'ai sur une Usf 12 CheckBoxes. Le Caption de chacune d'entre elles porte le nom d'un onglet. Les noms de ces 12 CheckBoxes vont de CheckBox1 à CheckBox12 Je souhaite récupérer le Caption de chaque CheckBox quand leur valeur est à True afin d'imprimer en une seule séquence tous les onglets correspondants.
Sub PrintFeuilles() For i = 1 To 12 If usfPrint1.CheckBox & i.Value = True Then With Worksheets(usfPrint1.CheckBox & i.Caption) .Visible = True .Activate End With ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub
et cela ne fonctionne pas. Je m'entoure de Google et Excelabo, je sens que je tourne autour, mais ne trouve pas LA solution. J'ai même essayé via les Arrays, mais ne suis pas assez bon pour en maîtriser toutes les subtilités.
Merci d'avance de me remettre sur la voie. Michel (le seul qui s'accroche)
Bonjour,
Essayer peut-être comme ceci:
Sub PrintFeuilles()
For i = 1 To 12
If usfPrint1.Control("CheckBox" & i).Value = True Then
With Worksheets(usfPrint1.Control("CheckBox" & i).Caption)
.Visible = True
.Activate
End With
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
End Sub
Cordialement
RV
"Péhemme" <xx@x.x> a écrit dans le message de news:
453225cf$0$25948$ba4acef3@news.orange.fr...
Bonjour à Toutes et à Tous,
J'ai sur une Usf 12 CheckBoxes.
Le Caption de chacune d'entre elles porte le nom d'un onglet.
Les noms de ces 12 CheckBoxes vont de CheckBox1 à CheckBox12
Je souhaite récupérer le Caption de chaque CheckBox quand leur valeur est
à True afin d'imprimer en une seule séquence tous les onglets
correspondants.
Sub PrintFeuilles()
For i = 1 To 12
If usfPrint1.CheckBox & i.Value = True Then
With Worksheets(usfPrint1.CheckBox & i.Caption)
.Visible = True
.Activate
End With
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
End Sub
et cela ne fonctionne pas.
Je m'entoure de Google et Excelabo, je sens que je tourne autour, mais ne
trouve pas LA solution.
J'ai même essayé via les Arrays, mais ne suis pas assez bon pour en
maîtriser toutes les subtilités.
Merci d'avance de me remettre sur la voie.
Michel
(le seul qui s'accroche)
Sub PrintFeuilles() For i = 1 To 12 If usfPrint1.Control("CheckBox" & i).Value = True Then With Worksheets(usfPrint1.Control("CheckBox" & i).Caption) .Visible = True .Activate End With ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub
Cordialement RV
"Péhemme" a écrit dans le message de news: 453225cf$0$25948$
Bonjour à Toutes et à Tous,
J'ai sur une Usf 12 CheckBoxes. Le Caption de chacune d'entre elles porte le nom d'un onglet. Les noms de ces 12 CheckBoxes vont de CheckBox1 à CheckBox12 Je souhaite récupérer le Caption de chaque CheckBox quand leur valeur est à True afin d'imprimer en une seule séquence tous les onglets correspondants.
Sub PrintFeuilles() For i = 1 To 12 If usfPrint1.CheckBox & i.Value = True Then With Worksheets(usfPrint1.CheckBox & i.Caption) .Visible = True .Activate End With ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub
et cela ne fonctionne pas. Je m'entoure de Google et Excelabo, je sens que je tourne autour, mais ne trouve pas LA solution. J'ai même essayé via les Arrays, mais ne suis pas assez bon pour en maîtriser toutes les subtilités.
Merci d'avance de me remettre sur la voie. Michel (le seul qui s'accroche)
Youky
Complément.... Controls avec un "s" Youky "RV" a écrit dans le message de news: O%
Bonjour, Essayer peut-être comme ceci:
Sub PrintFeuilles() For i = 1 To 12 If usfPrint1.Control("CheckBox" & i).Value = True Then With Worksheets(usfPrint1.Control("CheckBox" & i).Caption) .Visible = True .Activate End With ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub
Cordialement RV
"Péhemme" a écrit dans le message de news: 453225cf$0$25948$
Bonjour à Toutes et à Tous,
J'ai sur une Usf 12 CheckBoxes. Le Caption de chacune d'entre elles porte le nom d'un onglet. Les noms de ces 12 CheckBoxes vont de CheckBox1 à CheckBox12 Je souhaite récupérer le Caption de chaque CheckBox quand leur valeur est à True afin d'imprimer en une seule séquence tous les onglets correspondants.
Sub PrintFeuilles() For i = 1 To 12 If usfPrint1.CheckBox & i.Value = True Then With Worksheets(usfPrint1.CheckBox & i.Caption) .Visible = True .Activate End With ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub
et cela ne fonctionne pas. Je m'entoure de Google et Excelabo, je sens que je tourne autour, mais ne trouve pas LA solution. J'ai même essayé via les Arrays, mais ne suis pas assez bon pour en maîtriser toutes les subtilités.
Merci d'avance de me remettre sur la voie. Michel (le seul qui s'accroche)
Complément....
Controls avec un "s"
Youky
"RV" <R@V> a écrit dans le message de news:
O%23LJAnF8GHA.608@TK2MSFTNGP03.phx.gbl...
Bonjour,
Essayer peut-être comme ceci:
Sub PrintFeuilles()
For i = 1 To 12
If usfPrint1.Control("CheckBox" & i).Value = True Then
With Worksheets(usfPrint1.Control("CheckBox" & i).Caption)
.Visible = True
.Activate
End With
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
End Sub
Cordialement
RV
"Péhemme" <xx@x.x> a écrit dans le message de news:
453225cf$0$25948$ba4acef3@news.orange.fr...
Bonjour à Toutes et à Tous,
J'ai sur une Usf 12 CheckBoxes.
Le Caption de chacune d'entre elles porte le nom d'un onglet.
Les noms de ces 12 CheckBoxes vont de CheckBox1 à CheckBox12
Je souhaite récupérer le Caption de chaque CheckBox quand leur valeur est
à True afin d'imprimer en une seule séquence tous les onglets
correspondants.
Sub PrintFeuilles()
For i = 1 To 12
If usfPrint1.CheckBox & i.Value = True Then
With Worksheets(usfPrint1.CheckBox & i.Caption)
.Visible = True
.Activate
End With
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
End Sub
et cela ne fonctionne pas.
Je m'entoure de Google et Excelabo, je sens que je tourne autour, mais ne
trouve pas LA solution.
J'ai même essayé via les Arrays, mais ne suis pas assez bon pour en
maîtriser toutes les subtilités.
Merci d'avance de me remettre sur la voie.
Michel
(le seul qui s'accroche)
Complément.... Controls avec un "s" Youky "RV" a écrit dans le message de news: O%
Bonjour, Essayer peut-être comme ceci:
Sub PrintFeuilles() For i = 1 To 12 If usfPrint1.Control("CheckBox" & i).Value = True Then With Worksheets(usfPrint1.Control("CheckBox" & i).Caption) .Visible = True .Activate End With ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub
Cordialement RV
"Péhemme" a écrit dans le message de news: 453225cf$0$25948$
Bonjour à Toutes et à Tous,
J'ai sur une Usf 12 CheckBoxes. Le Caption de chacune d'entre elles porte le nom d'un onglet. Les noms de ces 12 CheckBoxes vont de CheckBox1 à CheckBox12 Je souhaite récupérer le Caption de chaque CheckBox quand leur valeur est à True afin d'imprimer en une seule séquence tous les onglets correspondants.
Sub PrintFeuilles() For i = 1 To 12 If usfPrint1.CheckBox & i.Value = True Then With Worksheets(usfPrint1.CheckBox & i.Caption) .Visible = True .Activate End With ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub
et cela ne fonctionne pas. Je m'entoure de Google et Excelabo, je sens que je tourne autour, mais ne trouve pas LA solution. J'ai même essayé via les Arrays, mais ne suis pas assez bon pour en maîtriser toutes les subtilités.
Merci d'avance de me remettre sur la voie. Michel (le seul qui s'accroche)
Péhemme
Je m'apprêtais à répondre qu'en ajoutant un "s" au 2 "control" cela me permettait en effet de récupérer mes "caption". Youky est allé plus vite que moi. Merci mille fois à RV et une fois à Youky ;-)) Michel
"RV" a écrit dans le message de news: O%
Bonjour, Essayer peut-être comme ceci:
Sub PrintFeuilles() For i = 1 To 12 If usfPrint1.Control("CheckBox" & i).Value = True Then With Worksheets(usfPrint1.Control("CheckBox" & i).Caption) .Visible = True .Activate End With ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub
Cordialement RV
"Péhemme" a écrit dans le message de news: 453225cf$0$25948$
Bonjour à Toutes et à Tous,
J'ai sur une Usf 12 CheckBoxes. Le Caption de chacune d'entre elles porte le nom d'un onglet. Les noms de ces 12 CheckBoxes vont de CheckBox1 à CheckBox12 Je souhaite récupérer le Caption de chaque CheckBox quand leur valeur est à True afin d'imprimer en une seule séquence tous les onglets correspondants.
Sub PrintFeuilles() For i = 1 To 12 If usfPrint1.CheckBox & i.Value = True Then With Worksheets(usfPrint1.CheckBox & i.Caption) .Visible = True .Activate End With ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub
et cela ne fonctionne pas. Je m'entoure de Google et Excelabo, je sens que je tourne autour, mais ne trouve pas LA solution. J'ai même essayé via les Arrays, mais ne suis pas assez bon pour en maîtriser toutes les subtilités.
Merci d'avance de me remettre sur la voie. Michel (le seul qui s'accroche)
Je m'apprêtais à répondre qu'en ajoutant un "s" au 2 "control" cela me
permettait en effet de récupérer mes "caption".
Youky est allé plus vite que moi.
Merci mille fois à RV et une fois à Youky
;-))
Michel
"RV" <R@V> a écrit dans le message de news:
O%23LJAnF8GHA.608@TK2MSFTNGP03.phx.gbl...
Bonjour,
Essayer peut-être comme ceci:
Sub PrintFeuilles()
For i = 1 To 12
If usfPrint1.Control("CheckBox" & i).Value = True Then
With Worksheets(usfPrint1.Control("CheckBox" & i).Caption)
.Visible = True
.Activate
End With
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
End Sub
Cordialement
RV
"Péhemme" <xx@x.x> a écrit dans le message de news:
453225cf$0$25948$ba4acef3@news.orange.fr...
Bonjour à Toutes et à Tous,
J'ai sur une Usf 12 CheckBoxes.
Le Caption de chacune d'entre elles porte le nom d'un onglet.
Les noms de ces 12 CheckBoxes vont de CheckBox1 à CheckBox12
Je souhaite récupérer le Caption de chaque CheckBox quand leur valeur est
à True afin d'imprimer en une seule séquence tous les onglets
correspondants.
Sub PrintFeuilles()
For i = 1 To 12
If usfPrint1.CheckBox & i.Value = True Then
With Worksheets(usfPrint1.CheckBox & i.Caption)
.Visible = True
.Activate
End With
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
End Sub
et cela ne fonctionne pas.
Je m'entoure de Google et Excelabo, je sens que je tourne autour, mais ne
trouve pas LA solution.
J'ai même essayé via les Arrays, mais ne suis pas assez bon pour en
maîtriser toutes les subtilités.
Merci d'avance de me remettre sur la voie.
Michel
(le seul qui s'accroche)
Je m'apprêtais à répondre qu'en ajoutant un "s" au 2 "control" cela me permettait en effet de récupérer mes "caption". Youky est allé plus vite que moi. Merci mille fois à RV et une fois à Youky ;-)) Michel
"RV" a écrit dans le message de news: O%
Bonjour, Essayer peut-être comme ceci:
Sub PrintFeuilles() For i = 1 To 12 If usfPrint1.Control("CheckBox" & i).Value = True Then With Worksheets(usfPrint1.Control("CheckBox" & i).Caption) .Visible = True .Activate End With ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub
Cordialement RV
"Péhemme" a écrit dans le message de news: 453225cf$0$25948$
Bonjour à Toutes et à Tous,
J'ai sur une Usf 12 CheckBoxes. Le Caption de chacune d'entre elles porte le nom d'un onglet. Les noms de ces 12 CheckBoxes vont de CheckBox1 à CheckBox12 Je souhaite récupérer le Caption de chaque CheckBox quand leur valeur est à True afin d'imprimer en une seule séquence tous les onglets correspondants.
Sub PrintFeuilles() For i = 1 To 12 If usfPrint1.CheckBox & i.Value = True Then With Worksheets(usfPrint1.CheckBox & i.Caption) .Visible = True .Activate End With ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub
et cela ne fonctionne pas. Je m'entoure de Google et Excelabo, je sens que je tourne autour, mais ne trouve pas LA solution. J'ai même essayé via les Arrays, mais ne suis pas assez bon pour en maîtriser toutes les subtilités.
Merci d'avance de me remettre sur la voie. Michel (le seul qui s'accroche)
