Probleme de Recherche dans une table

[saadmechiche]

bonjour

j'ai un probleme lors de la recherche d'une reference se trouvant dans la page4 (la reference est saisie dans la page1 colonne ralentisseur , le programme doit trouver le reference "plateau" correpondante dans la page 4
le programme reussi a trouver la cellule correspondante (plateau) mais donne un message d'erreur.
Pouvez vous m'aider .
Merci

PS : voir le code de la page 1 dans VBA merci

 

[kjin]

Re : Probleme de Recherche dans une table

Bonjour,

Pouvez vous m'aider .

Oui, bannir les cellules fusionnées surtout dans ce cas !
Edit : en outre

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
Dim c As Range
If Target.Count > 1 Then Exit Sub
If Target.Row < 5 And Target.Column <> 2 Then Exit Sub
With Sheets("Sheet4")
    Set plage = .Range("B2:B" & .Range("B65536").End(xlUp).Row)
End With
If Target.Value <> "" Then
    Set c = plage.Find(Target.Value)
    If Not c Is Nothing Then
    Target.Interior.ColorIndex = c.Offset(0, -1).Interior.ColorIndex
    Target.Offset(0, 1) = c.Offset(0, -1)
   ' Calcul
    End If
Else
Target.Interior.ColorIndex = xlNone
End If

End Sub

A+
kjin

 

[pierrejean]

Re : Probleme de Recherche dans une table

bonjour saadmechiche

L'erreur provient du fait que lorsque tu mets a jour la colonne c apres recherche la macro est a nouveau declenchée , target devenant la cellule ou a lieu la copie
En limitant le declenchement a la colonne B tout rentre dans l'ordre

Edit : Salut Kjin