une vingtaine de feuille

R

Robert

Guest

• 25 Mai 2004

• #2

Salut Petchy, salut le forum,

Voici une solution que j'utilise même si il doit y avoir un code bien mieux adapté que ma ruse de sioux...

Quand tu cliques sur le bonton qui lance l'Userform1 tu peux en profiter pour demander à écrire le nom de la feuille active dans une cellule quelconque (par exemple Feuil1!A50) en rajoutant le code ci-dessous à ton "UserForm1.Show"

Sheets("Feuil1").Range("A50").Value=ActiveSheet.Name

Ensuite, à la sortie de l'UserForm2 tu demandes de selectionner la feuille écrite en Feuil1!A50

Dim feuille As String
feuille = Sheets("Feuil1").Range("A50").Value
Sheets(feuille).Select

C'est pas très fufu je te l'accorde (en si bémol d'ailleurs) mais ça marche...

À plus,

Robert

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 25 Mai 2004

• #3

Bonjour Petchy, Robert, le Forum

Non non c'est en Ré Mineur Robert !! lol, mais en Sol Allegro (non !!! Allez Monaco !!!) ça donne ceci :

Dans un Module Standard, Au Top
Public LastSheet as String

Dans le Provate Module du UserForm1
Private Sub UserForm_Initialize()
LastSheet = ActiveSheet.Name
End Sub

Dans le Provate Module du UserForm2
Private Sub UserForm_Terminate()
Sheets(LastSheet).Activate
End Sub

Bon Aprèm
@+Thierry

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 25 Mai 2004

• #4

Salut Thierry,

J'espérais que tu passes par là... Muchas gracias hombre !

Tiens puisque tu es de Monaco, sais-tu pourquoi Giully (je sais même pas si ça s'écrit comme ça ! Mais je pense que tu vois de qui je parle...) n'a pas joué contre le Brésil pour le dernier match amical ? C'est à cause de la tenue de la première mi-temps son entraîneur avait peur qu'il se blesse en marchant sur son short !!!

Allez Monaco !! (e viva o Brasil, Pentacampeão)

Robert

p.s. Comment fait-on pour une mise en forme sur les posts (gras, itallique, lien) ? Est-ce en HTML ?

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 25 Mai 2004

• #5

Re

merci Robert, @+Thierry
mais il y a un soucis avec les codes
Robert : le nom de la feuille s'inscrit bien,mais il inscrit Feuil1 et non le nom de la feuille
Private Sub CommandButton12_Click()
article.Show
Sheets("feuille1").Range("d1").Value = ActiveSheet.Name
aaa.Hide
End Sub

@+Thierry : il ne se passe rien je reste toujours sur la feuille 1,je ne reviens pas sur ma feuille qui était ouverte

petchy

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 25 Mai 2004

• #6

Re-Bonjour Robert, Petchy, le Forum

Pour les Bold, UnderLigne, Italic c'est assez simple, ce n'est pas rééllement des Tag Html, c'est propre à ces PHorum (PHP Forum) :

Bold => [ b ] Bold [ / b ] (sans espace)

UnderLigne => [ u ] UnderLigne [ / u ]

Italic => [ i ] Italic [ / i ]


Le Tout Mélangé => [ i ] [ b ] [ u ] Le Tout Mélangé [ / u ] [ / b ] [ / i ]


Et sinon c'est Ludovic GIULY tout simplement

Voilà, bonne fin d'aprèm
@+Thierry

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 25 Mai 2004

• #7

Re Petchy, Robert

Huum, si ceci est véridique : " Je vais sur une feuille je click sur un bouton qui m'ouvre un USF1"

Et si donc tu veux retourner sur la dite feuille, le code que je t'ai donné devrait faire exactement ceci, si, bien entendu, tu as bien mis en oeuvre mes explications....
Que je vais détailler à nouveau donc :

Dans un Module Standard, Au Top
Public LastSheet as String

A mettre tout en haut d'un module standard "Module1" par exemple, Pas un Private Module de UserForm...

Dans le Provate Module du UserForm1
Private Sub UserForm_Initialize()
LastSheet = ActiveSheet.Name
End Sub

Au moment où le UserForm1 (c'est bien du UserForm1 dont on parle !) est initialisé, il place en mémoire la feuille qui était active... Ensuit il peut se passer n'importe quoi, tu peut sélectionner dix feuilles etc, un autre UserForm etc... c'est la Feuille qui était active au moment de l'initialise qui a été mémorisée.


Dans le Provate Module du UserForm2
Private Sub UserForm_Terminate()
Sheets(LastSheet).Activate
End Sub

Ici c'est pour respecter ce que tu as demandé :"en fermant l'USF2 je reviens sur la feuille qui était ouverte et donc çà fait bien ceci , ça active la Feuille qui a été mémorisée ci dessus....

Donc je ne comprends pas, ou encore, tu ne comprends pas... Quelque chose nous échappe !!!!

Bonne Fin d'Aprèm et bobn courage
@+Thierry

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 25 Mai 2004

• #8

A VOUS DEUX ça fonctionne
Petchy

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 25 Mai 2004

• #9

Tant mieux alors Petchy


Tiens au fiat, depuis different endroits d'où je me connecte, je ne vois pas tes smileys mais ceci à la place :



Je ne sais pas si c'est pour tout le monde idem...

Bonne Soirée
@+Thierry

 

Vote positif 0 Vote négatif

M

Minick

Guest

• 25 Mai 2004

• #10

Salut tout le monde,

Juste un petit coucou pour rassurer @+Thierry
Je n'ai pas non plus les smileys de Petchy

@+ Minick

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 26 Mai 2004

• #11

Bonjour à tous,

merci[/] Thierry[/], your are the beast.

À plus,

Robert

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 26 Mai 2004

• #12

re...

par contre moi... ça craint... même pas foutu d'enlever le [ u ] bold [ / b ] ! C'est peut-être les espaces ?

Robert

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 26 Mai 2004

• #13

re... re

Bon ! Ça y est, c'est promis. J'arrête de [ b ] boire [ / b ] (enfin j'essaie).

Robert

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 26 Mai 2004

• #14

re re re ....

désolé de pourrir ce post avec mes couilonnades mais j'aimerais que ça marche...

Robert

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 26 Mai 2004

• #15

re re re re


Yeah ! mongolito est content de lui. (bon je rebois alors !)

Robert

 

Vote positif 0 Vote négatif