J'ai une plage nommée "Plage". Je voudrai quand je sélectionne une
cellule de cette plage (et uniquement de cette plage) qu'excel me colle
la valeur de la target dans une cellule nommé "Result". MAIS je ne veux
pas que la macro soit active en dehors de "Plage".
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
MichDenis
Essaie ceci :
à copier dans le module feuille où l'action se déroule :
'---------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Target, Range("Plage")) If Not Rg Is Nothing Then Application.EnableEvents = False Range("Result") = ActiveCell Application.EnableEvents = True End If End Sub '----------------------
"simplet" a écrit dans le message de news:
Bonjour
Ma requete est toute bete.
J'ai une plage nommée "Plage". Je voudrai quand je sélectionne une cellule de cette plage (et uniquement de cette plage) qu'excel me colle la valeur de la target dans une cellule nommé "Result". MAIS je ne veux pas que la macro soit active en dehors de "Plage".
Merci D'avance
Essaie ceci :
à copier dans le module feuille où l'action se déroule :
'----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("Plage"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
Range("Result") = ActiveCell
Application.EnableEvents = True
End If
End Sub
'----------------------
"simplet" <philippenotarianni@gmail.com> a écrit dans le message de news:
ercP8HxDHHA.572@TK2MSFTNGP03.phx.gbl...
Bonjour
Ma requete est toute bete.
J'ai une plage nommée "Plage". Je voudrai quand je sélectionne une
cellule de cette plage (et uniquement de cette plage) qu'excel me colle
la valeur de la target dans une cellule nommé "Result". MAIS je ne veux
pas que la macro soit active en dehors de "Plage".
à copier dans le module feuille où l'action se déroule :
'---------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Target, Range("Plage")) If Not Rg Is Nothing Then Application.EnableEvents = False Range("Result") = ActiveCell Application.EnableEvents = True End If End Sub '----------------------
"simplet" a écrit dans le message de news:
Bonjour
Ma requete est toute bete.
J'ai une plage nommée "Plage". Je voudrai quand je sélectionne une cellule de cette plage (et uniquement de cette plage) qu'excel me colle la valeur de la target dans une cellule nommé "Result". MAIS je ne veux pas que la macro soit active en dehors de "Plage".
Merci D'avance
MichDenis
Corrige cette ligne de code dans la procédure.
Remplace : Range("Result") = ActiveCell
Par
Range("Result") = Rg
"MichDenis" a écrit dans le message de news: % Essaie ceci :
à copier dans le module feuille où l'action se déroule :
'---------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Target, Range("Plage")) If Not Rg Is Nothing Then Application.EnableEvents = False Range("Result") = ActiveCell Application.EnableEvents = True End If End Sub '----------------------
"simplet" a écrit dans le message de news:
Bonjour
Ma requete est toute bete.
J'ai une plage nommée "Plage". Je voudrai quand je sélectionne une cellule de cette plage (et uniquement de cette plage) qu'excel me colle la valeur de la target dans une cellule nommé "Result". MAIS je ne veux pas que la macro soit active en dehors de "Plage".
Merci D'avance
Corrige cette ligne de code dans la procédure.
Remplace :
Range("Result") = ActiveCell
Par
Range("Result") = Rg
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23pDRcMxDHHA.3596@TK2MSFTNGP03.phx.gbl...
Essaie ceci :
à copier dans le module feuille où l'action se déroule :
'----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("Plage"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
Range("Result") = ActiveCell
Application.EnableEvents = True
End If
End Sub
'----------------------
"simplet" <philippenotarianni@gmail.com> a écrit dans le message de news:
ercP8HxDHHA.572@TK2MSFTNGP03.phx.gbl...
Bonjour
Ma requete est toute bete.
J'ai une plage nommée "Plage". Je voudrai quand je sélectionne une
cellule de cette plage (et uniquement de cette plage) qu'excel me colle
la valeur de la target dans une cellule nommé "Result". MAIS je ne veux
pas que la macro soit active en dehors de "Plage".
"MichDenis" a écrit dans le message de news: % Essaie ceci :
à copier dans le module feuille où l'action se déroule :
'---------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Target, Range("Plage")) If Not Rg Is Nothing Then Application.EnableEvents = False Range("Result") = ActiveCell Application.EnableEvents = True End If End Sub '----------------------
"simplet" a écrit dans le message de news:
Bonjour
Ma requete est toute bete.
J'ai une plage nommée "Plage". Je voudrai quand je sélectionne une cellule de cette plage (et uniquement de cette plage) qu'excel me colle la valeur de la target dans une cellule nommé "Result". MAIS je ne veux pas que la macro soit active en dehors de "Plage".
Merci D'avance
simplet
Merci bcp ca marche tres bien.
Corrige cette ligne de code dans la procédure.
Remplace : Range("Result") = ActiveCell
Par
Range("Result") = Rg
"MichDenis" a écrit dans le message de news: % Essaie ceci :
à copier dans le module feuille où l'action se déroule :
'---------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Target, Range("Plage")) If Not Rg Is Nothing Then Application.EnableEvents = False Range("Result") = ActiveCell Application.EnableEvents = True End If End Sub '----------------------
"simplet" a écrit dans le message de news:
Bonjour
Ma requete est toute bete.
J'ai une plage nommée "Plage". Je voudrai quand je sélectionne une cellule de cette plage (et uniquement de cette plage) qu'excel me colle la valeur de la target dans une cellule nommé "Result". MAIS je ne veux pas que la macro soit active en dehors de "Plage".
Merci D'avance
Merci bcp ca marche tres bien.
Corrige cette ligne de code dans la procédure.
Remplace :
Range("Result") = ActiveCell
Par
Range("Result") = Rg
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23pDRcMxDHHA.3596@TK2MSFTNGP03.phx.gbl...
Essaie ceci :
à copier dans le module feuille où l'action se déroule :
'----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("Plage"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
Range("Result") = ActiveCell
Application.EnableEvents = True
End If
End Sub
'----------------------
"simplet" <philippenotarianni@gmail.com> a écrit dans le message de news:
ercP8HxDHHA.572@TK2MSFTNGP03.phx.gbl...
Bonjour
Ma requete est toute bete.
J'ai une plage nommée "Plage". Je voudrai quand je sélectionne une
cellule de cette plage (et uniquement de cette plage) qu'excel me colle
la valeur de la target dans une cellule nommé "Result". MAIS je ne veux
pas que la macro soit active en dehors de "Plage".
"MichDenis" a écrit dans le message de news: % Essaie ceci :
à copier dans le module feuille où l'action se déroule :
'---------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Target, Range("Plage")) If Not Rg Is Nothing Then Application.EnableEvents = False Range("Result") = ActiveCell Application.EnableEvents = True End If End Sub '----------------------
"simplet" a écrit dans le message de news:
Bonjour
Ma requete est toute bete.
J'ai une plage nommée "Plage". Je voudrai quand je sélectionne une cellule de cette plage (et uniquement de cette plage) qu'excel me colle la valeur de la target dans une cellule nommé "Result". MAIS je ne veux pas que la macro soit active en dehors de "Plage".
