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