Dans la même cellule:liste de choix et renvoi d'une valeur associée

[Océane]

Bonsoir le forum
Mon titre et long, mais pour une future recherche ce doit etre plus simple.
Toujours est-il que mon exemple lui est simple.
Le Pb doit se résoudre avec la combinaison d'une liste de choix et d'une recherche verticale; mais je sèche.
Si une As des formules peut venir a mon secours....!
Je ne serai pas décu s'il s'agit d'un garcon.
Bonne semaine à tous

 

[ODVJ]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Bonjour,

une simple saisie 1, 2, 3, ...

ça pourrait se faire autrement avec des tableaux de correspondances lettre/libellé et libellé/lettre et des recherchev, mais j'ai trouvé que le numérique était plus simple.

cordialement

 

[Océane]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Ok j'étais troublé par le fait qu'en cliquant sur une cellule de la colonne G : comme "garage" on lise effectivement garage dans la cellule et 1 dans la barre de formule; mais tout s'éclaire.

Bon week end et merci encore pour cette brillante démonstration.

 

[Océane]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Bonjour ODVJ

Aprés avoir pris le temps de "digerer" ta macro je viens de me rendre compte que dans mon exemple je t'ais mis comme valeur à renvoyer une suite alphabétique de lettres; de A à Z .

Serait - il possible de choisir l'affecctation de la valeur;

Soit une liste de trois noms : garage, atelier et maintenance, voir + et choisir G pour garage, A pour atelier, M pour maintenance ou autre ?

En fait avoir un libre choix de la valeur par rapport à la liste.
A+

 

[ODVJ]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Bonjour,

avec ce code et une table nommée "mnémo" ça sera plus maniable.

Private Sub Worksheet_Change(ByVal Target As Range)
vlarg = 1.86
If Not (Intersect(Target, Range("$B$2:$B$17")) Is Nothing) Then
    If Intersect(Target, Range("$B$2:$B$17")).Address = Target.Address Then
        Target.ColumnWidth = 6
        Application.EnableEvents = False
        If Not (IsEmpty(Target.Value)) Then Target.Value = WorksheetFunction.VLookup(Target.Value, Range("mnémo"), 2, False)
        'Target.ColumnWidth = vlarg
        Application.EnableEvents = True
    End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
vlarg = 1.86
If Not (Intersect(Target, Range("$B$2:$B$17")) Is Nothing) Then
    If Intersect(Target, Range("$B$2:$B$17")).Address = Target.Address Then
        Target.ColumnWidth = 6
        Application.EnableEvents = False
        If Not (IsEmpty(Target.Value)) And Len(Target.Value) > 1 Then Target.Value = WorksheetFunction.VLookup(Target.Value, Range("mnémo"), 2, False)
        Application.EnableEvents = True
    End If
Else
    Columns(2).ColumnWidth = vlarg
End If
End Sub

A+

 

[Océane]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Salut
J'ai réalisé d'une maniere intuitive ce que tu m'as dit et à ma grande surprise çà marche.

Surprise car les formats ne se comportent pas de façon identique; si je tape sur atelier je vois atelier dans la barre de formule,et je n'ais pas besoin de taper autre chose !
A+

 

[ODVJ]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Bonsoir,

Nickel !!

c'est normal que dans cette dernière solution tu vois bien apparaître Atelier quand tu est sur la case Atelier.
il n'y a plus de formats spécialisés ni de séquence de chiffres.
j'ai choisi une approche par table et par recherchev comme ça tu peut mettre ce que tu veux.

cordialement

 

[Océane]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Bonsoir ODVJ
J'ai à nouveau besoin de ton aide pour la meme application que j'ai voulue adapter dans le tableau ci-joint avec liste de choix de la feuille "Table" en colonne A & B.
Je pense avoir corrigé la macro correctement, mais par contre, je n'arrive pas à construire la liste de choix en colonne C de la feuille "2006 01".

Si tu as encore un peu de temps à me consacrer !

Bonne semaine

 

[ODVJ]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Bonsoir,

voici un code qui fonctionne chez moi :

Private Sub Worksheet_Change(ByVal Target As Range)
vlarg = 1.86
If Not (Intersect(Target, Range("$c$2:$c$51")) Is Nothing) Then
    If Intersect(Target, Range("$c$2:$c$51")).Address = Target.Address Then
        Target.ColumnWidth = 6
        Application.EnableEvents = False
        If Not (IsEmpty(Target.Value)) Then Target.Value = WorksheetFunction.VLookup(Target.Value, Sheets("table").Range("mnémo"), 2, False)
        Application.EnableEvents = True
    End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
vlarg = 1.86
If Not (Intersect(Target, Range("$c$2:$c$51")) Is Nothing) Then
    If Intersect(Target, Range("$c$2:$c$51")).Address = Target.Address Then
        Target.ColumnWidth = 6
        Application.EnableEvents = False
        If Not (IsEmpty(Target.Value)) And Len(Target.Value) > 1 Then Target.Value = WorksheetFunction.VLookup(Target.Value, Sheets("table").Range("mnémo"), 2, False)
        Application.EnableEvents = True
    End If
Else
    Columns(3).ColumnWidth = vlarg
End If
End Sub

il y manquait un Application.EnableEvents = True

le nom "mnémo" n'était pas défini dans la feuille table (A1:B2)

la spécification de la feuille table pour accéder à mnémo manquait (c'est surprenant car je n'avais pas eu ce problème avant)

la liste de validation de la feuille table (A1:A2) n'était pas nommée (listeV)

les zones de saisie avec validation n'étaient donc pas crées (mettre =listev)

la zone d'intersection portait sur les colonnes B:C au lieu de C:C
c'était la colonne 2 au lieu de la colonne 3 qui était redimensionnée.

A+

 

[Océane]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Bonjour et merçi pour ta patiente

Il me reste un Pb : je ne sais pas comment définir dans VALIDATION / SOURCE la liste de choix;
Si je mets "mnémo" il me répond : la liste de source doit etre délimitée ou faire référence à une seule ligne ou colonne.

(Il reste un "truc" à définir entre le nom de la liste et la colonne A !)
A+

 

[ODVJ]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Bonjour,

ben alors, océane, tu ne lis pas ce que j'écris!!🙂

je t'ai proposé (c'est comme ça que je l'ai fait chez moi) de créer un nom Listev sur la feuille Table pour la zone A1:A2 et de l'utiliser pour la zone de validation.
Listev est en fait la première colonne de mnémo.

cordialement

 

[Océane]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Ouarf ce fût laborieux mais ça marche.

La feuille table est bien pratique cat on peut la masquer, je n'avais pas compris qu'il fallait créer deux listes de choix.
A+
et bonne semaine

 

[Océane]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Rebonsoir
Catastrophe, j'ai construit mon application en entier, tout fonctionnait bien jusqu'a ce que je protège ma feuille à cause des formules qu'elle contient et là la macro se bloque ?
Je ne sais pas pourqoi ?

 

[ODVJ]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Bonsoir,

y a pas de drame ! du calme.

il suffit certainement de déprotéger et reprotéger la feuille par macro ou de libérer des cellules.

je regarde

A+

 

[Océane]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

Pour ta gouverne j'ai neutraliser une protection par mot de passe dans le worksbook que je compte bien remettre.

 

[ODVJ]

Re : Dans la même cellule:liste de choix et renvoi d'une valeur associée

bonsoir,

voilà, ça marche

j'ai remanié ta colonne B qui était récursive

A+