Petit (?) pb de liste déroulante
Fermé
EPO94
Messages postés
2
Date d'inscription
samedi 9 mars 2013
Statut
Membre
Dernière intervention
10 mars 2013
-
9 mars 2013 à 11:45
via55 Messages postés 14507 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 31 décembre 2024 - 10 mars 2013 à 19:20
via55 Messages postés 14507 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 31 décembre 2024 - 10 mars 2013 à 19:20
A voir également:
- Petit (?) pb de liste déroulante
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Google sheet liste déroulante - Accueil - Guide bureautique
- Supprimer une liste déroulante excel - Forum Word
- Petit l ✓ - Forum Loisirs / Divertissements
2 réponses
via55
Messages postés
14507
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
31 décembre 2024
2 738
9 mars 2013 à 12:16
9 mars 2013 à 12:16
Bonjour,
Une possibilité en VBA
ALT F11 pour ouvrir l'éditeur et dans le Worsheet de la feuille entrer le code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "choix 1" Then Target.Value = "11"
If Target.Value = "choix 2" Then Target.Value = "22"
If Target.Value = "choix 3" Then Target.Value = "33"
End Sub
Cdlmnt
Une possibilité en VBA
ALT F11 pour ouvrir l'éditeur et dans le Worsheet de la feuille entrer le code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "choix 1" Then Target.Value = "11"
If Target.Value = "choix 2" Then Target.Value = "22"
If Target.Value = "choix 3" Then Target.Value = "33"
End Sub
Cdlmnt
EPO94
Messages postés
2
Date d'inscription
samedi 9 mars 2013
Statut
Membre
Dernière intervention
10 mars 2013
10 mars 2013 à 18:24
10 mars 2013 à 18:24
Merci pour cette réponse qui cependant est trop fastidieuse pour moi car il faut saisir les choix et les valeurs dans le code or j'ai trop de listes déroulantes différentes à traiter. Je souhaiterai vraiment saisir mes choix et mes valeurs dans des cellules (et ainsi pouvoir facilement les modifier).
Merci d'avance si vous avez d'autres idées.
Merci d'avance si vous avez d'autres idées.
via55
Messages postés
14507
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
31 décembre 2024
2 738
10 mars 2013 à 19:20
10 mars 2013 à 19:20
Bonjour,
Ok il faut alors proceder par rechercheV (enfin son équivalent en VBA
Le code à mettre dans le worksheet_change
On Error Resume Next
Target.Value = WorksheetFunction.VLookup(Cells(Target.Row, Target.Column), Sheets("XXXX").Range("A1:B3"), 2, False)
Remplacer les XXXX par le nom de la feuille où se trouve le tableau et A1:B3 par les references de la plage de ce tableau
Le on error resume next evite le renvoi d'un message d'erreur lorsque la valeur rentrée n'est plus retrouvée dans la 1ere colonne du tableau
Cdlmnt
Ok il faut alors proceder par rechercheV (enfin son équivalent en VBA
Le code à mettre dans le worksheet_change
On Error Resume Next
Target.Value = WorksheetFunction.VLookup(Cells(Target.Row, Target.Column), Sheets("XXXX").Range("A1:B3"), 2, False)
Remplacer les XXXX par le nom de la feuille où se trouve le tableau et A1:B3 par les references de la plage de ce tableau
Le on error resume next evite le renvoi d'un message d'erreur lorsque la valeur rentrée n'est plus retrouvée dans la 1ere colonne du tableau
Cdlmnt