Remplacement automatique

Bonjour J'aimerais insérer un remplacement automatique dans une colonne à savoir si je mets:

44 remplacé par asdf

45 remplacé par qwer

47 remplacé par uiop

J'ai essayé avec un remplacement automatique mais ça marche pour tout excel et non pas pour une colonne d'un fichier. Avez-vous une solution à me proposer?

D'avance, je vous remercie.

Nathalie

Bonjour,

ça se fait par macro programme suivant à insérer dans le module de la feuille en question :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Select Case Target
            Case 44: Target = "asdf"
            Case 45: Target = "qwer"
            Case 47: Target = "ulop"
        End Select
    End If
End Sub

Cet exemple fonctionne dans la colonne A donc à adapter.

Salut Jean-Eric

Bonjour,

Bonjour Raja !...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Application.EnableEvents = False
        Select Case Target
            Case 44: Target = "asdf"
            Case 45: Target = "qwer"
            Case 47: Target = "ulop"
        End Select
        Application.EnableEvents = True
    End If
End Sub

Je vous remercie pour votre aide, mais je ne suis pas capable de mettre en place ces macros apparemment car ça ne fonctionne pas.

Re,

@ Nathalie,

Peux-tu joindre un petit fichier ?

Cdlt.

Bonjour,

voici une partie de mon fichier.

Merci à qui peut m'aider. Je précise que je n'y connais pas grand chose en macro donc j'ai besoin d'une aide étape par étape.

Un tout tout grand merci.

Nathalie

6essai-macro.xlsx (8.70 Ko)

Bonjour,

J'ai résolu mon problème en insérant une liste déroulante, c'est parfait comme ça.

Merci à tous belle journée

Bonjour,

Il serait également possible d'utiliser la fonction intégrée ''Correction automatique'', tel qu'expliqué à ce lien :

https://www.mediaforma.com/excel-2016-corrections-en-cours-de-frappe/

Bon, je pense qu'il peut être dangereux de choisir de remplacer 44 par asdf, car a chaque fois que ce chiffre devra être utilisé, le remplacement sera fait.

Dans le fichier ci-joint j'ai remplacé 44t (t pris au hasard, juste de manière à ce que ce ne soit pas un texte courant) par asdf, 45t par qwer et 46t par Hula hoop.

Cordialement.

Rechercher des sujets similaires à "remplacement automatique"