Démarrage exécution d'une macro à partir de la saisie d'un nombr e
2 réponses
Raymond BUISSON
Je cherche comment faire pour écrire une macro qui s'éxécute lorsqu'on saisie
une valeur numérique dans une cellule donnée. La macro, en question utilise
d'ailleurs cette valeur numérique dans les calculs et les traitements qu'elle
réalise.
Si vous avez des idées, merci de me les communiquer.
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
izsobad1
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect([A1], Target) Is Nothing Then If IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = 2 * Target.Value Application.EnableEvents = True End If End If End Sub
Saisis une valeur en A1, elle est remplacée par son double
On 8 sep, 15:57, Raymond BUISSON <Raymond wrote:
Je cherche comment faire pour écrire une macro qui s'éxécute lorsqu 'on saisie une valeur numérique dans une cellule donnée. La macro, en question u tilise d'ailleurs cette valeur numérique dans les calculs et les traitements q u'elle réalise.
Si vous avez des idées, merci de me les communiquer.
Raymond BUISSON
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect([A1], Target) Is Nothing Then
If IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = 2 * Target.Value
Application.EnableEvents = True
End If
End If
End Sub
Saisis une valeur en A1, elle est remplacée par son double
On 8 sep, 15:57, Raymond BUISSON <Raymond
BUIS...@discussions.microsoft.com> wrote:
Je cherche comment faire pour écrire une macro qui s'éxécute lorsqu 'on saisie
une valeur numérique dans une cellule donnée. La macro, en question u tilise
d'ailleurs cette valeur numérique dans les calculs et les traitements q u'elle
réalise.
Si vous avez des idées, merci de me les communiquer.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect([A1], Target) Is Nothing Then If IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = 2 * Target.Value Application.EnableEvents = True End If End If End Sub
Saisis une valeur en A1, elle est remplacée par son double
On 8 sep, 15:57, Raymond BUISSON <Raymond wrote:
Je cherche comment faire pour écrire une macro qui s'éxécute lorsqu 'on saisie une valeur numérique dans une cellule donnée. La macro, en question u tilise d'ailleurs cette valeur numérique dans les calculs et les traitements q u'elle réalise.
Si vous avez des idées, merci de me les communiquer.
Raymond BUISSON
Raymond BUISSON
Bonjour,
Merci pour ces renseignements. Je vai faire l'essai. Mais à première vue ça à l'air de faire ce que je souhaite. Cordialement,
Raymond BUISSON
"" a écrit :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect([A1], Target) Is Nothing Then If IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = 2 * Target.Value Application.EnableEvents = True End If End If End Sub
Saisis une valeur en A1, elle est remplacée par son double
On 8 sep, 15:57, Raymond BUISSON <Raymond wrote: > Je cherche comment faire pour écrire une macro qui s'éxécute lorsqu'on saisie > une valeur numérique dans une cellule donnée. La macro, en question utilise > d'ailleurs cette valeur numérique dans les calculs et les traitements qu'elle > réalise. > > Si vous avez des idées, merci de me les communiquer. > > Raymond BUISSON > >
Bonjour,
Merci pour ces renseignements.
Je vai faire l'essai. Mais à première vue ça à l'air de faire ce que je
souhaite.
Cordialement,
Raymond BUISSON
"izsobad1@googlemail.com" a écrit :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect([A1], Target) Is Nothing Then
If IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = 2 * Target.Value
Application.EnableEvents = True
End If
End If
End Sub
Saisis une valeur en A1, elle est remplacée par son double
On 8 sep, 15:57, Raymond BUISSON <Raymond
BUIS...@discussions.microsoft.com> wrote:
> Je cherche comment faire pour écrire une macro qui s'éxécute lorsqu'on saisie
> une valeur numérique dans une cellule donnée. La macro, en question utilise
> d'ailleurs cette valeur numérique dans les calculs et les traitements qu'elle
> réalise.
>
> Si vous avez des idées, merci de me les communiquer.
>
> Raymond BUISSON
>
> buiss...@club-internet.fr
Merci pour ces renseignements. Je vai faire l'essai. Mais à première vue ça à l'air de faire ce que je souhaite. Cordialement,
Raymond BUISSON
"" a écrit :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect([A1], Target) Is Nothing Then If IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = 2 * Target.Value Application.EnableEvents = True End If End If End Sub
Saisis une valeur en A1, elle est remplacée par son double
On 8 sep, 15:57, Raymond BUISSON <Raymond wrote: > Je cherche comment faire pour écrire une macro qui s'éxécute lorsqu'on saisie > une valeur numérique dans une cellule donnée. La macro, en question utilise > d'ailleurs cette valeur numérique dans les calculs et les traitements qu'elle > réalise. > > Si vous avez des idées, merci de me les communiquer. > > Raymond BUISSON > >