après entrée être sur une cellule autre que celle qui se trouve en dessous?

[micky]

hello,
est-il possible sur un feuille apès entrée sur une cellule de passer à une cellule autre que celle qui se trouve en-dessous?
par exemple A1->entrée->je me retrouve en D3
merci

 

[Hervé]

salut Micky

essaye ceci :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Intersect(Target, Range("A1")) Is Nothing Then: Exit Sub
Range("D3").Select
End Sub

salut
Hervé

 

[micky]

merci bcp

 

[micky]

ça ne marche pas :-(

 

[Munchkin]

Salut Micky

Ca marche si tu chage la valeur de la cellule A1 mais pas si tu fais un simple passage. Donc si tu selectionne A1 sans la modifier et tu fais ENTRER cela ne marche pas

voilà
Munchkin

 

[Hervé]

re

2 pistes :

- tu as bien mis cette macro dans le code d'une feuille et non dans un module.

- tu dois saisir une donné en A1 et ensuite validé

et normalement ceci fonctionne.

A+
Hervé

 

[micky]

merci messieurs

 

[micky]

si je repete l'operation sur une meme feuille, ca ne semble pas marcher...
par ex: a1->d3 et d3->h3...thanks

 

[Munchkin]

Là alors il faut que tu essais ca

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("D3").Select
End If

If Not Intersect(Target, Range("D3")) Is Nothing Then
Range("H3").Select
End If

End Sub

Voilà
Munchkin