Rien compris ??? je suis nul ou quoi ??

[gomez]

Private Sub Worksheet_Change(ByVal Target As Range)
> Dim a As Range
> a = Target.Address ' adresse de la saisie
> If a = "$A$1" Then Range("C2").Select ' selectionne la cellule
> suivante à saisir , a reprendre pour chaque cellule voulu


Un de nos amis du forum m'a transmi cette formule a inserée dans mon tableau mais j'y comprends + rien ca marche pas !!!!

j'ai une erreur qui s'affiche ??????

" erreur de compilation - attendu numero de ligne ou etiquette ou instruction ou fin d'instruction "

Ce que je veux c'est lorsque je saisi quelque chose en A1 ( par exemple ) et puis que je tape sur "ENTER" la cellule suivante selectionné en saisie soit B6 ( par exemple),


------------------------------------------------------------------------------------------------
VOILA PAR EXEMPLE CE QUE J'AI FAIS de la case C5 la prochaine saisie doit etre en D4

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 30/01/2004
'


Private Sub Worksheet_Change(ByVal Target As Range)
> Dim a As Range
> a = Target.Address ' adresse de la saisie
> If a = "$C$5" Then Range("D4").Select ' selectionne la cellule
> suivante à saisir , a reprendre pour chaque cellule voulu
Application.Goto Reference:="Macro1"
Range("C5").Select
End Sub

------------------------------------------------------------------------------------------------

1° Est ce possible avec cette formule ?
2° Et si oui ou est ce que je fais une erreur ?
3° dois je créer une marco ?


Si vous pouviez m'aider, c'est un projet qui me tiens a coeur pour faciliter le travaille de mes collaborateurs ..... merci !

 

[Jean-Luc]

Et si tu rajoutais un instruction "End If" ?

 

[Pascal76]

Salut

Dis donc tu déclares ta variable a en tant que Range alors que ce n'est pas le cas puisqu'il s'agit de l'adresse.

Mets plutot Dim a as string

Pascal

 

[Pascal76]

Re

Un autre petit truc

Si ta sélection est C5 tu vas en D4 puis tu lance ta macro 1 et tu resélectionnes C5.

T'es sur que c'est ce que tu veux faire ?

Car si tu veux juste sélectionner D4 une fois C5 saisie Ce qui suit suffit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As string
a = Target.Address ' adresse de la saisie
If a = "$C$5" Then Range("D4").Select ' selectionne la cellule
End Sub

@ +

Pascal

 

[patrice]

Bonjour,
Désolé pour le Dim mais sous 97 je n'ai pas eu d'erreur.
A+

 

[yvon51]

bonjour tout le forum

je m'adresse à Pascal76

pascal, j'ai remis un message dans le fil "cherche données" hier .

peux-tu faire un tour en arrière s'il te plaît? car je rencontre un problème avec la macro que tu m'as conseillé.

merci
yvon

 

[Dan]

Re,

Je viens de voir que tu as posté deux fois donc proposition ici <http://www.excel-downloads.com/html/French/forum/messages/1_68330_68330.htm>

@+

Dan