affichage alternatif d'une cellule

Le
Pierre
ce que j'aimerais faire, c'est que le contenu d'une cellule s'affiche,
non pas comme il est saisie mais d'une manire alternative. je
m'explique: pour des facilits de saisie, l'utilisateur saisie un code
et le texte affich l'ecran correspond une nomenclature

1 = banane
2 = orange
etc.

l'utilisateur saisi la valeur numrique mais c'est le texte qui
s'affiche.

oubien l'utilsateur entre n ou N dans la case et c'est non qui
s'affiche.

mais la valeur doit reste inchange, seul l'affichage change (par
exemple si c'est des notes, on peut continuer faire une moyenne mais
l'affichage est un mot variant de mdiocre excellent.

est-ce possible ?

d'avance merci
Pierre.
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Daniel
Le #4180301
Bonjour.
Mets cette macro dans le code de ta feuille. Elle se déclenche pour l'entrée
de codes en colonne A. Si la liste est longue ou si elle change souvent, tu
as intérêt à utiliser une plage de ta feuille au lieu de rentrer les valeurs
"en dur" dans la macro :

Cas 1, valeurs dans la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Value
Case 1: Target.Value = "banane"
Case 2: Target.Value = "orange"
Case Else: MsgBox "Erreur de saisie"
End Select
Application.EnableEvents = True
End Sub

Cas 2 Utilissation d'une plage de cellules (codes dans la colonne de gauche
et fruits dans la colonne de droite) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fruit
If Target.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Fruit = Application.VLookup(Target, Range("plage"), 2, 0)
If IsError(Fruit) Then
Application.EnableEvents = True
MsgBox "Erreur de saisie"
Exit Sub
End If
Target.Value = Fruit
Application.EnableEvents = True
End Sub

Cordialement.
Daniel

"Pierre"
ce que j'aimerais faire, c'est que le contenu d'une cellule s'affiche,
non pas comme il est saisie mais d'une manière alternative. je
m'explique: pour des facilités de saisie, l'utilisateur saisie un code
et le texte affiché à l'ecran correspond à une nomenclature

1 = banane
2 = orange
etc.

l'utilisateur saisi la valeur numérique mais c'est le texte qui
s'affiche.

oubien l'utilsateur entre n ou N dans la case et c'est non qui
s'affiche.

mais la valeur doit reste inchangée, seul l'affichage change (par
exemple si c'est des notes, on peut continuer à faire une moyenne mais
l'affichage est un mot variant de médiocre à excellent.

est-ce possible ?

d'avance merci
Pierre.
Pierre
Le #4404601
je vais tenter ça, merci

On Feb 7, 8:01 am, "Daniel"
Bonjour.
Mets cette macro dans le code de ta feuille. Elle se déclenche pour l'e ntrée
de codes en colonne A. Si la liste est longue ou si elle change souvent, tu
as intérêt à utiliser une plage de ta feuille au lieu de rentrer le s valeurs
"en dur" dans la macro :

Cas 1, valeurs dans la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Value
Case 1: Target.Value = "banane"
Case 2: Target.Value = "orange"
Case Else: MsgBox "Erreur de saisie"
End Select
Application.EnableEvents = True
End Sub

Cas 2 Utilissation d'une plage de cellules (codes dans la colonne de gauc he
et fruits dans la colonne de droite) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fruit
If Target.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Fruit = Application.VLookup(Target, Range("plage"), 2, 0)
If IsError(Fruit) Then
Application.EnableEvents = True
MsgBox "Erreur de saisie"
Exit Sub
End If
Target.Value = Fruit
Application.EnableEvents = True
End Sub

Cordialement.
Daniel

"Pierre"
ce que j'aimerais faire, c'est que le contenu d'une cellule s'affiche,
non pas comme il est saisie mais d'une manière alternative. je
m'explique: pour des facilités de saisie, l'utilisateur saisie un code
et le texte affiché à l'ecran correspond à une nomenclature

1 = banane
2 = orange
etc.

l'utilisateur saisi la valeur numérique mais c'est le texte qui
s'affiche.

oubien l'utilsateur entre n ou N dans la case et c'est non qui
s'affiche.

mais la valeur doit reste inchangée, seul l'affichage change (par
exemple si c'est des notes, on peut continuer à faire une moyenne mais
l'affichage est un mot variant de médiocre à excellent.

est-ce possible ?

d'avance merci
Pierre.


Poster une réponse
Anonyme