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

H

Hervé

Guest

• 4 Août 2004

• #2

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é

 

Vote positif 0 Vote négatif

M

micky

Guest

• 4 Août 2004

• #3

merci bcp

 

Vote positif 0 Vote négatif

M

micky

Guest

• 4 Août 2004

• #4

ça ne marche pas :-(

 

Vote positif 0 Vote négatif

M

Munchkin

Guest

• 4 Août 2004

• #5

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

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 4 Août 2004

• #6

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é

 

Vote positif 0 Vote négatif

M

micky

Guest

• 4 Août 2004

• #7

merci messieurs

 

Vote positif 0 Vote négatif

M

micky

Guest

• 4 Août 2004

• #8

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

 

Vote positif 0 Vote négatif

M

Munchkin

Guest

• 4 Août 2004

• #9

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

 

Vote positif 0 Vote négatif