> 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
25,49 €Casque sans fil Sony WH-CH500 Bluetooth à 25,49 € avec le code 15CASQUE
Valable jusqu'au 22 Avril

Cdiscount fait une promotion sur le casque sans fil Sony WH-CH500B Bluetooth qui passe à 25,49 € avec le code 15CASQUE alors qu'on le trouve ailleurs à plus de 60 €. Ce casque sans fil rechargeable (via USB-C) offre jusqu'à 35h d'autonomie. Il possède un microphone intégré et permet des appels mains libres avec annulation de l’écho et suppression des bruits extérieurs.


> Voir l'offre
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
58,99 €Routeur TP-Link Archer AX10 WiFi 6 à 58,99 €
Valable jusqu'au 22 Avril

Amazon fait une promotion sur le routeur TP-Link Archer AX10 WiFi 6 qui passe à 58,99 € au lieu de 80 €. La livraison est gratuite. L’Archer AX10 de TP-Link embarque la technologie WiFi 6 (802.11ax) qui permet de passer à la vitesse supérieure (1.5 Gbps) tout en étant rétro-compatible avec les normes WiFi 802.11a/b/g/n/ac. Doté de 4 antennes Wi-Fi et capable de prendre en charge la technologie 1024 QAM et les canaux 160 MHz, l'Archer AX10 est aussi pourvu d'une prise WAN 1 GbE et de 4 ports Ethernet Gigabit. Les nombreux appareils connectés peuvent ainsi bénéficier de la meilleure connexion possible en toute fluidité.


> Voir l'offre

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