Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Sélectionner la cellule avec valeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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:
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
252
Réponses
14
Affichages
319
Réponses
2
Affichages
367
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…