Flux rss
Ils ont besoin de votre aide
Collection CommentCaMarche.net
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

Menus déroulants dans excel

déjà.vu, le mardi 18 mars 2008 à 10:53:47
Bonjour a tous,

Dans mon tableur excel j'ai une menu déroulant (appelons le MD1) que me propose des groupes sanguins (soient A, B, AB ou O). Il est en colonne A.

Quand je choisi O dans mon MD1, je voudrais qu'un autre menu déroulant (MD2) me propose le rhésus (+ ou -) dans la colonne B.

Comment faire?

merci d'avance
Configuration: Windows XP
Internet Explorer 6.0
Répondre à déjà.vu  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
déjà.vu, le mardi 18 mars 2008 à 11:38:03
En fait je voudrais qu'un sous-menu-déroulant s'affiche quand je choisi O dans mon MD1.
   
Répondre à déjà.vu

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
déjà.vu, le mardi 18 mars 2008 à 15:37:24
J'ai essayé avec la barre d'outils visual basics mais je n'y arrive pas
   
Répondre à déjà.vu

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
déjà.vu, le mercredi 19 mars 2008 à 12:25:11
help
   
Répondre à déjà.vu

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
LePierre, le mercredi 19 mars 2008 à 13:26:53
voila ce que j'ai pu trouver
introduis ce code dans la feuille contenant ta liste déroulante

Public FlagRH As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If FlagRH = 1 Then Exit Sub

Lig = ActiveCell.Row
FlagRH = 1
Message = "Entrez le rhésus + ou -"
Title = "Facteur rhésus"
Defaut = "+"
Do
Rhesus = InputBox(Message, Title, Defaut)
Beep
Loop Until Rhesus = "+" Or Rhesus = "-" Or Rhesus = ""
Cells(Lig, 2).Value = Rhesus
FlagRH = 0
End Sub

à plus
   
Répondre à LePierre

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
déjà.vu, le mercredi 19 mars 2008 à 13:54:16
D'abord un très grand merci pour ta réponse.

Le code je le rentre dans une cellule comme ca ou il faut que je fasse une macro?
(parce que je sais que les macro existe mais je ne sais pas du tout installer ça)
   
Répondre à déjà.vu

7


  • 1    Ce message vous semble utile, votez !
  • Ce message ne vous semble pas utile, votez !
  • Signaler ce message aux modérateurs
LePierre, le mercredi 19 mars 2008 à 17:26:54
tu copies l'ensemble du code ci dessous (que j'ai un peu amélioré) :

Public FlagRH As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If FlagRH = 1 Then Exit Sub
Col = ActiveCell.Column
If Col > 1 Then Exit Sub

Lig = ActiveCell.Row

FlagRH = 1
Message = "Entrez le rhésus + ou -"
Title = "Facteur rhésus"
Defaut = "+"
Do
Rhesus = InputBox(Message, Title, Defaut)
Beep
Loop Until Rhesus = "+" Or Rhesus = "-" Or Rhesus = ""
Cells(Lig, 2).Value = Rhesus
Cells(Lig + 1, 2).Select
FlagRH = 0
End Sub

tu fais un click droit sur l'onglet de ta feuille et dans le menu qui s'affiche clique sur Visualiser le code
tu es maintenant dans l'éditeur de Visual Basic

colles le code que tu viens de copier. C'est tout. Tu peux fermer l'éditeur Visual Basic.

Maintenant quand tu vas sélectionner un groupe sanguin en colonne A, une fenêtre s'ouvrira pour te demander de saisir + ou - (ou Annuler)

à plus
   
Répondre à LePierre

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
déjà.vu, le jeudi 20 mars 2008 à 10:18:24
merci beaucoup
et ça marche! (comme dans la pub de "de particulier à particulier"...)

Si je voulais que la boite de dialogue ne s'affiche que quand le groupe sanguin est O je fais comment?
J'ai essayé de changer le morceau en gras ci dessous par FlagRH = O , par FlagRH = "O" j'ai un peu trifouillé tous ça mais ça me surligne la ligne Private Sub... en jaune


Public FlagRH As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If FlagRH = 1 Then Exit Sub
Col = ActiveCell.Column
If Col > 1 Then Exit Sub

Lig = ActiveCell.Row

FlagRH = 1
Message = "Entrez le rhésus + ou -"
Title = "Facteur rhésus"
Defaut = "+"
Do
Rhesus = InputBox(Message, Title, Defaut)
Beep
Loop Until Rhesus = "+" Or Rhesus = "-" Or Rhesus = ""
Cells(Lig, 2).Value = Rhesus
Cells(Lig + 1, 2).Select
FlagRH = 0
End Sub


Enfin, est-ce qu'il est possible d'intégrer un menu déourlant à la boite de dialogue? ou quelque chose du genre
   
Répondre à déjà.vu

