Afficher texte et chiffres dans cellule

denice43 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
denice43 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -
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

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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
denice43 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
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
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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
denice43 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Pour les macros c'est bon, mais je pensais pouvoir y échaper
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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
denice43 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

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

Est-il possible d'avoir une explication ?

Merci
0