macro VBA

Question

Bonjour, 

Jai creé un bouton quitter sur ma feuille excel quelle macro faut il mettre pour revenir sur ma userform 

merci d'avance


Configuration: Windows Vista / Internet Explorer 7.0

pilas31 · Accepted Answer

Bonjour,

Si l'userform s'appelle "UserForm1"

Il faut par exemple insérer un bouton dans la feuille dont le code est :


Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

A+

f894009 · Answer

Bonjour,
Si vous voulez que votre form s'affiche a l'ouverture du classeur, vous pouvez ecrire ce code dans un module. A l'ouverture de votre classeur ce code sera execute automatiquement.

Sub Auto_Open()
  Nomdevotreform.Show
End Sub

C'est du Microsoft pas une bidouille (Voir aide Excel)

Bonne suite

anesth31 · Answer

Bonjour et merci à vous PILA 31 c'est bon ça marche

Mon deuxième soucis quand je suis sur user form1 je clic sur un de mes boutons pour faire apparaitre l'une de mes feuilles avec la macro suivante: 

Private Sub CommandButton1_Click()
Me.Hide
Sheets("Pharmacie ORTHO salle 11").Select
End Sub

ça marche par contre j'aimerai que les onglets des differentes autres feuilles n'appaissent pas en bas de ma feuille 
merci d'avance

lermite222 · Answer

Bonjour,
Avec tout les boutons que tu as, tu pourrais étudier cette démo çà raccourcirai ton code et ça le rendrai beaucoup  plus clair.
Voir aussi et plus pratique  encore...
A+

pilas31 · Answer

Bonjour lermite222,   

Oui effectivement, il semble que l'Userform ne serve qu'a selectionner les différentes feuilles. Il y a sans doute des moyens plus élégants de le coder comme tu le suggéres.   

Pour répondre à anesth31:   

Si on reste dans la logique de ton code vba la solution la plus simple me parait être la suivante :   

Fonctionner "à l'envers" c'est à dire cacher toutes les feuilles et ne faire apparaitre que celle qui est associée au bouton.   

On peut cacher toutes les feuilles au moment de l'activation de l'userform.   
Dans le code associé à l'userform ajouter cette macro :   

Private Sub UserForm_Activate()   
    For i = 2 To Sheets.Count   
        Sheets(i).Visible = False   
    Next i   
End Sub   

