Modif sur macro ...

[Christian0258]

Bonsoir à tout le forum,

J'ai besoin de votre aide, afin de modifier une macro (de J.BOISGONTIER)

voir fichier joint...

Merci pour votre aide si précieuse.

Bien amicalement,
Christian

 

[Excel-lent]

Re : Modif sur macro ...

Bonsoir Christian0258,

1) afin de définir, non pas que la Col 3, mais de la Col J à AN.

2) de changer le format # ##0.00 € en format heure [h]:mm.

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If [COLOR="Blue"]Target.Column > 9 And Target.Column < 41[/COLOR] And Target.Count = 1 Then [COLOR="Green"]' colonne 10 (J) à la colonne 40 (AN)[/COLOR]
    If Target.NoteText = "" Then Target.AddComment        [COLOR="Green"]' Création commentaire[/COLOR]
    Target.Comment.Text Text:=Target.Comment.Text & _
       Format(Target.Value, [COLOR="Red"][I]"[h]:mm"[/I][/COLOR]) & " Modifié par:" & Environ("UserName") & _
         " Le " & Now & vbLf
    Target.Comment.Shape.TextFrame.AutoSize = True
  End If
  Application.EnableEvents = True
End Sub

La macro ci-dessus répond à tes exigences, elle te convient?

Bonne soirée

 

[Christian0258]

Re : Modif sur macro ...

Re, le forum, Excel-lent,

Merci, Ecel-lent, pour les modifs.


Tite question pouquoi lorsque je tape 1:00, dans le commentaire ça marque
":12"

Peux-tu me dire
Encore merci,

Christian

 

[Christian0258]

Re : Modif sur macro ...

Re le forum, Excel-lent,

Je souhaiterais modifier la zone d'application de cette macro ;
de la zone J8 à AN22.

Pourriez-vous m'aider s.v.p

Merci d'avance.

Bien amicalement,
Christian
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column > 9 And Target.Column < 41 And Target.Count = 1 Then ' colonne 10 (J) à la colonne 40 (AN) If Target.NoteText = "" Then Target.AddComment ' Création commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Format(Target.Value, "") & " modifié par : " & Environ("UserName") & _
" le " & Now & vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Application.EnableEvents = True
End Sub

 

[Christian0258]

Re : Modif sur macro ...

Bonjour à tout le forum,

Pourriez-vous m'aider pour cette modif ?

Merci pour le tempque vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[Pierrot93]

Re : Modif sur macro ...

Bonjour Christian

modifies peut être ainsi, si j'ai bien compris :

If Target.Count = 1 And Not Intersect(Target, Range("J9:AN22")) Is Nothing Then
'ton code
End If

bonne journée
@+

 

[Christian0258]

Re : Modif sur macro ...

Re le forum, Pierrot93,


Merci, Pierrot93, pour ton aide, c'est impeccable.


Encore merci, bien à toi.

amitiés,
Christian