9


  • 1    Ce message vous semble utile, votez !
  • Ce message ne vous semble pas utile, votez !
  • Signaler ce message aux modérateurs
LePierre, le jeudi 20 mars 2008 à 10:38:57
il faut simplement tester la valeur du Groupe sanguin choisi : si différent de O --> fin de procédure
Voici le code complet avec en gras la partie ajoutée :

Public FlagRH As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If FlagRH = 1 Then Exit Sub
Col = ActiveCell.Column
If Col > 1 Then Exit Sub

Lig = ActiveCell.Row

Groupe = Cells(Lig, Col).Value
If Groupe <> "O" Then Exit Sub
FlagRH = 1
Message = "Entrez le rhésus + ou -"
Title = "Facteur rhésus"
Defaut = "+"
Do
Rhesus = InputBox(Message, Title, Defaut)
Beep
Loop Until Rhesus = "+" Or Rhesus = "-" Or Rhesus = ""
Cells(Lig, 2).Value = Rhesus
Cells(Lig + 1, 2).Select
FlagRH = 0
End Sub

à plus
   
Répondre à LePierre

10


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 déjà.vu, le jeudi 20 mars 2008 à 10:52:11
merciiii

c'est impeccable!
   
Répondre à déjà.vu

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
déjà.vu, le mercredi 19 mars 2008 à 15:41:10
je le met dans une listbox
   
Répondre à déjà.vu
Posez votre question Répondre

Résultats pour menus déroulants dans excel

Menu deroulant sous excel avec remontée info (Résolu) Bonjour, Je cherche a créer un menu deroulant sous excel qui me permette de remonter des informations provenant d'un autre tableau Par example, j'ai 5 different sorte de fruit, pomme bannane peche poire fraise chacun a une reference et un... www.commentcamarche.net/forum/affich-4584472-menu-deroulant-sous-excel-avec-remontee-info
Menu déroulant dynamique php/mysql et ajax (Résolu) Bonjour, Alors, pour expliquer mon probleme rapidement :d J'aimerais créer un formulaire, possédant quelques menus déroulant dynamique, le second étant basé sur le premier : Par ex, on possède une interface administration, grâce a laquelle on... www.commentcamarche.net/forum/affich-8127805-menu-deroulant-dynamique-php-mysql-et-ajax
Excel comment faire un menu déroulant ? (Résolu) Bonjour, Je cherche à faire un menu déroulant (j’ai déjà regardé les tuto sur ce sujet mais pas exactement ce que je recherche),donc voilà j’ai une page Excel qui contient deux feuilles, une pour les calculs et une pour les clients. Les clients sont... www.commentcamarche.net/forum/affich-2595277-excel-comment-faire-un-menu-deroulant

Résultats pour menus déroulants dans excel

Ajouter un raccourci dans le menu contextuel du poste de travailQui n'a jamais rêvé de pouvoir avoir accès en un seul clic à certaines commandes enfouies dans les menus déroulants du système ? Problématique Imaginons que nous voulions aller dans la fenêtre de gestion de l'ordinateur. 2... www.commentcamarche.net/faq/sujet-5359-ajouter-un-raccourci-dans-le-menu-contextuel-du-poste-de-travail
1 2 3 Suivant

Résultats pour menus déroulants dans excel

Excel - A partir d'un menu déroulant (Résolu)Bonjour, Je cherche actuellement à attribuer des séries de codes prédéfinis dans des champs. Pour le premier champ j'ai installé un menu déroulant qui fonctionne. Ce premier menu déroulant propose une vingtaine de codes alphanumériques. Je... www.commentcamarche.net/forum/affich-5677766-excel-a-partir-d-un-menu-deroulant
CSS - Menu déroulant [présentation d'un... ] (Résolu)Bonjour, Je continue tranquillement, y a pas l'feu au lac ! J'ai ajouté un menu déroulant à ma page. Si quelqu'un a envie de s'en servir, no problème, mais attention, je ne suis pas un pro et il reste encore quelques points obscurs... www.commentcamarche.net/forum/affich-2917570-css-menu-deroulant-presentation-d-un
Word 2003/menu déroulant (Résolu)Bonjour à tous Merci d'avance pour vos contributions!!!!! alors j'ai fait un formulaire sous word 2003 et j'essaie d'y inserer un menu déroulan pour une liste de choix mais je n'y arrive pas. Alors si vous pouvez m'aider.... www.commentcamarche.net/forum/affich-3645531-word-2003-menu-deroulant
1 2 3 Suivant

Résultats pour menus déroulants dans excel

Fichier TSKFormat TSK Un fichier TSK est un thème pour Windows Mobile (Pocket PC).Un thème définit contient dans un seul fichier le fond d'écran, la couleur de la barre de menu, la couleur de la barre d'icones et le fond du menu déroulant de la page de... www.commentcamarche.net/contents/fichier/tsk.php3
1 2 3 Suivant