Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ru-th
Salut
A la place d'un flag, un commentaire qui reprend les anciennes valeurs modifiées dans le module de la feuille concernée Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False rep0 = Target.Value Application.Undo rep1 = Target.Value Application.Undo If rep1 <> 0 And rep1 <> rep0 Then With Target On Error Resume Next .AddComment .Comment.Text Text:=.Comment.Text & " " & Format(rep1, "0.00") .Comment.Shape.TextFrame.AutoSize = True End With End If Application.EnableEvents = True End Sub a+ rural thierry
"urgent" a écrit dans le message de news:
J'ai un tableau ou j'ai diverse elements.
client adresse mont Dû remb juin remb Juil remb aout dupony 1rue tiers 30000 10000 20000
donc au fait jai un montant du de 30000 euros qui est remboursé en juin de 10000 et en juillet de 20000.
mais je voudrai faire si il y a eu un chamgement, par exemple je met 10000 en juin et au lieu de 20000 en juil je met 25000.
je voudrai un flag qui me signale qu'il y a eu un changement de saisie,et m'indique il y a 5000 de plus par exemple savez vous comment faire.
merci
Salut
A la place d'un flag, un commentaire qui reprend les anciennes valeurs
modifiées
dans le module de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
rep0 = Target.Value
Application.Undo
rep1 = Target.Value
Application.Undo
If rep1 <> 0 And rep1 <> rep0 Then
With Target
On Error Resume Next
.AddComment
.Comment.Text Text:=.Comment.Text & " " & Format(rep1, "0.00")
.Comment.Shape.TextFrame.AutoSize = True
End With
End If
Application.EnableEvents = True
End Sub
a+
rural thierry
"urgent" <urgent@discussions.microsoft.com> a écrit dans le message de news:
BC220D6D-1E39-4A59-AF28-AEBB0B11D21D@microsoft.com...
J'ai un tableau
ou j'ai diverse elements.
client adresse mont Dû remb juin remb Juil remb aout
dupony 1rue tiers 30000 10000 20000
donc au fait jai un montant du de 30000 euros qui est remboursé en juin de
10000 et en juillet de 20000.
mais je voudrai faire si il y a eu un chamgement, par exemple je met 10000
en juin et au lieu de 20000 en juil je met 25000.
je voudrai un flag qui me signale qu'il y a eu un changement de saisie,et
m'indique il y a 5000 de plus par exemple savez vous comment faire.
A la place d'un flag, un commentaire qui reprend les anciennes valeurs modifiées dans le module de la feuille concernée Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False rep0 = Target.Value Application.Undo rep1 = Target.Value Application.Undo If rep1 <> 0 And rep1 <> rep0 Then With Target On Error Resume Next .AddComment .Comment.Text Text:=.Comment.Text & " " & Format(rep1, "0.00") .Comment.Shape.TextFrame.AutoSize = True End With End If Application.EnableEvents = True End Sub a+ rural thierry
"urgent" a écrit dans le message de news:
J'ai un tableau ou j'ai diverse elements.
client adresse mont Dû remb juin remb Juil remb aout dupony 1rue tiers 30000 10000 20000
donc au fait jai un montant du de 30000 euros qui est remboursé en juin de 10000 et en juillet de 20000.
mais je voudrai faire si il y a eu un chamgement, par exemple je met 10000 en juin et au lieu de 20000 en juil je met 25000.
je voudrai un flag qui me signale qu'il y a eu un changement de saisie,et m'indique il y a 5000 de plus par exemple savez vous comment faire.
