Choix entre usf and feuille active

[Ilino]

Bonsoir Furom
je souhaiterai modifier ce code de cette façon
si le USERFORM existe alors lancer sinon iMPRIMER LA FEUILLE ACTIVE

Private Sub CommandButton2_Click()
If UserForm2.Show Then
Sheet.Active
End Sub

MERCI

 

[kjin]

Re : Choix entre usf and feuille active

Bonjour,

si le USERFORM existe

...et cela voudrais dire quoi ? qu'il n'est pas affiché à l'écran ou qu'il n'existe pas dans le classeur ?!
A+
kjin

 

[Ilino]

Re : Choix entre usf and feuille active

Bonjour,

...et cela voudrais dire quoi ? qu'il n'est pas affiché à l'écran ou qu'il n'existe pas dans le classeur ?!
A+
kjin

Re
en réalité le USF existe dans le classeur initiale ( la feuille modelée avec deux boutons enregistrer et imprimer) et après l'enregistrement d'une nouvelle feuille (copie) il reste seulement le bouton Imprimer
mon souci est comment modifier le code initiale si dans la feuille copie a le USF sinon FEUILLE Avtive

 

[job75]

Re : Choix entre usf and feuille active

Bonsoir,

Private Sub CommandButton2_Click()
On Error Resume Next
UserForm2.Show
If Err Then ActiveSheet.PrintOut
End Sub

A+

 

[Ilino]

Re : Choix entre usf and feuille active

Salut maître Job
Ciao Maestro Job
un grand merci ,je t'avais dis que tu es mon maître mais malheureusement ça n'a pas fonctionné , je te propose cette solution si c'est possible
On laisse le code initial dans le classeur ( la feuille modèle)

Private Sub CommandButton2_Click()
UserForm2.Show
End Sub

Et après enregistrement d’une copie de la feuille modèle je souhaiterais avoir un autre code dans cette feuille de cette façon

Private Sub CommandButton2_Click()
ActiveSheet.PrintOut
End Sub

est il possible ???

 

[job75]

Re : Choix entre usf and feuille active

Re,

En ouvrant l'UserForm en non modal ceci devrait marcher :

Private Sub CommandButton2_Click()
 On Error Resume Next
 UserForm2.Show 0 'non modal
 If Err Then ActiveSheet.PrintOut
 End Sub

Sinon c'est que je n'ai pas compris.

A+

 

[job75]

Re : Choix entre usf and feuille active

Re,

Toujours si j'ai bien compris ceci est mieux :

Private Sub CommandButton2_Click()
On Error Resume Next
If IsError(UserForm2.Tag) Then ActiveSheet.PrintOut Else  UserForm2.Show
End Sub

A+

 

[Ilino]

Re : Choix entre usf and feuille active

salut Maitre
non plus ça n'a pas fonctionné après l’enregistrement de la copie il reste dans la feuille copie le bouton IMPRIMER mais quand je lance l'impression il affiche le message suivant erreur de compliation variable non definie

 

[Ilino]

Re : Choix entre usf and feuille active

Re Maitre
je veux dire : si le USF n'existe pas dans la feuille copié alors imprimer la feuille active sans affiché USF
je ne sais pas si je suis claire mnt §????

 

[job75]

Re : Choix entre usf and feuille active

Bonjour Ilino,

quand je lance l'impression il affiche le message suivant erreur de compliation variable non definie

Avec les codes que j'ai donnés il ne faut pas que la déclaration des variables soit obligatoire.

Retirez donc Option Explicit.

A+

 

[job75]

Re : Choix entre usf and feuille active

Re,

Et dans VBA voyez le menu Outils => Options => Editeur.

La case Déclaration des variables obligatoire doit être décochée.

A+

 

[Ilino]

Re : Choix entre usf and feuille active

Bonjour Ilino,



Avec les codes que j'ai donnés il ne faut pas que la déclaration des variables soit obligatoire.

Retirez donc Option Explicit.

A+

Ciao Maestro JOB
Anche in questo caso per l'ennesima volta di essere il migliore
ECCELLENTE ora funziona molto bene
A+
PROBLEME RESOLUT...................

 

[Ilino]

Re : Choix entre usf and feuille active

Re,

Et dans VBA voyez le menu Outils => Options => Editeur.

La case Déclaration des variables obligatoire doit être décochée.

A+

Bonjour Maître JOB
pour la énième fois; tu es le meilleur.
Excellent travail ,maintenant ça fonctionne très bien.
Grarie
Problème Résolut

 

[Ilino]

Re : Choix entre usf and feuille active

Bonjour Forum
Je suis désolé, et merci pour votre patiente.
Problème Résolut


Ciao Forum
Mi dispiace, e vi ringrazio per la vostra pazienza.
Problema Risoluz