Cela cache toutes les feuilles sauf la 1° qui doit contenir l'image sur laquelle on double clique pour lancer l'userform.    
Vérifier que c'est bien la première dans l'ordre   
puis modifier toutes les macros associées au bouton comme ceci (juste l'exemple de la 1° macro)   


Private Sub CommandButton1_Click()   
    Me.Hide   
    Sheets("Pharmacie ORTHO salle 11").Visible = True   
    Sheets("Pharmacie ORTHO salle 11").Select   
End Sub   


Voila une solution qui devrait marcher   

A+   
Cordialement,

anesth31 · Answer

ma macro et dèjà écrite que faut il que je rajoute pour que ça fonctionne. je résume,

Ma feuille s'affiche les onglets des autres feuilles aussi j'aimerai donc que les autres onglets n'apparaisent pas a part l'onglet feuille vide

Merci d'avance

anesth31 · Answer

ton code fonctionne mais est il possible que uesr form1 s'affiche en même tant la feuille qui reste visible elle est vide et j'ai mis de la couleur en fond

Merci

anesth31 · Answer

c'est encore moi pilas31 j'ai fait ce que tu m'a dit le code ci-joint

Private Sub CommandButton1_Click()
    Me.Hide
    Sheets("Pharmacie ORTHO salle 11").Visible = True
    Sheets("Pharmacie ORTHO salle 11").Select
End Sub

Private Sub CommandButton2_Click()
Me.Hide
Sheets("Pharmacie ORTHO salle 12").Visible = True
Sheets("Pharmacie ORTHO salle 12").Select
End Sub

ect...;; mais maintenant une fois salle 11 ouverte puis fermée à l'aide d'un bouton 

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

quand j'ouvre la salle 12 la 11 est toujours ouverte il faut qu'elle se ferme quand je quitte la feuille à l'aide du bouton QUITTER

Merci pour ton aide

pilas31 · Answer

Bonjour, 

Je ne suis pas sur d'avoir compris le fonctionnement mais il me semble qu'il faut mémoriser la feuille que l'on vient de quitter pour pouvoir la masquer. 

Une proposition : 

Mettre dans un module une déclaration de variable globale (visible de toutes les macros y compris depuis le code de l'userform) : 
Public Onglet_courant As String
Initialiser cette variable dans chacune des macros comme cela : 
Private Sub CommandButton1_Click() 
    Sheets("Pharmacie ORTHO salle 11").Visible = True 
    Sheets("Pharmacie ORTHO salle 11").Select 
    Onglet_courant = "Pharmacie ORTHO salle 11" 
    Me.Hide 
End Sub
 ainsi de suite .... 
Puis modifier le code du (ou des) bouton(s) QUITTER comme cela : 
Private Sub CommandButton1_Click() 
    If Onglet_courant <> "" Then 
        Sheets(Onglet_courant).Visible = False 
    End If 
    Sheets(1).Select 
End Sub

Je suppose toujours que la feuille n°1 est celle qui est toujours visible. 

Voila c'est à tester. 

A+ 

Cordialement,

anesth31 · Answer

bonjour je vais essayer ce que tu me proposes je te confirme que la feuille vide (N°1) colorée en bleu doit rester toujours visible 
Merci je te recontacte A+

Par contre ce code je le met dans un module je fais comment pour qu'il soit visible par toutes les macro et userform

Public Onglet_courant As String

anesth31 · Answer

Pour pilas31
c'est encore moi tes lignes de codes fonctionnent annule mon dernier message
par contre quand je quitte ma feuille je reviens sur ma feuille vide serait il possible de revenir directement sur ma feuille usreform et ne pas passer à chaque fois par le bouton que j'ai mis sur ma feuille (vide).

pareil quand j'ouvre mon dossier il faut que j'arrive directement sur ma feuille userform

Encore merci pour ton aide car sans toi ça serait vraiement la galère

pilas31 · Answer

Re Bonjour, 

Je te propose alors de relancer l'userform dans la macro QUITTER comme ceci : 
Private Sub CommandButton1_Click() 
    If Onglet_courant <> "" Then 
        Sheets(Onglet_courant).Visible = False 
    End If 
    Sheets(1).Select 
    UserForm1.Show
End Sub
Pour que qu'il se lance à l'ouverture tu vas dans le dossier "ThisWorkbook" de l'éditeur VBA et tu inséres la macro suivante : 

Private Sub Workbook_Open() 
    UserForm1.Show 
End Sub

A+ 

Cordialement,

anesth31 · Answer

Pour pilas31

J'ai tapé toutes les lignes de codes en testant les macros ça fonctionne.

par contre quand je lance le programme j'arrive sur userform je clique sur un des boutons et la feuille ne s'ouvre plus, seule la feuille (vide) apparrait à l'écran

Désolé je suis vraiement un boulet!!!!

anesth31 · Answer

bonsoir pilas31 une précision c'est depuis que j'ai inséré ton code qu'elles n'apparaissent plus quand je clique


Private Sub Workbook_Open() 
    UserForm1.Show 
End Sub
 
mon code actuel pour l'ouverture est ci-dessous
 
Private Sub Workbook_Open()
    UserForm1.Show
    For i = 2 To Sheets.Count
        Sheets(i).Visible = Fasle
    Next i
End Sub


merci pour ton aide

pilas31 · Answer

Bonjour, 

Désolé je n'étais pas dispo avant. 
Je ne comprends pas pourquoi cela ne marche pas chez toi. 
Il ne doit pas y avoir grand chose pour le faire fonctionner.  
Tu peux peut-être nous communiquer ton fichier en le déposant sur www.cijoint.fr et en collant dans un message le lien qui te sera donné. 
Il faut t'assurer en préallable qu'il n'y a pas de données confidentielles. 

A+ 

Cordialement,

anesth31 · Answer

OK c'est sympa je le fait aujourd'hui ou ce soir  
aucune donnée conf 


Merci d'avance 

je vais mettre ce programme en dossier partagé il me semble impossible de l'ouvrir à deux ou trois endrois différents en même temps pour travailler sur des feuilles différentes. 
Peux tu me le comfirmer. 
Et sdi c'est possible m'indiquer comment

anesth31 · Answer

C'est fait merci

anesth31 · Answer

Pour pilas31 ci-desous le lien
Merci encore de me consacrer un peu de ton temps



Veuillez noter le lien ci-dessous qui vous permettra d'accéder à ce fichier. 
C'est ce même lien que vous devrez transmettre à vos correspondants
http://www.cijoint.fr/cjlink.php?file=cj201110/cijgc3FcGq.xls 

PS tu pourra me renseigner por ma question au sujet de l'ouverture multiples
de mon programme

A+

anesth31 · Answer

désolé je te joins un nouveau lien le premier le projet est verouillé
ça sera plus facile


Le dépôt du fichier Travail - Sauvegarde.xls a été réalisé avec succès !

Veuillez noter le lien ci-dessous qui vous permettra d'accéder à ce fichier. 
C'est ce même lien que vous devrez transmettre à vos correspondants
http://www.cijoint.fr/cjlink.php?file=cj201110/cijJxDeFMI.xls 

Merci d'avance

pilas31 · Answer

J'ai regardé le code voila l'explication : Le code dans ThisWorkbook n'était pas dans le bon ordre il faut le remplacer par le code suivant : Private Sub Workbook_Open() For i = 2 To Sheets.Count Sheets(i).Visible = False Next i Load UserForm1 UserForm1.Show End Sub J'ai vu une autre anomalie : la feuille "Matério neurochir salle 1 2 3 4" associée au bouton 52 de l'Userform qui n'existe pas. Pour le partage du fichier, il faut aller dans le menu puis option puis dans l'onglet "Modification" de la fenêtre qui s'ouvre il faut cocher la case "Permettre une modification multi-utilisateurs". Il enregistre alors une version partagée du classeur : il porte le même nom mais avec [partagé] écrit à la suite du nom. Enfin il faut copier le classeur dans un emplacement réseau accessible à tous les utilisateurs. Tous doivent utiliser le même et pas le copier chez eux Voilà je pense la procédure. A+

anesth31 · Answer

Bonsoir pilas 31 merci encore pour tout .ça fonctionne c'est le top

pour la manip menu outil il faut que j'ouvre mon programme si oui outil se trouve ou?

Merci

anesth31 · Answer

Bonjour pilas31  j'ai fait les mofif ça mache un grand merci à toi 

une dernière petite chose une fois excel ouvert je ne trouve pas dans le menu  "outil "

et biensure option peut tu m'aider

Merci d'avance

Macro VBA - Page 2

Discussions similaires

Newsletters