Microsoft 365 liste deroulante

mart9395 · 17 Février 2020

Bonjour

Quelqu'un pourrait m'aider pour une liste déroulante.
J'ai une liste de pays AD | Andorra que je souhaiterais garder dans la liste déroulante et quand on sélectionne le pays il faudrait que le code AD soit seulement mis dans la cellule.
Je ne sais pas si c'est assez clair

Merci de vos retours

goube · 18 Février 2020

Re,

Tes fichiers modifiés.
Cordialement.

cedric6705 · 17 Février 2020

Essayez avec RECHERCHEV éventuellement, il n'est pas possible de paramétrer cela avec une simple validation de données.
Sachant que changer le libellé simplement n'est pas possible selon moi.

mart9395 · 17 Février 2020

Je ne suis pas au top avec excel, cette commande RECHERCHEV je l'intègre dans la base de donnée

Ikito · 17 Février 2020

Bonjour,

A voir si quelque chose comme ça pourrait convenir ?

sylvanu · 17 Février 2020

Bonjour Mart, le fil
En PJ un essai avec un petit peu de VBA :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Row = 6 And Target.Column = 7 Then        ' A modifier, délimitez la zone active
        Application.EnableEvents = False                ' Inhibe les Events pour éviter les ré-entrances
        Cells(Target.Row, Target.Column) = Left(Target.Value, 2)    ' Extrait les deux premières lettres
        Application.EnableEvents = True                 ' Remet les events actifs.
    End If
End Sub

Ikito · 17 Février 2020

sylvanu à dit:

Bonjour Mart, le fil
En PJ un essai avec un petit peu de VBA :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Row = 6 And Target.Column = 7 Then        ' A modifier, délimitez la zone active
        Application.EnableEvents = False                ' Inhibe les Events pour éviter les ré-entrances
        Cells(Target.Row, Target.Column) = Left(Target.Value, 2)    ' Extrait les deux premières lettres
        Application.EnableEvents = True                 ' Remet les events actifs.
    End If
End Sub

Avec un petit Application.ScreenUpdating = false. Là ça clignote légèrement

sylvanu · 17 Février 2020

Pas sur mon PC. Win10 XL2007. mais on peut le rajouter sans souci.

mart9395 · 17 Février 2020

sylvanu à dit:

Bonjour Mart, le fil
En PJ un essai avec un petit peu de VBA :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Row = 6 And Target.Column = 7 Then        ' A modifier, délimitez la zone active
        Application.EnableEvents = False                ' Inhibe les Events pour éviter les ré-entrances
        Cells(Target.Row, Target.Column) = Left(Target.Value, 2)    ' Extrait les deux premières lettres
        Application.EnableEvents = True                 ' Remet les events actifs.
    End If
End Sub

Merci je vais essayer

mart9395 · 17 Février 2020

mart9395 à dit:
Merci je vais essayer

Merci je vais essayer mais pas évident

mart9395 · 17 Février 2020

Ikito à dit:
Bonjour,

A voir si quelque chose comme ça pourrait convenir ?

Oui ce serait ça

mart9395 · 17 Février 2020

mart9395 à dit:
Merci je vais essayer mais pas évident

Cela me met un message erreur dans la liste déroulante, c'est vraiment galère

goube · 17 Février 2020

Bonsoir,

Une autre solution.
Cordialement

mart9395 · 17 Février 2020

Merci mais cela me fait un message d'erreur quand je crée mes donnée il n'accepte pas les 3 colonnes, message erreur

goube · 17 Février 2020

Re,
Il faut d'abord créer la liste avec une seule colonne, puis générer la validation de données avec cette liste et seulement après modifier le nom en y ajoutant les deux autres colonnes.
Si tu rencontre des problèmes mets un bout de fichier sur le forum.
Cordialement.

mart9395 · 17 Février 2020

Mon fichier de donnée était déjà existant, le voici.
Je ne suis vraiment pas calée sur excel

Microsoft 365 liste deroulante

mart9395

XLDnaute Nouveau

Pièces jointes

goube

cedric6705

XLDnaute Nouveau

mart9395

XLDnaute Nouveau

Ikito

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Ikito

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

mart9395

XLDnaute Nouveau

mart9395

XLDnaute Nouveau

mart9395

XLDnaute Nouveau

mart9395

XLDnaute Nouveau

goube

XLDnaute Impliqué

Pièces jointes

mart9395

XLDnaute Nouveau

goube

XLDnaute Impliqué

mart9395

XLDnaute Nouveau

Pièces jointes

Discussions similaires