Afficher texte et chiffres dans cellule

denice43 Messages postés 5 Statut Membre -  
denice43 Messages postés 5 Statut Membre -
Bonjour,

Je vais essayer d'être clair dans ma demande.

je souhaite afficher automatiquement des chiffres alors que je tape du texte.

Petit exemple :

Je souhaite taper ABC dans ma celulle
et je souhaiterai que 12ABC-3456 s'affiche, toujours dans la même cellule.

Je ne sais pas si cela est réalisable ?

Merci de vos réponse

6 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour

    Et comment sait on les nombres qu'il faut inclure
    comment sait on combien de chiffres comporte chaque nombre

    merci d'^tre précis dans votre demande
    0
  2. denice43 Messages postés 5 Statut Membre
     
    Bonjour,

    Merci de votre réponse si rapide.

    c'est toujours les même nombres que je doit inclure soit 12###-3456

    Cela sera juste les trois lettres qui changerons

    Denice43
    0
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    comme tu modifies une cellule dans la quelle se rajoutera automatiquement tes nombres, il faut passer par une macro dite "événementielle"

    si pour toi, les macros,c'est du chinois fais signe
    0
  4. denice43 Messages postés 5 Statut Membre
     
    Pour les macros c'est bon, mais je pensais pouvoir y échaper
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Re,
    Option Explicit
    Const Plage As String = "A2:H19"
    Const Prefixe As String * 2 = "12"
    Const Suffixe As String = "-3456"
    '--------------------------
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Texto As String
    If Not Intersect(Target, Range(Plage)) Is Nothing Then
    If Target = "" Then Exit Sub
    Texto = Target
    Application.EnableEvents = False
    Target = Prefixe & Texto & Suffixe
    Application.EnableEvents = True
    End If
    End Sub

    Sub SOS_events()
    'INDISPENSABLE pour reactiver les macros Excel si sortie accidentelle _
    en phase enableevelnts=false
    Application.EnableEvents = True
    End Sub

    0
  7. denice43 Messages postés 5 Statut Membre
     
    Re,

    Par contre là c'est du chinois pour moi.

    Est-il possible d'avoir une explication ?

    Merci
    0