Liste de choix : Première lettre du choix dans la cellule concernée

[bulbilu]

Bonjour à tous
Allez, après deux jours de recherche sur le forum, je craque... Le problème est tellement simple et les réponses aux questions posées tellement pro que je ne me fais pas trop de soucis. Bon j'arrête de bavarder et vous remercie d'avance...
J'aimerais que la première lettre du choix fait dans une liste de choix apparaisse dans la cellule concernée par cette liste
Exemple :
liste en A1
Lundi
Mardi
Jeudi
Si je sélectionne Lundi, le L viens s'inscrire en A1

Un bon exemple ici :
https://www.excel-downloads.com/thr...e-choix-et-renvoi-dune-valeur-associee.68467/
Mis là je ne suis pas de niveau !!!

Merci à tous et bonne fin de week end

 

[DoubleZero]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

Bonjour, bulbilu, le Forum,

Une suggestion dans le fichier joint.

A bientôt 🙂

 

[gilbert_RGI]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

Bonjour

une proposition en PJ 😎

 

[Staple1600]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

Bonjour à tous, 00 (salute)

Comme 00 (mais une Données/Validation en dur) et sans macros mais avec une colonne de plus 😉
En B1: Données/Validation: Autoriser: Liste
Dans Source, saisir:

Lundi;Mardi;Mercredi;Jeudi;Vendredi;Samedi;Dimanche

en A1: =GAUCHE(B1)

 

[david84]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

Bonjour,
- placer un menu déroulant comportant ta liste en A1
- dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [a1] Then Target = Left([a1], 1)
End Sub

A+

 

[bulbilu]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

Bonjour DoubleZéro...
...et merci pour ta réponse !
Dans le fichier-joint je n'obtiens qu'une simple liste de validation mais je voudrais que la cellule A1 m'affiche la première lettre du choix fait dans cette liste :
L pour Lundi
V pour vendredi
...
J'utilise excel 2003, peut-être que...

 

[bulbilu]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

OUI !!!!!!
Mais comment fais-tu ???
Mon niveau très moyen sous excel ne me permet pas d'aller bien loin ! J'ai regardé dans validation, nom de liste et format de cellule mais je ne trouve rien qui puisse m'aider à trouver comment tu as fait ?
Si tu peux m'éclairer...

 

[bulbilu]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

C'EST GAGNé !!!!!!!!!!!!!!!!!!
Merci David, ça va carrément me changer la vie ! Le genre de truc qu'on devrait nous apprendre avec le premier biberon !

Et merci à tous d'avoir passé du temps à éclaircir mes moments obscurs sur excel !!! Et dieu sait qu'il y en a !

 

[DoubleZero]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

Bonjour, le Fil, le Forum,

Sont présentes une liste de validation et une macro, placée dans le code de l'onglet "Feuil1".

Pour accéder à la macro :

- clic droit sur l'onglet "Feuil1" ;

- clic gauche sur "Visualiser le code" ;

- double clic sur "Feuil1(Feuil1)".

Les autres propositions, émises par gilbert_RGI, david84 et Staple1600, ont-elles été testées ?..

A bientôt 🙂

 

[david84]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

Re

Les autres propositions, émises par gilbert_RGI, david84 et Staple1600, ont-elles été testées ?..

Je n'en suis pas sûr : la mienne plante.
Nouvelle proposition à tester toujours sur l'événement Change :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Application.EnableEvents = False
    Target = Left(Target, 1)
    Application.EnableEvents = True
End If
End Sub

A+

 

[bulbilu]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

Oui ça fonctionne, je n'avais pas remarqué qu'il fallait sélectionner une autre cellule pour obtenir le résultat. La "fonction" Target utilisée par David 84 affiche directement le résultat, ce que je vais préférer.
Encore merci pour ton aide

 

[bulbilu]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

Pour ma part ce code fonctionne très bien. C'est exactement ce que je cherchais.
Je cherche maintenant à l'appliquer sur une plage de cellule, disons de A1 à A10. J'ai essayé de modifier le code à grand coup de ";" et de "," mais comme par hasard sans aucun résultat...
Et si le code pouvait tenir compte automatiquement des modifications effectuées sur la feuille, comme des ajouts de colonnes ou de lignes, je fonce à la Bonne Mère brûler un cierge ! 🙄

 

[david84]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

Re
pour l'appliquer à la plage A1:A10 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    Application.EnableEvents = False
    Target = Left(Target, 1)
    Application.EnableEvents = True
End If
End Sub

Et si le code pouvait tenir compte automatiquement des modifications effectuées sur la feuille, comme des ajouts de colonnes ou de lignes, je fonce à la Bonne Mère brûler un cierge !

Trop vague, je ne sais pas ce que tu attends exactement.
A+

 

[Si...]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

Salut

Si... Excel2010 : 2 lignes indispensable.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Or Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
  Application.EnableEvents = False 'indispensable avec 2010
  Target = Left(Target, 1)
  Application.EnableEvents = True 'indispensable avec 2010
End Sub

maintenant, pour l'ajout de lignes, de colonnes, il faut voir comment est défini la liste de Validation

 

[bulbilu]

Re : Liste de choix : Première lettre du choix dans la cellule concernée

Cette fois tout est réglé pour moi. J'utilise le code donné par David84 en #13 ce qui m'affiche la première lettre du choix dans la cellule même et je remplace la plage de cellule par le nom de cette plage que j'ai défini précédemment par Nom/Définir. Le code est ainsi mis à jour si j'insère des colonnes ou des lignes dans ma feuille.
Merci à tous pour votre aide... précieuse !