Transformer un nombre en un mot de mon choix

thuriot · 27 Septembre 2014

Bonjour,

Par exemple j'ai un résultat qui est de 0 en A1 je voudrais qu'il soit transformé immédiatement dans la cellule en A1 en mauvais, éventuellement en b1
le 1 en bon
le 2 en faux
etc
quelle est la fonction qui me permettrait d'arriver à ce résultat
Merci à tous

R@chid · 27 Septembre 2014

Re : Transformer un nombre en un mot de mon choix

Bonsoir @ tous,
en B1,

Code:

=CHOISIR(A1+1;"Mauvais";"Bon";"Faux")

@ + +

JCGL · 27 Septembre 2014

Re : Transformer un nombre en un mot de mon choix

Bonjour à tous,
Salut Rachid,

Peux-tu essayer dans le module de la feuille concernée :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target = 0 Then Target = "Mauvais"
If Target.Address = "$A$1" And Target = 1 Then Target.Offset(, 1) = "Bon"
If Target.Address = "$A$1" And Target = 2 Then Target.Offset(, 1) = "Faux"
End Sub

A+ à tous

thuriot · 27 Septembre 2014

Re : Transformer un nombre en un mot de mon choix

Bonjour Rachid et merci déjà pour cette première réponse.

Pour aller plus loin, j'obtiens dans une cellule un résultat suite à une addition.
par exemple A1+A2+A3= résultat en A4 qui peut être 0, 1 ou 2. Est-ce que en fonction du résultat obtenu en A4, je peux avoir immédiatement le résultat sous la forme d'un texte 0 = DISPO, 1 = OK, 2 = Erreur dans la même cellule A4

Merci à vous tous pour vos aimables contributions

PS: je n'avais pas vu le message de JCBL que je remercie

Si... · 27 Septembre 2014

Re : Transformer un nombre en un mot de mon choix

salut

un exemple Si...joint.

Staple1600 · 27 Septembre 2014

Re : Transformer un nombre en un mot de mon choix

Bonjour à tous

Dans la même veine que JCGL, mais avec une autre syntaxe

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.Offset(, 1) = Choose(Target.Value + 1, "Mauvais", "Bon", "Faux")
End If
End Sub

Et l'équivalent en formule (à mettre en B1)

Code:

=SI(A1<3;INDEX({"Mauvais";"Bon";"Faux"};A1+1);"")

NB: Il faut utiliser soit le VBA, soit la formule mais pas les deux en même temps. 😉

thuriot · 27 Septembre 2014

Re : Transformer un nombre en un mot de mon choix

Bonjour,
vous êtes tous mégas bons.
J'essaie vos différentes propositions.
Grand merci
Thuriot

R@chid · 27 Septembre 2014

Re : Transformer un nombre en un mot de mon choix

Bonjour @ tous 😱,

thuriot à dit:
Bonjour Rachid et merci déjà pour cette première réponse.

Pour aller plus loin, j'obtiens dans une cellule un résultat suite à une addition.
par exemple A1+A2+A3= résultat en A4 qui peut être 0, 1 ou 2. Est-ce que en fonction du résultat obtenu en A4, je peux avoir immédiatement le résultat sous la forme d'un texte 0 = DISPO, 1 = OK, 2 = Erreur dans la même cellule A4

Merci à vous tous pour vos aimables contributions

PS: je n'avais pas vu le message de JCBL que je remercie

Code:

=CHOISIR(A1+A2+A3+1;"Dispo";"Ok";"Erreur")

@ + +

mapomme · 28 Septembre 2014

Re : Transformer un nombre en un mot de mon choix

Bonjour à tous,

Si ce n'est qu'une question d'affichage tout en gardant les valeurs 0,1 ou 2 dans la cellule, un essai en utilisant une MFC avec des formats de nombre personnalisés (fait sur Excel 2010).

thuriot · 28 Septembre 2014

Re : Transformer un nombre en un mot de mon choix

Merci, ça fonctionne super
Thuriot

Transformer un nombre en un mot de mon choix

thuriot

Guest

R@chid

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Pièces jointes

thuriot

Guest

Si...

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

thuriot

Guest

R@chid

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

thuriot

Guest

Discussions similaires

Transformer un nombre en un mot de mon choix

thuriot

Guest

R@chid

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Pièces jointes

thuriot

Guest

Si...

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

thuriot

Guest

R@chid

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

thuriot

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency