comparaison et affichage de données

[fred]

Bonjour a tous,

j'ai un petit soucis avec excel , je m'explique :

Sur la feuille 1 j'ai deux données differentes par cellule exemple:

Mickael Jackson | hollywood

Et je veux que sur la feuille deux si je tape dans une cellule mickael jackson, hollywood apparaissent automatiquement dans la cellule a coté.

J'espere que je suis clair dans mes explications, n'hesitez pas a demander des details.

d'avance merci a vous.

 

[michel]

bonsoir fred

peux tu tester la procedure ci joint . cette macro est à placer dans la feuille 2 .
dans l'exemple , quand tu saisies une donnée dans une cellule de la feuille 2 , si la donnée se trouve aussi dans une des cellules A1:a10 de la feuille 1 , la partie complémentaire est affichée dans la cellule d'à coté

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim indice As Object
Dim val As String
Dim result As String

On Error Resume Next

val = Target.Value
If val <> "" Then
With Sheets(1).Range("A1:A10") ' à adapter selon données de base
Set indice = .Find(val, LookIn:=xlValues)

If Not indice Is Nothing Then
Application.EnableEvents = False
result = Right(indice.Value, Len(indice.Value) - Len(Target.Value))
Sheets(2).Range(Target.Address).Offset(0, 1) = result
End If
End With
End If
Application.EnableEvents = True

End Sub


bonne soirée
michel

 

[fred]

je teste et te tiens informé , en tout cas un grand merci

 

[fred]

cela fonctionne merci !