Arreter macro évennementielle!

[Claudy]

Bonjour,
Ci dessous macro évennementielle dont le but est:

Afficher le numéro du mois contenu dans la colonne B avec ce que l'utilisateur aura saisi dans la colonne I .
Donc: je tape 126.... et si c'est en date du 28/02/2013...il s'afficherait 02-126.
Seulement la macro ci dessous affiche 02- 02- 02- 02- 02-02- 02- 02- 02- 02-.......

Private Sub Worksheet_Change(ByVal Target As Range)
Dim mod106 As Integer
If Not Intersect(Target, Range("I85:I100")) Is Nothing Then
mod106 = Month(Target.Offset(0, -7))


Target = Format(mod106, "00- ") & Target.Value

'Exit Sub
End If
End Sub
Merci d'avance,
Claudy

 

[kjin]

Re : Arreter macro évennementielle!

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I85:I100")) Is Nothing Then
    Application.EnableEvents = False
    Target = Format(Month(Target.Offset(0, -7)), "00- ") & Target.Value
    Application.EnableEvents = True
End If
End Sub

A+
kjin

 

[youky(BJ)]

Re : Arreter macro évennementielle!

Bonjour claudy,
Il te faut neutraliser l’évènement avec

Application.EnableEvents = False
Target = Format(mod106, "00- ") & Target.Value
Application.EnableEvents = True

Bruno

 

[Claudy]

Re : Arreter macro évennementielle!

Merci à vous deux...
Mais c'est vrai je n'ai plus le 02- 02- 02- 02- 02-02- 02- 02- 02- 02-.......
Mais j'ai juste ce que je tape dans mon target! Donc: 126 àld 02-126!
A+
Claudy

 

[Dranreb]

Re : Arreter macro évennementielle!

Bonjour.
D'après ce que j'ai compris:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I85:I100")) Is Nothing Then Exit Sub
If Target.Count <> 1 Then Exit Sub
If Target.Value Like "*- *" Then Exit Sub
Application.EnableEvents = False
Target = "'" & Format(Month(Target.Offset(0, -7)), "00") & "- " & Target.Value
Application.EnableEvents = True
End Sub

Cordialement.

 

[kjin]

Re : Arreter macro évennementielle!

Re, salut à tous,
N'est-il point temps de joindre un exemple et une explication claire du résultat attendu !!!
kjin

 

[Claudy]

Re : Arreter macro évennementielle!

ok , merci....
Cela semble marcher!
Merci et bon dimanche!
Claudy