Excel 2003 Vba bouton option

Résolu/Fermé
Graphick Messages postés 109 Date d'inscription mardi 16 septembre 2008 Statut Membre Dernière intervention 12 mars 2022 - 16 sept. 2008 à 19:40
Graphick Messages postés 109 Date d'inscription mardi 16 septembre 2008 Statut Membre Dernière intervention 12 mars 2022 - 25 sept. 2008 à 17:17
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
A voir également:

4 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
19 sept. 2008 à 15:38
Bonjour,

Voilà un exemple https://www.cjoint.com/?jtpLg7BhPb

Bon courage

;o)
0
Graphick Messages postés 109 Date d'inscription mardi 16 septembre 2008 Statut Membre Dernière intervention 12 mars 2022 9
22 sept. 2008 à 18:27
Merci

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
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
23 sept. 2008 à 08:41
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".

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Worksheets(1).OptionFiat.Value = False
    Worksheets(1).OptionFord.Value = False
End Sub


;o)
0
Graphick Messages postés 109 Date d'inscription mardi 16 septembre 2008 Statut Membre Dernière intervention 12 mars 2022 9
23 sept. 2008 à 15:10
Wow c'étais si simple et je cherchais bcoup trop loin.

Merci encore

Pratiquement tout est résolu pour le reste je vais essayer de me débrouiller sinon je vais devenir parresseux

encore merci
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
23 sept. 2008 à 15:24
De rien :DDD

Bon courage et n'hésite pas à revenir si besoin est.

;o)
0
nébuleuse orion Messages postés 2 Date d'inscription mardi 23 septembre 2008 Statut Membre Dernière intervention 23 septembre 2008
23 sept. 2008 à 15:51
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>
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204 > nébuleuse orion Messages postés 2 Date d'inscription mardi 23 septembre 2008 Statut Membre Dernière intervention 23 septembre 2008
23 sept. 2008 à 16:01
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.
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)
0
nébuleuse orion Messages postés 2 Date d'inscription mardi 23 septembre 2008 Statut Membre Dernière intervention 23 septembre 2008 > Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016
23 sept. 2008 à 16:42
Super

VBA c magique

Est ce possible d'enlever tout la mise en page excel, je veux dire garder que les cellule, enlever les numéro de ligne, alphabet en haut des collonne etc......????

merci pour ton aide et je crois que je vais chercher un cour sur VBA c trop bien
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
23 sept. 2008 à 16:46
Fais un tour sur ce site. Dans l'onglet "Visual Basic" tu as la même chose pour le VBA.

Bon courage

;o)
0
Graphick Messages postés 109 Date d'inscription mardi 16 septembre 2008 Statut Membre Dernière intervention 12 mars 2022 9
25 sept. 2008 à 17:17
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
0