méthode select a échoué

[manon]

Bonjour,

Pour un tableau de trésorerie, j'ai besoin de mettre à jour une cellule avec la date du jour présente sur une feuille, et ce lorsque je rentre des valeurs dans une autre feuille.
Je joins un fichier exemple, avec la macro, mais cette macro bloque au changement de feuille et je ne comprends pas pourquoi, pouvez-vous m'expliquer.
Merci d'avance

manon

 

[Dull]

Re : méthode select a échoué

Salut manon, le Forum

Sheets("Feui2").Select

pasGlop

Sheets("Feui[B][COLOR=Red]l[/COLOR][/B]2").Select

GlopGlop

Ton code sans le Select

Dim flag As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If flag Then Exit Sub
flag = True
If Target.Row = 2 Then
If Target.Value > 0 Then
Sheets("Feuil2").Range("a1").Formula = Date
Sheets("feuil1").Activate
End If
End If
flag = False
End Sub

EDITION: Salut kjin Onsedemandevraiment mais c'est vrai que j'ai pas cherché plus loin
RE Edith: Salut Pierre Mouarfff...quesqueje...kjindisait
Bonne Journée

 

[kjin]

Re : méthode select a échoué

Bonjour,
Parce ce que ta feuille s'appelle "Feuil2" et non "Feui2"
En outre, évites les "select" et je ne vois pas à quoi sert le drapeau

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 2 Then Exit Sub
If Target.Value > 0 Then Sheets("Feuil2").Range("A1") = Date
End Sub

A+
kjin

 

[pierrejean]

Re : méthode select a échoué

bonjour Manon

Ton fichier avec corrections

1) Feu[COLOR=blue][COLOR=black]i[/COLOR]l[/COLOR]2 et non Feui2
2) Sheets("Feuil2").Range("a1").Formula = Date
3) Comme tu n'interviens pas sur la Feuil1 le flag n'est pas necessaire

Edit: Salut kjin et Salut Dull

 

[manon]

Re : méthode select a échoué

ok merci à vous,

désolée, j'avais pourtant vérifier mon code, mais pas suffisamment, grosse étourderie...

bonne journée
manon