Remplacer valeur par texte

[laretaille]

Bonjour à tous,
Comment procéder pour pour remplacer une valeur (un nombre) par un texte prédéfini ,
Explication : Si je tape, je veux qu'il soit écrit le nom d'une revue, si je tape 2, je veux qu'il soit écrit un nom d'une autre revue, etc... etc...
MErci d'avance et longue vie à ce forum. CR

 

[Minick]

Salut,

Tu trouveras un petit exemple en piece jointe, tu parametre tes revues et tes code en feuil2 et quand tu tapes le code en feuil1 normalement le remplacement se fait.
l'espace ' ' est utilisé ici comme séparateurcad si tu tapes 1 2 le resultat sera Revue 1 Revue 2, si tu tapes 1, 2 tu auras 1, Revue 2

J'espere avoir été assez clair

@+ Minick

 

[laretaille]

Bonjour,
Merci pour cette réponse. Tout fonctionne parfaitement sous Excel 2000.
Une amie voudrait pouvoir faire la même chose sous Excel 97.
Est-ce-possible ?
Merci

 

[Minick]

Salut,

Malheureusement je n'est pas de version 97 à ma disposition.

Si quelqu'un pouvez terter pour nous il sera le bienvenu

@+ Minick

 

[michel]

bonsoir Minick et Laretaille

la fonction Split n'est pas reconnue par Excel97

Laretaille , tu peux faire des essais en remplaçant la macro jointe dans le classseur proposé par Minick
j'espere que cela pourra t'aider


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Valeur As Variant
Dim Resultat As String, Donnee As String, Recherche As String
Dim Compteur As Byte
Dim Trouve As Long
Dim nouveau As String

On Error Resume Next
Recherche = Target & " "
For Compteur = 1 To Len(Recherche)

Valeur = Mid(Recherche, Compteur, 1)

If Valeur = " " Then ' à adapter selon séparateur utilisé
Trouve = Application.Match(CLng(Donnee), Sheets("Feuil2").Range("A1:A10"), 0)

If Not Trouve = 0 Then
nouveau = Sheets("Feuil2").Range("A" & Trouve).Offset(0, 1)
Resultat = Resultat & " " & nouveau
Else
Resultat = Resultat & " " & Donnee
End If

Donnee = ""
Trouve = 0
Else

Donnee = Donnee & Valeur

End If

Next Compteur
Application.EnableEvents = False
Range(Target.Address) = Resultat
Application.EnableEvents = True

End Sub



bonne soiree
MichelXld