méthode select a échoué

manon · 19 Mars 2009

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 · 19 Mars 2009

Re : méthode select a échoué

Salut manon, le Forum

Code:

Sheets("Feui2").Select

pasGlop

Code:

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

GlopGlop

Ton code sans le Select

Code:

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 · 19 Mars 2009

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

Code:

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 · 19 Mars 2009

Re : méthode select a échoué

bonjour Manon

Ton fichier avec corrections

Code:

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 · 19 Mars 2009

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

méthode select a échoué

manon

XLDnaute Nouveau

Pièces jointes

Dull

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

manon

XLDnaute Nouveau

Discussions similaires