[RESOLU]Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Pierrot93

XLDnaute Barbatruc

• 4 Juin 2012

• #2

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Bonjour,

peut être avec un test comme celui-ci :

Code:

If ActiveWorkbook.Name = "monclasseur.xls" Then UserForm1.Show

peut être faire aussi un test sur la feuille active avec le même principe...

bonne journée
@+

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 4 Juin 2012

• #3

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Salut alex53 et le forum

-ce qui se passe avec mon UF, est-ce le fonctionnement "par defaut" , ou bien est-ce du a mon code?

Cliquez pour agrandir...

Les deux : Juste une question... c'est quoi ton code ? Personnellement, n'étant ni devin ni télépathe, j'ai du mal à lire ta troisième ligne de la seconde macro ! 😀

Si tu ne précise pas le classeur, Excel prend par défaut celui actif.

Il te reste à lui préciser dans quel classeur, dans quelle feuille tu doit mettre tes données : Si tu as une "erreur de classeur", la même chose pourra arriver pour la feuille, même si aujourd'hui tu n'en as qu'une.

Deux solutions à envisager pour le classeur :
- WorkBooks("X")
ou
- ThisWorkbook (si le USF est dans le classeur désiré)
La première fige "définitivement" le nom de ton classeur, la seconde, permet de changer le nom du classeur, ou de copier ton USF dans un autre classeur (dans lequel s'enregistreront les données).

Donc tes macros devront avoir la syntaxe suivante pour un Range("A1")
- ThisWokBook.Sheets(Y).range (A1")
ou
- WorkBooks("X").Sheets("Y").Range ("A1")

Comme vraisemblablement tu n'as pas qu'un range par macro, je conseillerais d'utiliser With... End With
A+

 

Dernière édition: 4 Juin 2012

Vote positif 0 Vote négatif

A

alex53

XLDnaute Junior

• 4 Juin 2012

• #4

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Bonjour Pierrot, bonjour Gorfael et merci pour vos reponses.

Gorfael,
Ta solution fonctionne, cependant, ce n'est pas exactement ce que je souhaite faire. En effet je souhaite que le USF ne soit plus visible quand je passe sur un autre workbook excel. (Avec ta solution, je peux valider mon USF tout en etant sur un autre classeur excel et sans avoir le message d'erreur, ce qui est en soi deja une bonne nouvelle)

Pierrot,
le probleme avec ce genre de solution est que cela ouvre automatiquement le USF quand je vais sur le workbook en question, ce que je ne souhaite pas.

Si vous avez d'autres idees...
Je mets un exemple simple en PJ.


Merci

 

Pièces jointes

• Ex USF dans meme page.xlsm

  20 KB · Affichages: 64
• Ex USF dans meme page.xlsm

  20 KB · Affichages: 47
• Ex USF dans meme page.xlsm

  20 KB · Affichages: 50

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Juin 2012

• #5

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Re,

essaye avec ceci, à placer dans le module "thisworkbook" :

Code:

Private Sub Workbook_Deactivate()
Unload UserForm1
End Sub

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 4 Juin 2012

• #6

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Bonjour
En complément avec la proposition de Gorfael :
Il te suffit de préciser l'adresse complète des cellules dans lesquelles tu écris. Nul besoin d'activer ou pire encore de sélectionner un classeur pour écrire dedans
with workbooks("monclasseur.xls").sheets("mafeuille")
.cells(1,2) = txtbox1
end with

de la sorte quel que soit le classeur qui est affiché "derrière" ton USF, ça remplira le bon.

 

Vote positif 0 Vote négatif

A

alex53

XLDnaute Junior

• 4 Juin 2012

• #7

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Re-
Bonjour Misange,

Pierrot,
ok, mais ca ne fontionne pas jusqu au bout. Si je vais sur un autre classeur Excel, alors grace a ton code le USF n'est plus visible. Mais si je reviens sur mon classeur ou j enregistre l'information, alors le USF est ferme et il faut tout remplir a nouveau. C'est comme ci le Hide fonctionnait comme un unload

Misange,
Merci pour ta reponse, mais je souhaite plus precisement a cacher le USF quand je ne suis pas sur le bon classeur.

Alex53

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Juin 2012

• #8

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Re,

C'est comme ci le Hide fonctionnait comme un unload

Cliquez pour agrandir...

bah en l'état c'est un 'unloa" mais tu peux utiliser un "hide"

Code:

Private Sub Workbook_Deactivate()
UserForm1.Hide
End Sub

et pour l'afficher à la réactivation du classeur :

Code:

Private Sub Workbook_Activate()
UserForm1.Show
End Sub

 

Vote positif 0 Vote négatif

A

alex53

XLDnaute Junior

• 4 Juin 2012

• #9

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Merci Pierrot,

En fait j 'avais deja essaye ton code, mais il y a un petit souci :
-Supposons que j'ai 2 classeurs ouverts, j'ouvre le USF dans mon classeur 1 et je rempli la case prenom. Ensuite je fais un tour dans mon classeur 2, puis revient dans mon classeur 1: alors je suis bloque=je ne peux plus aller dans mon classeur 2
-De plus le USF s'ouvre automatiquement a l'ouverture du classeur, ce que je ne souhaite pas...

Alex53

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Juin 2012

• #10

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Re,

Ensuite je fais un tour dans mon classeur 2, puis revient dans mon classeur 1: alors je suis bloque=je ne peux plus aller dans mon classeur 2

Cliquez pour agrandir...

bah, je comprends pas trop....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Juin 2012

• #11

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Re,

pour le 2ème point :

-De plus le USF s'ouvre automatiquement a l'ouverture du classeur, ce que je ne souhaite pas...

Cliquez pour agrandir...

modifie comme suit :
dans un module standard :

Code:

Public b As Boolean

dans le module "thisworkbook" :

Code:

Private Sub Workbook_Deactivate()
UserForm1.Hide
b = True
End Sub
Private Sub Workbook_Activate()
If b Then UserForm1.Show
End Sub

 

Vote positif 0 Vote négatif

A

alex53

XLDnaute Junior

• 4 Juin 2012

• #12

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Merci pour la solution au 2 eme probleme.

Pour le 1er probleme, je me re-explique:
Si j ai plusieurs classeur excel ouvert (y compris celui avec le USF), alors si j'ouvre le USF et que ensuite je navigue entre les classeurs excel, puis je reviens a mon classeur qui possede le USF alors je ne peux plus changer de classeur excel (=plus possible de naviguer entre les classeurs)

J espere que c est plus clair

 

Pièces jointes

• Ex USF dans meme page.xlsm

  20.5 KB · Affichages: 41
• Ex USF dans meme page.xlsm

  20.5 KB · Affichages: 46
• Ex USF dans meme page.xlsm

  20.5 KB · Affichages: 45

Dernière édition: 4 Juin 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Juin 2012

• #13

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Re,

Aarf j'ai compris le 1er point, il faut que l'usf soit toujours non modal :

Code:

Private Sub Workbook_Activate()
If b Then UserForm1.Show 0
End Sub

Edition : regarde également le post 11, vient en complément....

 

Vote positif 0 Vote négatif

A

alex53

XLDnaute Junior

• 4 Juin 2012

• #14

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Super ca marche !

 

Vote positif 0 Vote négatif

A

alex53

XLDnaute Junior

• 5 Juin 2012

• #15

Re : Afficher mon UF uniquement quand je suis dans le bon classeur Excel

Bonjour,
Il semblerait que j'ai parle un peu trop vite. Il reste un petit bug que je n'arrive pas a resoudre.
Si j'ai 2 fichiers excel ouvert (dont celui avec la macro), alors quand je passe d'un fichier excel lambda vers le fichier excel avec la macro, alors le USF s'ouvre automatiquement....
Une idee?

Ci-joint le fichier exemple

Merci
Alex53

 

Pièces jointes

• Ex USF dans meme page.xlsm

  20.5 KB · Affichages: 46
• Ex USF dans meme page.xlsm

  20.5 KB · Affichages: 53
• Ex USF dans meme page.xlsm

  20.5 KB · Affichages: 53

Vote positif 0 Vote négatif