Microsoft 365 liste deroulante

[mart9395]

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

 

[cedric6705]

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]

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

 

[Ikito]

Bonjour,

A voir si quelque chose comme ça pourrait convenir ?

 

[sylvanu]

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

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]

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

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]

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

 

[mart9395]

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

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]

Merci je vais essayer

Merci je vais essayer mais pas évident

 

[mart9395]

Bonjour,

A voir si quelque chose comme ça pourrait convenir ?

Oui ce serait ça

 

[mart9395]

Merci je vais essayer mais pas évident

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

 

[goube]

Bonsoir,

Une autre solution.
Cordialement

 

[mart9395]

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]

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]

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