Chiffre en phrase

DOKA -  
jc80 Messages postés 5063 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

coment convertir un chiffre en text sur une cellule
exemple : si je mets 1 il devient "le matin" et si je mets 2 il devient "le soir"

Merci.

6 réponses

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    dans la même cellule, avec le format personnalisé :
    [=1]"Matin";[=2]"Soir"

    eric
    2
    1. TURGUT-BEY Messages postés 13 Statut Membre
       
      Tres bien merci à vous.
      0
  2. diablo13800 Messages postés 3469 Date d'inscription   Statut Membre Dernière intervention   1 872
     
    Bonjour,

    Je vous propose de passer par une formule.
    Si vous avez en A1 le chiffre , vous pouvez mettre en B1 :
    =Si(A1=1;"Le matin"; "Le soir")

    J’espère que ça vous correspond
    0
  3. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    Bonjour

    dans la même cellule, la manip ne peut se faire que par VBA
    essayez ceci,, à adapter
    (valable ici en colonne A de ligne 3 à ligne 11

    Private Sub Worksheet_change(ByVal Target As Range)
    If Target.Column = 1 And Target.Row > 2 And Target.Row < 12 Then
    If Target.Cells.Value = 1 Then Target.Cells.Value = "matin"
    If Target.Cells.Value = 2 Then Target.Cells.Value = "soir"
    End If
    End Sub


    à coller dans le code feuille (clic droit sur l'onglet et "visualiser le code"

    crdlmnt
    0
    1. TURGUT-BEY Messages postés 13 Statut Membre
       
      comment faire ? j'ai pas compris. je travaille sur la colonne F7
      0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. DOKA
     
    Je cherche de convertir le nombre dans la meme cellule si c'est possible
    0
  6. jc80 Messages postés 5063 Date d'inscription   Statut Membre Dernière intervention   1 443
     
    Bonjour
    A coller dans la feuille qui contient la cellule F7

    Private Sub Worksheet_change(ByVal Target As Range)
    If Target.Column = 6 And Target.Row =7 Then
    If Target.Cells.Value = 1 Then Target.Cells.Value = "matin"
    If Target.Cells.Value = 2 Then Target.Cells.Value = "soir"
    End If
    End Sub
    0