Excel VBA impression selon sélection

[explo_z]

Bonjour,

-Version Excel 2011 Mac-

J'ai créé un userform avec checkbox afin qu'une sélection de feuille à imprimer puisse être effectuée. Je bloque sur le code qui permet la multi-sélection des feuilles (de façon variable). En fait, je souhaite que la sélection soit mémoriser puis que la boîte de dialogue apparaisse (l'utilisateur conservera le choix de l'imprimante).

La procédure est la suivante : la valeur des cases cochées (true) sont sauvegardées dans la colonne x et le nom des feuilles correspondantes sont inscrites en colonne Q.

Pour l'instant j'en suis là mais cela n'a rien donné, seule la dernière feuille est sélectionnée :

Dim z As Integer
With Sheets(2)
For z = 3 To 20
If .Range("X" & z).Value = True Then Sheets(CStr(.Range("Q" & z).Value)).Select
Next z
End With
Application.Dialogs(xlDialogPrint).Show
End If

 

[Pierrot93]

Re : Excel VBA impression selon sélection

Bonjour,

essaye peut être comme suit :

Dim b As Boolean
b = True
With Sheets(2)
    For z = 3 To 20
        If .Range("X" & z).Value = True Then
            Sheets(CStr(.Range("Q" & z).Value)).Select Replace:=b
            b = False
        End If
    Next z
End With

bon après midi
@+

 

[explo_z]

Re : Excel VBA impression selon sélection

Nickel ! ça fonctionne je te remercie

Pour mon info peux tu m'expliquer la fonction replace dans le cas présent?

 

[Pierrot93]

Re : Excel VBA impression selon sélection

Re,

Si "False", ceci veut dire que la nouvelle selection ne remplace pas celle en cours mais s'ajoute à celle déjà existante....