XL 2013 Worksheet event (SelectionChange)

[ZinebSa]

Bonjour, j'ai fait un code dans l'event SelectionChange pour qu'une fois je clique sur une cellule de la colonne B dans la feuille 2 il recherche la valeur de cette cellule sur la feuille 1 dans la même colonne et la sélectionne mais le problème c'est que parfois ça marche et parfois non et l'autre condition et que il doit pointé sur la première valeur égale

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Long

For i = 4 To Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row

  If ActiveCell.Value = Sheets("Feuil1").Range("B" & i).Value Then
 
     Worksheets("Feuil1").Activate
 
  Sheets("Feuil1").Range("B" & i).Select
 
  End If

Next i

End Sub

Besoin de votre aide mercii d'avance

 

[sousou]

bonjour,
Il faudrait savoir dans quels cas cela ne fonctionne pas( envoi un exemple)
Pourquoi ne pas utiliser la recherche sort?

 

[ZinebSa]

bonjour,
Il faudrait savoir dans quels cas cela ne fonctionne pas( envoi un exemple)
Pourquoi ne pas utiliser la recherche sort?

pour le faite que ça marche parfois c'est moi qui avais mal écrit un mot apart ça je veux savoir si tu a une idée à propos de la deuxieme question ; si on peut sélectionner la première cellule trouvé non la dernière

 

[Dranreb]

Bonjour.
Écrivez donc ça comme ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel As Range
If Target.Column <> 2 Or Target.Columns.Count <> 1 Or Target.Rows.Count <> 1 Then Exit Sub
Set Cel = Worksheets("Feuil1").[B4:B1000000].Find(What:=Target.Value, _
  LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
  SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Cel Is Nothing Then
  MsgBox """" & Target.Value & """ non trouvé.", vbCritical, "Sélection " & Target.Address
Else
  Application.Goto Cel
  End If
End Sub

 

[ZinebSa]

Bonjour.
Écrivez donc ça comme ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel As Range
If Target.Column <> 2 Or Target.Columns.Count <> 1 Or Target.Rows.Count <> 1 Then Exit Sub
Set Cel = Worksheets("Feuil1").[B4:B1000000].Find(What:=Target.Value, _
  LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
  SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Cel Is Nothing Then
  MsgBox """" & Target.Value & """ non trouvé.", vbCritical, "Sélection " & Target.Address
Else
  Application.Goto Cel
  End If
End Sub

il sélectionne la deuxieme cellule trouvé moi je veux sélectionner la première cellule, Mercii

 

[Dranreb]

Ah non, chez moi il sélectionne la 1ère.
Vérifiez s'il n'y a pas par exemple un espace en plus à la fin dans la cellule que vous croyez qu'il aurait dû sélectionner.

 

[ZinebSa]

Ah non, chez moi il sélectionne la 1ère.
Vérifiez s'il n'y a pas par exemple un espace en plus à la fin dans la cellule que vous croyez qu'il aurait dû sélectionner.

je vais voir en tous les cas merci bcp pour ton aide