Sur un Userform je disposer une dizaine de CheckBox (case=20
=E0 cocher) et un bouton, "aper=E7u avant impression".
Sur le bouton avant impression j'ai crer le code suivant :
Private Sub Apercu_click()
=20
Dim S=E9lectionner As String
=20
If Opt_Age_1 =3D True Then
S=E9lectionner =3D "GEST 1"
End If
=20
If Opt_Age_2=3D True Then
S=E9lectionner =3D ("GEST 2" & """" & ", " & """" &=20
S=E9lectionner)
End If
=20
If Opt_Responsabilit=E9 =3D True Then
S=E9lectionner =3D ("RESP" & """" & ", " & """" &=20
S=E9lectionner)
End If
=20
(...)
=20
S=E9lectionner =3D "" & S=E9lectionner & ""
=20
Sheets(Array(S=E9lectionner)).Select
mais ensuite je bloque pour la methode ARRAY, celle-ci ne=20
fonctionne pas. Comment faire ? A-t-on une autre=20
possiblit=E9 de faire appara=EEtre =E0 une seul fois les=20
graphiques d=E9sir=E9 ?
=20
Merci.....
=20
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
michdenis
Bonjour Neicna60,
Essaie ceci , pas testé...
'---------------------- Private Sub Apercu_click()
Dim Arr(), Feuil(), A As Integer Arr = Array("Opt_Age_1", "Opt_Age_2", "Opt_Responsabilité")
For Each elt In Arr Select Case userform1.Controls(elt).Value Case True Select Case userform1.Controls(elt).Name Case Is = "Opt_Age_1" Worksheets("GEST 1").Select False Case Is = "Opt_Age_2" Worksheets("GEST 2").Select False Case Is = "Opt_Responsabilité" Worksheets("Opt_Responsabilité").Select False End Select End Select Next
'la suite ...de la macro With ActiveWindow.SelectedSheets .PrintPreview End With
End Sub '----------------------
Salutations!
a écrit dans le message de news:1390101c3f7b5$b6e184c0$ Salut à tous.
Sur un Userform je disposer une dizaine de CheckBox (case à cocher) et un bouton, "aperçu avant impression".
Sur le bouton avant impression j'ai crer le code suivant :
Private Sub Apercu_click()
Dim Sélectionner As String
If Opt_Age_1 = True Then Sélectionner = "GEST 1" End If
If Opt_Age_2= True Then Sélectionner = ("GEST 2" & """" & ", " & """" & Sélectionner) End If
If Opt_Responsabilité = True Then Sélectionner = ("RESP" & """" & ", " & """" & Sélectionner) End If
(...)
Sélectionner = "" & Sélectionner & ""
Sheets(Array(Sélectionner)).Select
mais ensuite je bloque pour la methode ARRAY, celle-ci ne fonctionne pas. Comment faire ? A-t-on une autre possiblité de faire apparaître à une seul fois les graphiques désiré ?
Merci.....
Bonjour Neicna60,
Essaie ceci , pas testé...
'----------------------
Private Sub Apercu_click()
Dim Arr(), Feuil(), A As Integer
Arr = Array("Opt_Age_1", "Opt_Age_2", "Opt_Responsabilité")
For Each elt In Arr
Select Case userform1.Controls(elt).Value
Case True
Select Case userform1.Controls(elt).Name
Case Is = "Opt_Age_1"
Worksheets("GEST 1").Select False
Case Is = "Opt_Age_2"
Worksheets("GEST 2").Select False
Case Is = "Opt_Responsabilité"
Worksheets("Opt_Responsabilité").Select False
End Select
End Select
Next
'la suite ...de la macro
With ActiveWindow.SelectedSheets
.PrintPreview
End With
End Sub
'----------------------
Salutations!
<Neicna60@hotmail> a écrit dans le message de news:1390101c3f7b5$b6e184c0$a001280a@phx.gbl...
Salut à tous.
Sur un Userform je disposer une dizaine de CheckBox (case
à cocher) et un bouton, "aperçu avant impression".
Sur le bouton avant impression j'ai crer le code suivant :
Private Sub Apercu_click()
Dim Sélectionner As String
If Opt_Age_1 = True Then
Sélectionner = "GEST 1"
End If
If Opt_Age_2= True Then
Sélectionner = ("GEST 2" & """" & ", " & """" &
Sélectionner)
End If
If Opt_Responsabilité = True Then
Sélectionner = ("RESP" & """" & ", " & """" &
Sélectionner)
End If
(...)
Sélectionner = "" & Sélectionner & ""
Sheets(Array(Sélectionner)).Select
mais ensuite je bloque pour la methode ARRAY, celle-ci ne
fonctionne pas. Comment faire ? A-t-on une autre
possiblité de faire apparaître à une seul fois les
graphiques désiré ?
'---------------------- Private Sub Apercu_click()
Dim Arr(), Feuil(), A As Integer Arr = Array("Opt_Age_1", "Opt_Age_2", "Opt_Responsabilité")
For Each elt In Arr Select Case userform1.Controls(elt).Value Case True Select Case userform1.Controls(elt).Name Case Is = "Opt_Age_1" Worksheets("GEST 1").Select False Case Is = "Opt_Age_2" Worksheets("GEST 2").Select False Case Is = "Opt_Responsabilité" Worksheets("Opt_Responsabilité").Select False End Select End Select Next
'la suite ...de la macro With ActiveWindow.SelectedSheets .PrintPreview End With
End Sub '----------------------
Salutations!
a écrit dans le message de news:1390101c3f7b5$b6e184c0$ Salut à tous.
Sur un Userform je disposer une dizaine de CheckBox (case à cocher) et un bouton, "aperçu avant impression".
Sur le bouton avant impression j'ai crer le code suivant :
Private Sub Apercu_click()
Dim Sélectionner As String
If Opt_Age_1 = True Then Sélectionner = "GEST 1" End If
If Opt_Age_2= True Then Sélectionner = ("GEST 2" & """" & ", " & """" & Sélectionner) End If
If Opt_Responsabilité = True Then Sélectionner = ("RESP" & """" & ", " & """" & Sélectionner) End If
(...)
Sélectionner = "" & Sélectionner & ""
Sheets(Array(Sélectionner)).Select
mais ensuite je bloque pour la methode ARRAY, celle-ci ne fonctionne pas. Comment faire ? A-t-on une autre possiblité de faire apparaître à une seul fois les graphiques désiré ?
