Bonjour à tous
Je me heurte à une nouveau souci :
J'ai besoin de déclencher une Macro en VBA quand je modifie le contenu d'une
plage de cellules d'une feuille d'un classeur.
Comment lier l'évènement Changement de contenu de cette plage à une Macro?
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
Daniel
Bonjour. Si tu veux lier le déclenchement à une modification dans la plage A1:B10 :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target.Value, Range("A1:B10")) Then ton code End If End Sub
Cordialement. Daniel "Gil HASH" a écrit dans le message de news:
Bonjour à tous Je me heurte à une nouveau souci : J'ai besoin de déclencher une Macro en VBA quand je modifie le contenu d'une plage de cellules d'une feuille d'un classeur. Comment lier l'évènement Changement de contenu de cette plage à une Macro?
Bonjour.
Si tu veux lier le déclenchement à une modification dans la plage A1:B10 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target.Value, Range("A1:B10")) Then
ton code
End If
End Sub
Cordialement.
Daniel
"Gil HASH" <jeanluc.nospam.hoareau@wanadoo.fr> a écrit dans le message de
news: A9B66CED-7DED-4821-B3C7-79E17CB2939D@microsoft.com...
Bonjour à tous
Je me heurte à une nouveau souci :
J'ai besoin de déclencher une Macro en VBA quand je modifie le contenu
d'une
plage de cellules d'une feuille d'un classeur.
Comment lier l'évènement Changement de contenu de cette plage à une Macro?
Bonjour. Si tu veux lier le déclenchement à une modification dans la plage A1:B10 :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target.Value, Range("A1:B10")) Then ton code End If End Sub
Cordialement. Daniel "Gil HASH" a écrit dans le message de news:
Bonjour à tous Je me heurte à une nouveau souci : J'ai besoin de déclencher une Macro en VBA quand je modifie le contenu d'une plage de cellules d'une feuille d'un classeur. Comment lier l'évènement Changement de contenu de cette plage à une Macro?
Daniel
Oups.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target.Value, Range("A1:B10")) Is Nothing Then Exit Sub ton code End Sub
Daniel "Gil HASH" a écrit dans le message de news:
Bonjour à tous Je me heurte à une nouveau souci : J'ai besoin de déclencher une Macro en VBA quand je modifie le contenu d'une plage de cellules d'une feuille d'un classeur. Comment lier l'évènement Changement de contenu de cette plage à une Macro?
Oups.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target.Value, Range("A1:B10")) Is Nothing Then Exit Sub
ton code
End Sub
Daniel
"Gil HASH" <jeanluc.nospam.hoareau@wanadoo.fr> a écrit dans le message de
news: A9B66CED-7DED-4821-B3C7-79E17CB2939D@microsoft.com...
Bonjour à tous
Je me heurte à une nouveau souci :
J'ai besoin de déclencher une Macro en VBA quand je modifie le contenu
d'une
plage de cellules d'une feuille d'un classeur.
Comment lier l'évènement Changement de contenu de cette plage à une Macro?
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target.Value, Range("A1:B10")) Is Nothing Then Exit Sub ton code End Sub
Daniel "Gil HASH" a écrit dans le message de news:
Bonjour à tous Je me heurte à une nouveau souci : J'ai besoin de déclencher une Macro en VBA quand je modifie le contenu d'une plage de cellules d'une feuille d'un classeur. Comment lier l'évènement Changement de contenu de cette plage à une Macro?
Daniel
Re oups. Je vais prendre une douche et un café !
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:B10")) Is Nothing Then Exit Sub 'ton code End Sub
(testé, cette fois) Daniel "Gil HASH" a écrit dans le message de news:
Bonjour à tous Je me heurte à une nouveau souci : J'ai besoin de déclencher une Macro en VBA quand je modifie le contenu d'une plage de cellules d'une feuille d'un classeur. Comment lier l'évènement Changement de contenu de cette plage à une Macro?
Re oups.
Je vais prendre une douche et un café !
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B10")) Is Nothing Then Exit Sub
'ton code
End Sub
(testé, cette fois)
Daniel
"Gil HASH" <jeanluc.nospam.hoareau@wanadoo.fr> a écrit dans le message de
news: A9B66CED-7DED-4821-B3C7-79E17CB2939D@microsoft.com...
Bonjour à tous
Je me heurte à une nouveau souci :
J'ai besoin de déclencher une Macro en VBA quand je modifie le contenu
d'une
plage de cellules d'une feuille d'un classeur.
Comment lier l'évènement Changement de contenu de cette plage à une Macro?
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:B10")) Is Nothing Then Exit Sub 'ton code End Sub
(testé, cette fois) Daniel "Gil HASH" a écrit dans le message de news:
Bonjour à tous Je me heurte à une nouveau souci : J'ai besoin de déclencher une Macro en VBA quand je modifie le contenu d'une plage de cellules d'une feuille d'un classeur. Comment lier l'évènement Changement de contenu de cette plage à une Macro?
Gil HASH
"Daniel" a écrit dans le message de news:%
Re oups. Je vais prendre une douche et un café !
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:B10")) Is Nothing Then Exit Sub 'ton code End Sub
(testé, cette fois) Daniel
Merci Daniel J'ai repris ton idée en testant simplement la position de Target. Je ne connais pas la fonction Intersect et quand j'ai voulu remplacer "A1:B10" par Range(Cells(...),Cells(...)) j'ai déclenché de belles erreurs
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 2 And Target.Column <= 8 And Target.Row >= 4 And Target.Row <= 22 Then ' Mon code End If End Sub
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%23tYtwXCSGHA.5728@tk2msftngp13.phx.gbl...
Re oups.
Je vais prendre une douche et un café !
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B10")) Is Nothing Then Exit Sub
'ton code
End Sub
(testé, cette fois)
Daniel
Merci Daniel
J'ai repris ton idée en testant simplement la position de Target. Je ne
connais pas la fonction Intersect et quand j'ai voulu remplacer "A1:B10" par
Range(Cells(...),Cells(...))
j'ai déclenché de belles erreurs
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 2 And Target.Column <= 8 And Target.Row >= 4 And
Target.Row <= 22 Then
' Mon code
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:B10")) Is Nothing Then Exit Sub 'ton code End Sub
(testé, cette fois) Daniel
Merci Daniel J'ai repris ton idée en testant simplement la position de Target. Je ne connais pas la fonction Intersect et quand j'ai voulu remplacer "A1:B10" par Range(Cells(...),Cells(...)) j'ai déclenché de belles erreurs
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 2 And Target.Column <= 8 And Target.Row >= 4 And Target.Row <= 22 Then ' Mon code End If End Sub