Excel 2003 Vba bouton option
Résolu
Graphick
Messages postés
109
Date d'inscription
Statut
Membre
Dernière intervention
-
Graphick Messages postés 109 Date d'inscription Statut Membre Dernière intervention -
Graphick Messages postés 109 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Salut à tous voila mon petit problème.
Jai 2 compagnie feuille1 EX: Ford et a coté un bouton option
Honda et a coté un bouton option
Ensuite Jai un bouton quand clique qui est appelé VALIDÉ
Donc si je coche Ford et que je valide je suis redirigé vers la feuilles2
si je coche Honda et que je valide je suis redirigé vers la feuilles3
je croyais que je pouvais créer un petit macro tout simple mais jarrive seulement a faire quand clic boutton validé suis redirigé vers feuilles 2 donc faudrais que je mettre 2 bouton validé mais je veux vraiment le faire avec des bouton option et ensuite le validé sur un seul bouton
merci de bien vouloir maider svp je suis un peu paumé et nul avec VBA
Salut à tous voila mon petit problème.
Jai 2 compagnie feuille1 EX: Ford et a coté un bouton option
Honda et a coté un bouton option
Ensuite Jai un bouton quand clique qui est appelé VALIDÉ
Donc si je coche Ford et que je valide je suis redirigé vers la feuilles2
si je coche Honda et que je valide je suis redirigé vers la feuilles3
je croyais que je pouvais créer un petit macro tout simple mais jarrive seulement a faire quand clic boutton validé suis redirigé vers feuilles 2 donc faudrais que je mettre 2 bouton validé mais je veux vraiment le faire avec des bouton option et ensuite le validé sur un seul bouton
merci de bien vouloir maider svp je suis un peu paumé et nul avec VBA
A voir également:
- Excel 2003 Vba bouton option
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
4 réponses
Bonjour,
Dans l'éditeur VB, dans la colonne de gauche tu as un module ThisWorkbook. Il faut l'ouvrir. Au dessus de la fenêtre d'édition il y a 2 listes déroulantes. Dans celle de gauche (Général), tu sélectiones "Workbook" et dans celle de droite tu sélectionnes "BeforeClose".
;o)
Dans l'éditeur VB, dans la colonne de gauche tu as un module ThisWorkbook. Il faut l'ouvrir. Au dessus de la fenêtre d'édition il y a 2 listes déroulantes. Dans celle de gauche (Général), tu sélectiones "Workbook" et dans celle de droite tu sélectionnes "BeforeClose".
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets(1).OptionFiat.Value = False
Worksheets(1).OptionFord.Value = False
End Sub
;o)
De rien :DDD
Bon courage et n'hésite pas à revenir si besoin est.
;o)
Bon courage et n'hésite pas à revenir si besoin est.
;o)
Salut l'ami
Bon j'ai lu ce message et j'ai à peu près le même problème. Sauf que moi je veux que si je coche un bouton option je soit redirigé vers une autre feuille mais ce que je coche doit appaitre dans une cellule de la nouvelle feuille. Bon je c pas si c clair donc voici un exemple. Dans feuil1 je coche chien et je valide. Je suis redirigé sur la feuil2 et en A1 chien apparais. Est ce que c simple?? mais moi je n'y arrive pas peux tu m'aider STP
</code></gras>
Bon j'ai lu ce message et j'ai à peu près le même problème. Sauf que moi je veux que si je coche un bouton option je soit redirigé vers une autre feuille mais ce que je coche doit appaitre dans une cellule de la nouvelle feuille. Bon je c pas si c clair donc voici un exemple. Dans feuil1 je coche chien et je valide. Je suis redirigé sur la feuil2 et en A1 chien apparais. Est ce que c simple?? mais moi je n'y arrive pas peux tu m'aider STP
</code></gras>
Bonjour,
As-tu récupérer l'exemple ? si oui, il faut adapter comme ceci :
On considère que tu as mis dans la propriété "Caption" du bouton Option1 la valeur "Chien" et "Chat" dans la propriété "Caption" du bouton Option2.
;o)
As-tu récupérer l'exemple ? si oui, il faut adapter comme ceci :
On considère que tu as mis dans la propriété "Caption" du bouton Option1 la valeur "Chien" et "Chat" dans la propriété "Caption" du bouton Option2.
Dim str As Variant
If OptionChien.Value = True Then
str = OptionChien.Caption
Worksheets(2).Activate
Worksheets(2).Range("A1").Value = str
End If
If OptionChat.Value = True Then
str = OptionChat.Caption
Worksheets(3).Activate
Worksheets(3).Range("A1").Value = str
End If
;o)
Fais un tour sur ce site. Dans l'onglet "Visual Basic" tu as la même chose pour le VBA.
Bon courage
;o)
Bon courage
;o)
Salut Polux
Avant de commencer merci grace a toi tout fonctionne très bien.
J' ai un autre petit problème. J'ai dans excel un petit catagogue avec des photos. Sur les photo j'aimerais pouvoir ecrire mais comme dans une cellule c'est à dire EXEMPLE: Dans la FEUIL2 jai des photo, dans le coin de ma photo en haut j'indique 2500$ dans ma feuilles 1 jai ma liste de prix si je change 2500$ jaimerais qu'il le fasse sur ma photo.
Mon problème est que je n'arrive pas à ecrire sur une photo et à avoir une cellule active .
À tu une idée sur la question??
Merci de ton aide
Graphick
Avant de commencer merci grace a toi tout fonctionne très bien.
J' ai un autre petit problème. J'ai dans excel un petit catagogue avec des photos. Sur les photo j'aimerais pouvoir ecrire mais comme dans une cellule c'est à dire EXEMPLE: Dans la FEUIL2 jai des photo, dans le coin de ma photo en haut j'indique 2500$ dans ma feuilles 1 jai ma liste de prix si je change 2500$ jaimerais qu'il le fasse sur ma photo.
Mon problème est que je n'arrive pas à ecrire sur une photo et à avoir une cellule active .
À tu une idée sur la question??
Merci de ton aide
Graphick
Yess ca fonctonne super bien jai cherché pendant 3 jours j'utilisais VISIBLE. Maintenant tout fonctionne mais jai une autre colle pour toi
Ce document c'est un formulaire qui se redirige vers des bon de commande que j'imprime
Je voudrais que quand je fini et que je le ferme que les bouton option soit vide ( comme si je ne les aurais jamais coché)
Comme je suis pas utilisateur je suis sur que certain vont enregistrer avant de fermer
Je te serais tres reconnaisant si tu peux encore maider sur ce petit problème.
Graphickkk