Texte automatique

[roukin4]

Bonjour a tous
Je souhaiterais inserer automatiquement un texte quand un numero apparais dans une cellule .

Probleme:

J'exporte une base de donnée visio dans excel , je souhaiterais que certaine info qui apparaissent dans les cellules soit modifié de facon logique .

Exemple :

Lors de l'affichage du nombre "4" dans une cellule il s'affiche "livraison" dans cette meme cellule a la place de "4"
Lors de l'affichage du nombre "5" dans une cellule il s'affiche "installation"dans cette meme cellule a la place de "5"
etc....

Merci par avance

 

[fred65200]

Re : Texte automatique

bonjour
tu peux utiliser le code suivant en remplaçant par le bon numéro de colonne

Sub RemplacerChiffre()
    Columns(1).Replace What:="4", Replacement:="livraison"
    Columns(1).Replace What:="5", Replacement:="installation"
End Sub

ou utiliser un évènement Change dans le module de feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
  Select Case Target.Value
  Case 4: Target.Value = "livraison"
  Case 5: Target.Value = "installation"
  End Select
End If

End Sub

cordialement