Sélectionner la cellule avec valeur

chris6999

XLDnaute Impliqué
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
 
Dernière édition:

gilbert_RGI

XLDnaute Barbatruc
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

XLDnaute Impliqué
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
 

Discussions similaires

Réponses
5
Affichages
262
Réponses
10
Affichages
208

Statistiques des forums

Discussions
298 001
Messages
1 965 025
Membres
200 809
dernier inscrit
Ksiba