Code vba
Fermé
gobeaut
-
11 déc. 2011 à 22:46
f894009 Messages postés 17224 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 12 janvier 2025 - 12 déc. 2011 à 16:23
f894009 Messages postés 17224 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 12 janvier 2025 - 12 déc. 2011 à 16:23
A voir également:
- Code vba
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code activation windows 10 - Guide
- Code gta 4 ps4 - Guide
1 réponse
f894009
Messages postés
17224
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 janvier 2025
1 712
12 déc. 2011 à 16:23
12 déc. 2011 à 16:23
Bonjour,
Dim MySelect
MySelect = InputBox("Quel onglet voulez-vous imprimer?:")
If MySelect = "" Or MySelect = Null Then
MsgBox ("Entrez un numero d'onglet à imprimer!")
ElseIf CInt(MySelect) > 0 And CInt(MySelect) < 17 Then
With Worksheets(MySelect)
.PrintOut
End With
Else
MsgBox ("En dehors des limites")
End If
Ceci est un exemple de programmation pour ce que vous avez demande. Pour moi je nommerai les onglets a imprimer de 1 a 15 (onglets etiquettes). Inserez un bouton est copier le code.
Bonne suite
Dim MySelect
MySelect = InputBox("Quel onglet voulez-vous imprimer?:")
If MySelect = "" Or MySelect = Null Then
MsgBox ("Entrez un numero d'onglet à imprimer!")
ElseIf CInt(MySelect) > 0 And CInt(MySelect) < 17 Then
With Worksheets(MySelect)
.PrintOut
End With
Else
MsgBox ("En dehors des limites")
End If
Ceci est un exemple de programmation pour ce que vous avez demande. Pour moi je nommerai les onglets a imprimer de 1 a 15 (onglets etiquettes). Inserez un bouton est copier le code.
Bonne suite
