Bonjour!
Je remerci Denis.P pour son aide lors de mon précedent message!!
Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi
dans un userform!
Private Sub CommandButton1_Click()
If entreprise = False Then
ActiveSheet.Columns("a").EntireColumn.Hidden = True
End If
If responsable = False Then
ActiveSheet.Columns("b").EntireColumn.Hidden = True
End If
(ainsi de suite pour les différents champs jusqu'a "K")
ActiveSheet.Columns("a:k").PrintPreview
ActiveSheet.Columns("a:k").EntireColumn.Hidden = False
End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à la
mise en page!
Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite
imprimer?
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
PMO
Bonjour,
Si vous avez une version Excel plus récente qu'Excel97 voici une solution:
Dans un module général copiez le code suivant. (j'ai mis UserForm1 car je ne connais pas le nom de votre UserForm; changez-le par le nom du votre) Il faudra IMPERATIVEMENT utiliser cette procédure pour ouvrir votre UserForm. Si vous le lancez directement ça ne marchera pas. '********************* Sub OuvreUF() UserForm1.Show vbModeless End Sub '*********************
J'ai apporté quelques modifications au code que vous avez fait paraître. '********************* Private Sub CommandButton1_Click() If entreprise = False Then ActiveSheet.Columns("a").EntireColumn.Hidden = True End If If responsable = False Then ActiveSheet.Columns("b").EntireColumn.Hidden = True End If ActiveWindow.SelectedSheets.PrintPreview 'ligne de remplacement ''ActiveSheet.Columns("a:k").PrintPreview ' ligne obsolète ActiveSheet.Columns("a:k").EntireColumn.Hidden = False End Sub '*********************
Est-ce mieux comme ça ?
Cordialement.
PMO Patrick Morange
Bonjour! Je remerci Denis.P pour son aide lors de mon précedent message!! Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi dans un userform!
Private Sub CommandButton1_Click() If entreprise = False Then ActiveSheet.Columns("a").EntireColumn.Hidden = True End If If responsable = False Then ActiveSheet.Columns("b").EntireColumn.Hidden = True End If
(ainsi de suite pour les différents champs jusqu'a "K") ActiveSheet.Columns("a:k").PrintPreview ActiveSheet.Columns("a:k").EntireColumn.Hidden = False End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à la mise en page! Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite imprimer?
Merci d'avance. Anais
Bonjour,
Si vous avez une version Excel plus récente qu'Excel97 voici une solution:
Dans un module général copiez le code suivant.
(j'ai mis UserForm1 car je ne connais pas le nom de votre UserForm;
changez-le par le nom du votre)
Il faudra IMPERATIVEMENT utiliser cette procédure pour ouvrir votre UserForm.
Si vous le lancez directement ça ne marchera pas.
'*********************
Sub OuvreUF()
UserForm1.Show vbModeless
End Sub
'*********************
J'ai apporté quelques modifications au code que vous avez fait paraître.
'*********************
Private Sub CommandButton1_Click()
If entreprise = False Then
ActiveSheet.Columns("a").EntireColumn.Hidden = True
End If
If responsable = False Then
ActiveSheet.Columns("b").EntireColumn.Hidden = True
End If
ActiveWindow.SelectedSheets.PrintPreview 'ligne de remplacement
''ActiveSheet.Columns("a:k").PrintPreview ' ligne obsolète
ActiveSheet.Columns("a:k").EntireColumn.Hidden = False
End Sub
'*********************
Est-ce mieux comme ça ?
Cordialement.
PMO
Patrick Morange
Bonjour!
Je remerci Denis.P pour son aide lors de mon précedent message!!
Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi
dans un userform!
Private Sub CommandButton1_Click()
If entreprise = False Then
ActiveSheet.Columns("a").EntireColumn.Hidden = True
End If
If responsable = False Then
ActiveSheet.Columns("b").EntireColumn.Hidden = True
End If
(ainsi de suite pour les différents champs jusqu'a "K")
ActiveSheet.Columns("a:k").PrintPreview
ActiveSheet.Columns("a:k").EntireColumn.Hidden = False
End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à la
mise en page!
Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite
imprimer?
Si vous avez une version Excel plus récente qu'Excel97 voici une solution:
Dans un module général copiez le code suivant. (j'ai mis UserForm1 car je ne connais pas le nom de votre UserForm; changez-le par le nom du votre) Il faudra IMPERATIVEMENT utiliser cette procédure pour ouvrir votre UserForm. Si vous le lancez directement ça ne marchera pas. '********************* Sub OuvreUF() UserForm1.Show vbModeless End Sub '*********************
J'ai apporté quelques modifications au code que vous avez fait paraître. '********************* Private Sub CommandButton1_Click() If entreprise = False Then ActiveSheet.Columns("a").EntireColumn.Hidden = True End If If responsable = False Then ActiveSheet.Columns("b").EntireColumn.Hidden = True End If ActiveWindow.SelectedSheets.PrintPreview 'ligne de remplacement ''ActiveSheet.Columns("a:k").PrintPreview ' ligne obsolète ActiveSheet.Columns("a:k").EntireColumn.Hidden = False End Sub '*********************
Est-ce mieux comme ça ?
Cordialement.
PMO Patrick Morange
Bonjour! Je remerci Denis.P pour son aide lors de mon précedent message!! Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi dans un userform!
Private Sub CommandButton1_Click() If entreprise = False Then ActiveSheet.Columns("a").EntireColumn.Hidden = True End If If responsable = False Then ActiveSheet.Columns("b").EntireColumn.Hidden = True End If
(ainsi de suite pour les différents champs jusqu'a "K") ActiveSheet.Columns("a:k").PrintPreview ActiveSheet.Columns("a:k").EntireColumn.Hidden = False End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à la mise en page! Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite imprimer?
Merci d'avance. Anais
PMO
Bonjour,
Si vous avez une version Excel plus récente qu'Excel97 voici une solution:
Dans un module général copiez le code suivant. (j'ai mis UserForm1 car je ne connais pas le nom de votre UserForm; changez-le par le nom du votre) Il faudra IMPERATIVEMENT utiliser cette procédure pour ouvrir votre UserForm. Si vous le lancez directement ça ne marchera pas. '********************* Sub OuvreUF() UserForm1.Show vbModeless End Sub '*********************
J'ai apporté quelques modifications au code que vous avez fait paraître. '********************* Private Sub CommandButton1_Click() If entreprise = False Then ActiveSheet.Columns("a").EntireColumn.Hidden = True End If If responsable = False Then ActiveSheet.Columns("b").EntireColumn.Hidden = True End If ActiveWindow.SelectedSheets.PrintPreview 'ligne de remplacement ''ActiveSheet.Columns("a:k").PrintPreview ' ligne obsolète ActiveSheet.Columns("a:k").EntireColumn.Hidden = False End Sub '*********************
Est-ce mieux comme ça ?
Cordialement.
PMO Patrick Morange
Bonjour! Je remerci Denis.P pour son aide lors de mon précedent message!! Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi dans un userform!
Private Sub CommandButton1_Click() If entreprise = False Then ActiveSheet.Columns("a").EntireColumn.Hidden = True End If If responsable = False Then ActiveSheet.Columns("b").EntireColumn.Hidden = True End If
(ainsi de suite pour les différents champs jusqu'a "K") ActiveSheet.Columns("a:k").PrintPreview ActiveSheet.Columns("a:k").EntireColumn.Hidden = False End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à la mise en page! Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite imprimer?
Merci d'avance. Anais
Bonjour,
Si vous avez une version Excel plus récente qu'Excel97 voici une solution:
Dans un module général copiez le code suivant.
(j'ai mis UserForm1 car je ne connais pas le nom de votre UserForm;
changez-le par le nom du votre)
Il faudra IMPERATIVEMENT utiliser cette procédure pour ouvrir votre UserForm.
Si vous le lancez directement ça ne marchera pas.
'*********************
Sub OuvreUF()
UserForm1.Show vbModeless
End Sub
'*********************
J'ai apporté quelques modifications au code que vous avez fait paraître.
'*********************
Private Sub CommandButton1_Click()
If entreprise = False Then
ActiveSheet.Columns("a").EntireColumn.Hidden = True
End If
If responsable = False Then
ActiveSheet.Columns("b").EntireColumn.Hidden = True
End If
ActiveWindow.SelectedSheets.PrintPreview 'ligne de remplacement
''ActiveSheet.Columns("a:k").PrintPreview ' ligne obsolète
ActiveSheet.Columns("a:k").EntireColumn.Hidden = False
End Sub
'*********************
Est-ce mieux comme ça ?
Cordialement.
PMO
Patrick Morange
Bonjour!
Je remerci Denis.P pour son aide lors de mon précedent message!!
Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi
dans un userform!
Private Sub CommandButton1_Click()
If entreprise = False Then
ActiveSheet.Columns("a").EntireColumn.Hidden = True
End If
If responsable = False Then
ActiveSheet.Columns("b").EntireColumn.Hidden = True
End If
(ainsi de suite pour les différents champs jusqu'a "K")
ActiveSheet.Columns("a:k").PrintPreview
ActiveSheet.Columns("a:k").EntireColumn.Hidden = False
End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à la
mise en page!
Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite
imprimer?
Si vous avez une version Excel plus récente qu'Excel97 voici une solution:
Dans un module général copiez le code suivant. (j'ai mis UserForm1 car je ne connais pas le nom de votre UserForm; changez-le par le nom du votre) Il faudra IMPERATIVEMENT utiliser cette procédure pour ouvrir votre UserForm. Si vous le lancez directement ça ne marchera pas. '********************* Sub OuvreUF() UserForm1.Show vbModeless End Sub '*********************
J'ai apporté quelques modifications au code que vous avez fait paraître. '********************* Private Sub CommandButton1_Click() If entreprise = False Then ActiveSheet.Columns("a").EntireColumn.Hidden = True End If If responsable = False Then ActiveSheet.Columns("b").EntireColumn.Hidden = True End If ActiveWindow.SelectedSheets.PrintPreview 'ligne de remplacement ''ActiveSheet.Columns("a:k").PrintPreview ' ligne obsolète ActiveSheet.Columns("a:k").EntireColumn.Hidden = False End Sub '*********************
Est-ce mieux comme ça ?
Cordialement.
PMO Patrick Morange
Bonjour! Je remerci Denis.P pour son aide lors de mon précedent message!! Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi dans un userform!
Private Sub CommandButton1_Click() If entreprise = False Then ActiveSheet.Columns("a").EntireColumn.Hidden = True End If If responsable = False Then ActiveSheet.Columns("b").EntireColumn.Hidden = True End If
(ainsi de suite pour les différents champs jusqu'a "K") ActiveSheet.Columns("a:k").PrintPreview ActiveSheet.Columns("a:k").EntireColumn.Hidden = False End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à la mise en page! Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite imprimer?
Merci d'avance. Anais
bourby
Anaïs wrote:
Bonjour! Je remerci Denis.P pour son aide lors de mon précedent message!! Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi dans un userform!
Private Sub CommandButton1_Click() If entreprise = False Then ActiveSheet.Columns("a").EntireColumn.Hidden = True End If If responsable = False Then ActiveSheet.Columns("b").EntireColumn.Hidden = True End If
(ainsi de suite pour les différents champs jusqu'a "K") ActiveSheet.Columns("a:k").PrintPreview ActiveSheet.Columns("a:k").EntireColumn.Hidden = False End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à la mise en page! Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite imprimer?
Merci d'avance. Anais
bonsoir,
pas sûr de moi, mais personne ne t'a répondu....
Voir du côté de la propriété Showmodal (de l'userForm et/ou du bouton, c'est là que je ne suis pas sûr...); si on veut avoir accès à Excel pendant que l'UserForm est affiché,il faut la mettre à false (dans la fenêtre propriétés, ou par VBA, au choix).
Bon courage
Bourby
Anaïs wrote:
Bonjour!
Je remerci Denis.P pour son aide lors de mon précedent message!!
Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi
dans un userform!
Private Sub CommandButton1_Click()
If entreprise = False Then
ActiveSheet.Columns("a").EntireColumn.Hidden = True
End If
If responsable = False Then
ActiveSheet.Columns("b").EntireColumn.Hidden = True
End If
(ainsi de suite pour les différents champs jusqu'a "K")
ActiveSheet.Columns("a:k").PrintPreview
ActiveSheet.Columns("a:k").EntireColumn.Hidden = False
End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à la
mise en page!
Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite
imprimer?
Merci d'avance.
Anais
bonsoir,
pas sûr de moi, mais personne ne t'a répondu....
Voir du côté de la propriété Showmodal (de l'userForm et/ou du bouton,
c'est là que je ne suis pas sûr...); si on veut avoir accès à Excel
pendant que l'UserForm est affiché,il faut la mettre à false (dans la
fenêtre propriétés, ou par VBA, au choix).
Bonjour! Je remerci Denis.P pour son aide lors de mon précedent message!! Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi dans un userform!
Private Sub CommandButton1_Click() If entreprise = False Then ActiveSheet.Columns("a").EntireColumn.Hidden = True End If If responsable = False Then ActiveSheet.Columns("b").EntireColumn.Hidden = True End If
(ainsi de suite pour les différents champs jusqu'a "K") ActiveSheet.Columns("a:k").PrintPreview ActiveSheet.Columns("a:k").EntireColumn.Hidden = False End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à la mise en page! Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite imprimer?
Merci d'avance. Anais
bonsoir,
pas sûr de moi, mais personne ne t'a répondu....
Voir du côté de la propriété Showmodal (de l'userForm et/ou du bouton, c'est là que je ne suis pas sûr...); si on veut avoir accès à Excel pendant que l'UserForm est affiché,il faut la mettre à false (dans la fenêtre propriétés, ou par VBA, au choix).
Bon courage
Bourby
docm
Bonjour. Pour accéder à la mise en page: Me.Hide ActiveSheet.Columns("a:k").PrintPreview Me.Show
Salutations.
"Anaïs" wrote in message news:
Bonjour! Je remerci Denis.P pour son aide lors de mon précedent message!! Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi dans un userform!
Private Sub CommandButton1_Click() If entreprise = False Then ActiveSheet.Columns("a").EntireColumn.Hidden = True End If If responsable = False Then ActiveSheet.Columns("b").EntireColumn.Hidden = True End If
(ainsi de suite pour les différents champs jusqu'a "K") ActiveSheet.Columns("a:k").PrintPreview ActiveSheet.Columns("a:k").EntireColumn.Hidden = False End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à la
mise en page! Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite imprimer?
Merci d'avance. Anais
Bonjour.
Pour accéder à la mise en page:
Me.Hide
ActiveSheet.Columns("a:k").PrintPreview
Me.Show
Salutations.
"Anaïs" <Anas@discussions.microsoft.com> wrote in message
news:BB31A160-3176-49A3-9506-2283BB7B1148@microsoft.com...
Bonjour!
Je remerci Denis.P pour son aide lors de mon précedent message!!
Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi
dans un userform!
Private Sub CommandButton1_Click()
If entreprise = False Then
ActiveSheet.Columns("a").EntireColumn.Hidden = True
End If
If responsable = False Then
ActiveSheet.Columns("b").EntireColumn.Hidden = True
End If
(ainsi de suite pour les différents champs jusqu'a "K")
ActiveSheet.Columns("a:k").PrintPreview
ActiveSheet.Columns("a:k").EntireColumn.Hidden = False
End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à
la
mise en page!
Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite
imprimer?
Bonjour. Pour accéder à la mise en page: Me.Hide ActiveSheet.Columns("a:k").PrintPreview Me.Show
Salutations.
"Anaïs" wrote in message news:
Bonjour! Je remerci Denis.P pour son aide lors de mon précedent message!! Malheureusement je rencontre un autre pb.
J'ai un code qui permet d'imprimer une feuille dont les champs sont choisi dans un userform!
Private Sub CommandButton1_Click() If entreprise = False Then ActiveSheet.Columns("a").EntireColumn.Hidden = True End If If responsable = False Then ActiveSheet.Columns("b").EntireColumn.Hidden = True End If
(ainsi de suite pour les différents champs jusqu'a "K") ActiveSheet.Columns("a:k").PrintPreview ActiveSheet.Columns("a:k").EntireColumn.Hidden = False End Sub
Le probleme intervient: J'arrive pas à arreter le userform et a acceder à la
mise en page! Existe t'il un autre moyen pour avoir acceder à la mise en page et ensuite imprimer?
