Remplacement automatique code par texte

yamoon · 23 Octobre 2009

Bonjour à tous,

Je suis novice sur excel et j'ai besoin désespérement de votre aide.

Travaillant dans une bibliothéque nous fonctionnons avec excel. Pour chaque livre rendu nous remplissons un fichier excel avec un code.

Ex : Colonne A nom du livre
Colonne B nom du client
Colonne C : Code.

Ce que je recherche c'est de creer une colonne D qui se remplirait automatique en fonction du code selectionné.

Ex : si je tape "A161" -> la colone D se remplit automatiquement avec le texte "Livre rendu".

J'ai donc fait des recherches et j'ai réussit à me dépatouiller à me créer un fichier excel avec une macro qui remplace automatiquement les codes tapés dans la feuil 1 par le texte (inscrit dans la feuille 2). Le problème cela ne fonctionne que si je tape ou copie 1 a 1 mes codes, si je fais un copier coller de plusieurs codes dans la feuil 1 j'ai un message d'erreur "Run Time error 94".

Pouvez vous m'aider à résoudre le problème ?

(désolé si je ne suis pas assez clair).

Merci d'avance !!!!

Yann

Lii · 23 Octobre 2009

Re : Remplacement automatique code par texte

Bonjour,

essaie (dans la partie "Feuil1") le

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim C As Range, Cel As Range
  If Target.Column > 1 Or Target.Row = 1 Then Exit Sub
  For Each C In Range(Target.Address)
    If C <> "" Then
      For Each Cel In Feuil2.Range("A2:A4932")
        If Cel = C Then C.Offset(, 3) = Cel.Offset(, 1)
      Next
    Else
      C.Offset(, 3) = ""
    End If
  Next
End Sub

Remplacement automatique code par texte

yamoon

XLDnaute Nouveau

Pièces jointes

Lii

XLDnaute Impliqué

Discussions similaires

Remplacement automatique code par texte

yamoon

XLDnaute Nouveau

Pièces jointes

Lii

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency