> Tous les forums > Forum Bureautique
 Options dans une cellule Excel 2010
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Pjouv
  Posté le 09/07/2016 @ 14:43 
Aller en bas de la page 
Petit astucien

Bonjour.

Je cherche à pouvoir remplir facilement des cellules Excel 2010 avec des options comme « Oui | Peut-être | Non »…

De ce que j’en connais, les contrôles ActiveX sont des objets qu’on associe à une feuille, non à une cellule.

Comment faire pour avoir ces options qui apparaissent au niveau de la cellule ?

Merci d’avance pour votre aide.

Pjouv

Windows 10

Office 2010

Publicité
LORENZO83
 Posté le 10/07/2016 à 06:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

Je n'ai pas Excel 2010, mais je pense que c'est pareil, utilisez la "Validation de données".

Positionnez-vous sur la cellule de votre choix

-Dans le bandeau, sélectionnez "Données"

-Dans l'onglet "Outils de données", sélectionnez "Validation de données"

-Dans la fenêtre qui s'ouvre, dans l'onglet "Options", dans "Autoriser", sélectionnez "Liste"

-Dans "Source" , tapez: Oui;Peut-être;Non

-Fermez en cliquant sur "OK"

-Vous pouvez recopier cette cellule autant de fois que vous le voulez.

Cdlt

Pjouv
 Posté le 10/07/2016 à 13:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Merci beaucoup pour votre réponse qui est intéressante, mais qui ne répond pas à mon besoin : je trouve les listes de valeur peu pratiques pour affecter à une cellule des options aussi simples.

En continuant mes recherches, j’ai trouvé quelqu’un qui proposait une solution plus proche de ce que je cherche : en contrôlant le double-clic sur une feuille, on peut affecter le caractère « √ » à une cellule, ou faire une bascule entre deux valeurs « Oui | Non » par exemple.

Pas encore exactement ce que j’aurais souhaité, mais ça s’en rapproche. J’en mets le code VBA ci-dessous. Il faut le coller dans le code de la feuille concernée.

Version avec coche

' De Zeitouni - 10/04/2006.

' http://forum.telecharger.01net.com/forum/high-tech/LOGICIELS/Bureautique/cocher-cellule-excell-sujet_255041_1.htm

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

' Fonctionne en faisant, à l'intérieur d'une zone de cellules choisie,

' un double clic sur la cellule pour faire apparaître ou disparaître la coche.

' Adapté par Pjouv le 9/7/2016.

Dim CocheSt As String

CocheSt = ChrW(8730) ' Caractère Unicode représentant une coche (en fait le signe "racine carrée").

With ActiveCell

' Mettre ici les limites de colonnes et des lignes :

If (.Column > 11 And .Column < 15) And (.Row > 11 And .Row < 10000) Then

' Si la case est déjà cochée :

If .Value = CocheSt Then

.ClearContents

Else

.Value = CocheSt

' Mise en forme (optionnel) :

.Font.Name = "Arial"

.Font.Size = 12

.Font.Bold = True

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

End If

' Sort de la cellule (Escape) :

Cancel = True

' Sinon, peut aussi se déplace sur la cellule suivante :

' Cells(.Row, .Column + 1).Activate

End If

End With

End Sub

Version Oui | Non

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

With ActiveCell

' Mettre ici les limites de colonnes et des lignes :

If .Column >= 4 And .Column <= 6 And .Row > 1 Then

Select Case .Value

' Si la case est vide ou déjà mise à Non :

Case Is = "Non", ""

.Value = "Oui"

' Sinon :

Case Else

.Value = "Non"

End Select

' Sort de la cellule (Escape) :

Cancel = True

End If

End With

End Sub

LORENZO83
 Posté le 10/07/2016 à 14:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

RE

Ma proposition simple ne vous convient pas, vous préférez passer par du VBA, pourquoi pas?

Voici, double-cliquez dans la cellule de votre choix pour voir apparaître le liste de choix

http://www.cjoint.com/c/FGkmNdhkvLw

Cdlt

ferrand
 Posté le 10/07/2016 à 16:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

je trouve les listes de valeur peu pratiques pour affecter à une cellule des options aussi simples

C'est pourtant ce qu'il y a de mieux et de plus simple dans ce cas ! Mais pourquoi faire simple...

Cordialement.

Pjouv
 Posté le 10/07/2016 à 16:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Merci beaucoup d’avoir pris le temps de me répondre.

Non, cette solution est moins bonne que la première que vous aviez proposée car il faut en plus faire un double clic avant d’accéder au menu.

Car c’est cela que je trouve pénible dans la solution de la validation de données : il faut d’abord cliquer sur le triangle du menu pour le faire apparaître, puis aller sur l’item choisi. Quand on a un grand nombre de modifications à faire, ça devient vite pénible.

Ce que je cherche, ce serait d’avoir dans chaque cellule d’un champ quelque chose qui ressemble à cela :

Ainsi, d’un simple clic, on pourrait changer les valeurs.

Mais je crains que cela n’existe pas.

Merci encore de vous être intéressé à la question.

