Sélection de cellule.

[Hulk]

Hello 😀

Petit souci de sélection d'une cellule, ça me grr 😡

Un expert pourrait-il m'aider ?

Merci pour votre aide.

Hulk.

 

[porcinet82]

Re : Sélection de cellule.

Salut,

Avec ce bout de code à placer dans le module de la feuille concernée (click droit sur l'onglet puis visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%
If Not Intersect(Target, Range("G2")) Is Nothing Then
    For i = 7 To Range("G7").End(xlDown).Row
        If Range("G" & i).Value = Range("G2").Value Then Range("G" & i).Select
    Next i
End If
End Sub

@+

 

[job75]

Re : Sélection de cellule.

Bonjour Hulk, Romain,

Une solution plus simple (Romain, tu ne m'en voudras pas ?) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$2" Then Exit Sub
On Error Resume Next
Cells(6 + Application.Match([G2], [G7:G10], 0), 7).Select
End Sub

A+

 

[porcinet82]

Re : Sélection de cellule.

re, Salut Job,

Plus simple, plus simple, encore fallait-il connaitre la fonction Match !!!! 😛
Mais je vais essayer de la retenir, elle à l'air assez pratique !!!

Au plaisir,

@+

 

[Hulk]

Re : Sélection de cellule.

Bonsoir à tous, Porcinet, Job,

Désolé de ne pas avoir répondu avant.
Merci pour vos réponses, c'est exactement ce qu'il me fallait.
Impec.

Bonne soirée à vous.

Hulk.