Discussion :

[NEC14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JackOuYA]

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 )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
If Not Cellule Is Nothing Then 
         Cellule.EntireRow.Interior.Color = vbYellow
         Cellule.Activate
End if

[fred65200]

bonsoir àtous

si je comprends bien tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

cordialement

[NEC14]

Bonjour à tous,

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