Gabrilou
 Posté le 10/07/2016 à 17:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Je ne veux pas me substituer aux pros d'Excel dans ce post, mais regarde dans les deux liens ci-dessous ci ça correspond à ce que tu cherches à faire

http://www.top-assistante.com/bureau/excel/formulaire/formulaire2.php

http://www.admexcel.com/guides/excel2007_03/excel2007-03_019.htm

Edit : un fichier exemple dans le premier lien est accessible



Modifié par Gabrilou le 10/07/2016 17:22
LORENZO83
 Posté le 10/07/2016 à 18:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Je reprends la parole car votre réponse "Quand on a un grand nombre de modifications à faire, ça devient vite pénible." me surprend. En effet, si vous tenez vraiment à appliquer des cases d'options affecter à chaque cellule et que la quantité de cellules soit importante le mot "pénible" va prendre tout son sens, parce que il faut affecter une cellule liée à l'option autant de fois qu'il y a de cellules. pas sûr que cela soit plus pratique.

Une dernière fois je peux vous proposer de reprendre le code que je vous ai fourni, mais plutôt que de l'affecter à la macro "Worksheet_BeforeDoubleClick", remplacez le nom de la macro "Worksheet_BeforeDoubleClick" par "Worksheet_SelectionChange", ce qui évitera le double -clic, il ne restera qu'à faire le choix dans la liste. Si cela ne vous convient pas, essayez d'appliquer la méthode de Gabrilou que je salue.

Cdlt

Pjouv
 Posté le 10/07/2016 à 18:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Merci beaucoup, mais il s’agit toujours de contrôles associés à une feuille, non à une cellule.

Mais je ne connaissais pas ces sites. Top-assistante semble bien fait. C’est intéressant en tout cas.

Merci encore.

Publicité
LORENZO83
 Posté le 10/07/2016 à 18:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

mais il s’agit toujours de contrôles associés à une feuille, non à une cellule, OUI, mais n'ayant pas vu comment était fait votre fichier, on ne peut faire que des suppositions, maintenant dans le code fourni, on peut spécifier une plage de cellules et non la feuille entière (il suffit de rajouter une ligne de code), mais pour cela il faut nous donner cette plage de cellules.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
85,36 €Ecouteurs sans fil Galaxy Buds+ à 85,36 € livrés
Valable jusqu'au 23 Avril

Amazon Allemagne fait une belle promotion sur les écouteurs sans Galaxy Buds+ qui passent à 80,66 € (avec la TVA ajustée). Comptez 4,70 € pour la livraison en France soit un total de 85,36 € livrés au lieu de 120 €. Accompagné d'un son signature AKG, les Galaxy Buds+ délivrent un son puissant, naturel et sans distorsions pour que vous puissiez écouter vos musiques favorites dans les meilleures conditions. De plus, choisissez si vous voulez vous isoler ou au contraire vous immerger dans votre environnement, grâce au système de contrôle d'amplification sonore.Et avec 3 microphones adaptatifs avec réduction des bruits environnants, passez des appels sans le moindre problème de son. Vous bénéficiez alors d'une conversation téléphonique nette et claire.

Les Samsung Galaxy Buds+ offrent une autonomie pouvant atteindre 22 heures (11 heures d'écoute + 11 heures grâce à l'étui) mais également la possibilité d'obtenir 1 heure d'écoute en seulement 3 minutes de charge. N'ayez donc plus aucune crainte à utiliser vos écouteurs, ils vous accompagnent dans tous vos déplacements. De plus, les Galaxy Buds+ sont compatibles avec les appareils certifiés Qi pour un rechargement rapide et simplifié.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
21,24 €Ecouteurs intra-auriculaires Aukey EP-T25 bluetooth à 21,24 €
Valable jusqu'au 25 Avril

Amazon fait une promotion sur les écouteurs sans fil intra-auriculaires Aukey EP-T25 bluetooth qui passent à 21,24 € au lieu de 29,99 €. Ces écouteurs sont discrets, légers, tiennent bien dans l'oreille et offrent une autonomie de 5h environ. Un micro est intégré. 3 modèles de protège-oreilles sous fournis s'adapter parfaitement à vos oreilles et à vos activités : vous pouvez tout à fait courir avec. Ils sont accompagnés de leur boitier de charge sans fil qui vous offre 4 charges supplémentaires, soit 25 heures de lecture au total. La recharge se fait par USB-C et dès que vous ouvrez le boitier, les écouteurs sont automatiquement appairés à votre appareil. Protection IPX5 contre la sueur et la pluie. Une bonne affaire !


> Voir l'offre
54,99 €Casque Audio Logitech G432 à 54,99 €
Valable jusqu'au 23 Avril

Amazon fait une promotion sur casque Logitech G432 qu'il propose à 54,99 € alors qu'on le trouve ailleurs à partir de 79 €. Ce casque dédié aux joueurs est compatible PC, Xbox, PS4 et Switch. Il possède un micro antiparasite qui pivote, un réglage de volume directement sur le fil et offre un son surround Dolby DTS Headphone 7.1. Connexion par USB ou jack 3.5 mm. La livraison est gratuite.


> Voir l'offre

Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique