Sélection de cellule.

porcinet82

XLDnaute Barbatruc

• 17 Octobre 2008

• #2

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) :

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

@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Octobre 2008

• #3

Re : Sélection de cellule.

Bonjour Hulk, Romain,

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

Code:

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+

 

Dernière édition: 17 Octobre 2008

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 17 Octobre 2008

• #4

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,

@+

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 17 Octobre 2008

• #5

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.

 

Vote positif 0 Vote négatif