Aide pour finaliser une macro

Bonjour à tous
Le code ci-dessous me permet en cliquant 2 fois dans une cellule du tableau se trouvant dans la feuille "Factures" de trouver l'équivalent dans la feuille "Engagements".
Mon problème est que je suis obligé de chercher la ligne colorée à l'aide de la souris car la ligne n'apparait pas directement.
Donc, je souhaiterai que lorsque je clique, la ligne concerné dans "Engagements" soit en début de tableau, car si la ligne est la 2500ème, ce n'est pas pratique, il faut donc que la 2500ème ligne(par exemple) soit en focus en quelque sorte.
Merci pour l'aide que vous pourrez m'apporter et j'espère avoir été clair dans mes explications.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Valeur As Variant Dim Cellule As Range   If Not Intersect(Target, Range("A6:A3000")) Is Nothing Then Sheets("Engagements").Cells.Interior.ColorIndex = -4142 ' On remet les lignes en couleur automatique Valeur = Target.Value Cancel = True Sheets("Engagements").Visible = True Sheets("Engagements").Activate Set Cellule = Sheets("Engagements").Range("D6:D60000").Find(What:=Valeur, LookIn:=xlValues, LookAt:=xlWhole) If Not Cellule Is Nothing Then Cellule.EntireRow.Interior.Color = vbYellow End If End Sub

---

Bonsoir,



Il suffit d'activer la cellule au moment ou tu la colorise ... (tiens j'ai trouvé un cas où c'est utile d'utilser Activate :mouarf: )

Code:

---

1 2 3 4 5

If Not Cellule Is Nothing Then Cellule.EntireRow.Interior.Color = vbYellow Cellule.Activate End if

---

bonsoir àtous

si je comprends bien tu peux essayer

Code:

---

If Not Cellule Is Nothing Then Application.goto Sheets("Engagements").range(cellule.address), true: Cellule.EntireRow.Interior.Color = vbYellow

---

cordialement

Bonjour à tous,

Merci JackOuYa pour ta proposition, ça fonctionne. Merci également à Fred65200.
Mon problème est résolu
A bientôt