atteindre une cellule

EUREKA...........
J'ai trouvé la cause de mon malheur
en fait dans la feuille 1 et dans la colonne B ou se trouve toutes les
references, comme elles sont nombreuses plus de 4000...
j'ai mis la petite formule par exemple en b2 = b1+1
et que j'ai recopié vers le bas
donc effectivement la vba lit bien la bonne reference mais elle arrive
une ligne plus haut...
comment contourner ce petit aléas compte tenu que je ne me sens pas le
courage de rentrer manuellement 4000 référence à la main
merci encore une fois
stéphane
ps en esperant ne pas trop venir pertuber un sommeil réparateur....lol

...si j'ai compris bien:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ref As Range
Set ref = Feuil1.Cells.Find(What:=Target.Value, After:=ActiveCell,
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False)
Application.Goto ref.offset(1,0)
End Sub

'lSteph

...si j'ai compris bien:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ref As Range
Set ref = Feuil1.Cells.Find(What:=Target.Value, After:=ActiveCell,
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False)
Application.Goto ref.offset(1,0)
End Sub

'lSteph

Comme je viens de le dire c'est parfait
mais est il possible d'adapter cette VBA à une seule cellule dans la
feuille 1 , car si je tape ma référence dans n'importe qu'elle partie
de la feuille 1 la vba s'enclenche et déplace donc le curseur vers la
feuille 2
je souhaiterai en fait pouvoir limiter l'entrée de la référence
recherchée à une seule cellule à savoir L4
merci pour ce peaufinage
cordialement
stéphane

On 2 jan, 23:29, LSteph <lecocost...@frite.fr> wrote:

...si j'ai compris bien:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ref As Range
Set ref = Feuil1.Cells.Find(What:=Target.Value, After:=ActiveCell,
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False)
Application.Goto ref.offset(1,0)
End Sub

'lSteph

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ref As Range, iSect As Range
Set iSect = Intersect(Target, [L4])
If iSect Is Nothing Then Exit Sub
With iSect.Cells(1)
Set ref = Feuil1.Cells.Find(What:=.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With
Application.Goto ref.Offset(1, 0)
End Sub

'lSteph

merci mais cela ne marche pas j'ai donc remplacer l'ancienne vba par
celle ci-dessous et rien ne se passe lorsque je tape ma référence
recherchée en L4 ????
que se passe t il ?
et encore désolé cordialement
stéphane



On 3 jan, 14:42, lSteph <gmLSt...@gmail.com> wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ref As Range, iSect As Range
Set iSect = Intersect(Target, [L4])
If iSect Is Nothing Then Exit Sub
With iSect.Cells(1)
Set ref = Feuil1.Cells.Find(What:=.Value, _
After:¬tiveCell, _
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:úlse)
End With
Application.Goto ref.Offset(1, 0)
End Sub

'lSteph

Si tu veux,  pose un exemplaire de  ton tableau
làhttp://cjoint.com
et reviens ici donner le lien obtenu.