Sélectionner la cellule avec valeur

[chris6999]

RESOLU

Bonjour

Une question toute bête. Je souhaiterais pouvoir pointer dans la colonne C de ma feuille, sur la cellule ayant la valeur que j'aurais préalablement sélectionnées en K3.
Quand je dis pointer c'est en fait sélectionner la cellule en question.

Pour faire court :
Je sélectionne dans ma liste de choix en K3 une valeur
La macro sélectionne la cellule qui correspond à cette valeur dans ma feuille.

J'ai bien trouvé des idées de code sur les fils mais rien qui ne fonctionne.
Voir exemple ci-après :

Je ne mets pas de fichier test en PJ car je me pense pas que cela en vaille la peine.
Merci d'avance
pour votre aide

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address(0, 0) = "K3" Then

If Target.Value = "" Then Exit Sub
End If

'RECHERCHE DANS LA COLONNE C la valeur saisie dans la cellule K3
Dim PlageRecherche As Range
With ActiveSheet

Set PlageRecherche = .Range("c:c").Find(what:=Range("O3").Value, LookIn:=xlValues, lookat:=xlWhole)

If Not PlageRecherche Is Nothing Then
MsgBox "Valeur Trouvée!! " & PlageRecherche.Offset(-9, 0)
End If

End With
End If
End Sub

 

[gilbert_RGI]

Bonjour,

à tester suivant votre modèle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PlageRecherche As Range
If Target.Address(0, 0) = "K3" Then

If Target.Value = "" Then Exit Sub
End If

'RECHERCHE DANS LA COLONNE C la valeur saisie dans la cellule K3

With ActiveSheet

Set PlageRecherche = .Range("c:c").Find(what:=Range("k3").Value, LookIn:=xlValues, lookat:=xlWhole)

If Not PlageRecherche Is Nothing Then
MsgBox "Valeur Trouvée en : " & PlageRecherche.Address
End If

End With


End Sub

 

[chris6999]

Bonjour

Merci Gilbert pour sélectionner ma cellule j'ai adapté le code et cela donne

Private Sub Worksheet_Change(ByVal Target As Range)

Dim PlageRecherche As Range
If Target.Address(0, 0) = "K3" Then

Application.Calculation = xlCalculationAutomatic

If Target.Value = "" Then Exit Sub
End If

'RECHERCHE DANS LA COLONNE C la valeur saisie dans la cellule K3

With ActiveSheet

Set PlageRecherche = .Range("c:c").Find(what:=Range("k3").Value, LookIn:=xlValues, lookat:=xlWhole)

If Not PlageRecherche Is Nothing Then
PlageRecherche.Select
End If

End With

Application.Calculation = xlCalculationManual

End Sub

Tout fonctionne très bien dans un fichier test basique mais sur ma feuille réelle il ne se passe rien.
Je vais creuser...

Merci encore

 

[chris6999]

Bonsoir

Mon pb est résolu et le code fonctionne très bien.

Merci encore