Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Savoir si cellule dans plages nommées !

Savoir si cellule dans plages nommées !

15 réponses
Avatar
Jed
Bonjour =E0 tous,
J'aimerai savoir comment faire en vba pour savoir si la=20
cellule selectionn=E9e est dans une plage nomm=E9?
J'aimerai mettre ce code dans l'=E9v=E9nement Selection_Change.
En fonction de la plage je dois afficher un userform=20
diff=E9rent.
Merci de votre aide.
Cordialement.
Jed
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
denis P
Bonjour Jed

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Plage As Range
Set Plage = Intersect(Target, Range("Nom de ta plage"))
If Plage Is Nothing Then Exit Sub
MsgBox "Plage modifiée : " & Plage.Address
End Sub

Denis P.

"Jed" a écrit dans le message de
news:638201c4cc84$e6a81120$
Bonjour à tous,
J'aimerai savoir comment faire en vba pour savoir si la
cellule selectionnée est dans une plage nommé?
J'aimerai mettre ce code dans l'événement Selection_Change.
En fonction de la plage je dois afficher un userform
différent.
Merci de votre aide.
Cordialement.
Jed
Avatar
jed
Oh merci..
je bataillais avec la syntaxe.
Merci bcp
Jed
-----Message d'origine-----
Bonjour Jed

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Plage As Range
Set Plage = Intersect(Target, Range("Nom de ta
plage"))

If Plage Is Nothing Then Exit Sub
MsgBox "Plage modifiée : " & Plage.Address
End Sub

Denis P.

"Jed" a écrit dans
le message de

news:638201c4cc84$e6a81120$
Bonjour à tous,
J'aimerai savoir comment faire en vba pour savoir si la
cellule selectionnée est dans une plage nommé?
J'aimerai mettre ce code dans l'événement
Selection_Change.

En fonction de la plage je dois afficher un userform
différent.
Merci de votre aide.
Cordialement.
Jed


.



Avatar
Pierre CFI [mvp]
bonjour
hum, je pense que si tu as un Nothing, tu vas proquer une erreur donc
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Plage As Range
On error resume next
Set Plage = Intersect(Target, Range("Nom de ta plage"))
If Plage Is Nothing Then Exit Sub
MsgBox "Plage modifiée : " & Plage.Address
End Sub

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"denis P" a écrit dans le message de news:%
Bonjour Jed

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Plage As Range
Set Plage = Intersect(Target, Range("Nom de ta plage"))
If Plage Is Nothing Then Exit Sub
MsgBox "Plage modifiée : " & Plage.Address
End Sub

Denis P.

"Jed" a écrit dans le message de
news:638201c4cc84$e6a81120$
Bonjour à tous,
J'aimerai savoir comment faire en vba pour savoir si la
cellule selectionnée est dans une plage nommé?
J'aimerai mettre ce code dans l'événement Selection_Change.
En fonction de la plage je dois afficher un userform
différent.
Merci de votre aide.
Cordialement.
Jed




Avatar
jps
et moi, pas question de trovoquer ma frappe contre celle de l'inénarrable
pierre...
jps

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
hum, je pense que si tu as un Nothing, tu vas proquer une erreur donc


Avatar
Pierre CFI [mvp]
tel le fauve guettant la moindre faiblesse dans un troupeau de buffles, jps bondit... :o))
(fais gaffe aux braconniers, mon petit jp, ils ne respectent pas les espéces protégées)

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le message de news:
et moi, pas question de trovoquer ma frappe contre celle de l'inénarrable
pierre...
jps

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
hum, je pense que si tu as un Nothing, tu vas proquer une erreur donc





Avatar
Jed
Merfi à touf d'avoir répondu à ma question même avec les
fautes de frappe :-))
Ca rassure de savoir qu'il y a des fauves qui guettent.

-----Message d'origine-----
tel le fauve guettant la moindre faiblesse dans un
troupeau de buffles, jps bondit... :o))

(fais gaffe aux braconniers, mon petit jp, ils ne
respectent pas les espéces protégées)


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit
dans le message de

news:
et moi, pas question de trovoquer ma frappe contre
celle de l'inénarrable


pierre...
jps

"Pierre CFI [mvp]" a écrit
dans le message de


news:
bonjour
hum, je pense que si tu as un Nothing, tu vas proquer
une erreur donc







.





Avatar
Pierre CFI [mvp]
"Jed" a écrit dans le message de news:15dd01c4cc92$ba075230$
Merfi à touf d'avoir répondu à ma question même avec les
fautes de frappe :-))
Ca rassure de savoir qu'il y a des fauves qui guettent.
*************
oui, mais celui ci à des moeurs trés particulieres :o))
--
Pierre CFI
MVP Microsoft Access
Avatar
jps
:-)))))))))))
jps

"Jed" a écrit dans le message de
news:15dd01c4cc92$ba075230$
Merfi à touf d'avoir répondu à ma question même avec les
fautes de frappe :-))
Ca rassure de savoir qu'il y a des fauves qui guettent.

-----Message d'origine-----
tel le fauve guettant la moindre faiblesse dans un
troupeau de buffles, jps bondit... :o))

(fais gaffe aux braconniers, mon petit jp, ils ne
respectent pas les espéces protégées)


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit
dans le message de

news:
et moi, pas question de trovoquer ma frappe contre
celle de l'inénarrable


pierre...
jps

"Pierre CFI [mvp]" a écrit
dans le message de


news:
bonjour
hum, je pense que si tu as un Nothing, tu vas proquer
une erreur donc







.





Avatar
michdenis
Bonjour Jed,

Une variante ...

'-----------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim rg As Range, N As Name, Nom As String

For Each N In ThisWorkbook.Names
Nom = Range(N.RefersTo).Name.Name
Set rg = Intersect(Target, Range(Nom))
If Not rg Is Nothing Then
MsgBox "La cellule " & Target.Address(0, 0) & _
" fait parti de la plage nommée : " _
& Nom & " ."
End If
Next
Set rg = Nothing
End Sub
'-----------------------


Salutations!




"Jed" a écrit dans le message de news: 638201c4cc84$e6a81120$
Bonjour à tous,
J'aimerai savoir comment faire en vba pour savoir si la
cellule selectionnée est dans une plage nommé?
J'aimerai mettre ce code dans l'événement Selection_Change.
En fonction de la plage je dois afficher un userform
différent.
Merci de votre aide.
Cordialement.
Jed
Avatar
AV
Ave Denis,

Un bémol :
Il me semble que la méthode va échouer s'il y a présence d'une plage nommée
dynamiquement (DECALER...)

AV
1 2