Arreter macro évennementielle!

K

kjin

XLDnaute Barbatruc

• 3 Mars 2013

• #2

Re : Arreter macro évennementielle!

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 3 Mars 2013

• #3

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

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 3 Mars 2013

• #4

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Mars 2013

• #5

Re : Arreter macro évennementielle!

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

VB:

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.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 3 Mars 2013

• #6

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

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 3 Mars 2013

• #7

Re : Arreter macro évennementielle!

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

 

Vote positif 0 Vote négatif