Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel savoir si une cell est dans une range nommée

savoir si une cell est dans une range nommée

8 réponses
Avatar
Pierre CFI [mvp]
Bonjour
explication de mon pb
dans une feuille j'ai une liste nommée id_produit
lors de l'évenement Change, je veux mettre du code si Target est dans id_produit (liste verticale)
et également si Target est dans une seule cellule nommée

merci, désolé de déranger le mpfe un dimanche (sur mpfa ce sont les autres jours de la semaine pendant lesquels il ne faut pas
déranger)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info
Signaler un problème avec ce contenu

8 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
Avatar
lSteph
Bonjour Pierre,
si.. (pas liste en tant que contrôle ou combo?!)
...c'est une plage de cellules nommée dans le classeur id_produit
si j'ai bien compris exemple:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range("id_produit"))
If Target.Count > 1 Or isect Is Nothing Then Exit Sub
MsgBox Target
End Sub

'lSteph

"Pierre CFI [mvp]" a écrit dans le message de
news: %
Bonjour
explication de mon pb
dans une feuille j'ai une liste nommée id_produit
lors de l'évenement Change, je veux mettre du code si Target est dans
id_produit (liste verticale)
et également si Target est dans une seule cellule nommée

merci, désolé de déranger le mpfe un dimanche (sur mpfa ce sont les autres
jours de la semaine pendant lesquels il ne faut pas déranger)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info




Avatar
Pierre CFI [mvp]
.../...
Merci, c'est celà qui fallait, j'avais vu Intersect ici, mais, bien que beaucoup (trés beaucoup méme) plus jeune que jps, ma mémoire
me lache :o)))

--
Pierre CFI
MVP Microsoft Access


"lSteph" a écrit dans le message de news:
Bonjour Pierre,
si.. (pas liste en tant que contrôle ou combo?!)
...c'est une plage de cellules nommée dans le classeur id_produit
si j'ai bien compris exemple:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range("id_produit"))
If Target.Count > 1 Or isect Is Nothing Then Exit Sub
MsgBox Target
End Sub

'lSteph

"Pierre CFI [mvp]" a écrit dans le message de news: %
Bonjour
explication de mon pb
dans une feuille j'ai une liste nommée id_produit
lors de l'évenement Change, je veux mettre du code si Target est dans id_produit (liste verticale)
et également si Target est dans une seule cellule nommée

merci, désolé de déranger le mpfe un dimanche (sur mpfa ce sont les autres jours de la semaine pendant lesquels il ne faut pas
déranger)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info








Avatar
jps
tu vas voir ce que je vais lui mettre, moi, dans ta tétoire, le marin d'eau
douce
jps

"Pierre CFI [mvp]" a écrit dans le message de
news:
.../...
Merci, c'est celà qui fallait, j'avais vu Intersect ici, mais, bien que
beaucoup (trés beaucoup méme) plus jeune que jps, ma mémoire me lache
:o)))

--
Pierre CFI
MVP Microsoft Access


"lSteph" a écrit dans le message de news:

Bonjour Pierre,
si.. (pas liste en tant que contrôle ou combo?!)
...c'est une plage de cellules nommée dans le classeur id_produit
si j'ai bien compris exemple:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range("id_produit"))
If Target.Count > 1 Or isect Is Nothing Then Exit Sub
MsgBox Target
End Sub

'lSteph

"Pierre CFI [mvp]" a écrit dans le message
de news: %
Bonjour
explication de mon pb
dans une feuille j'ai une liste nommée id_produit
lors de l'évenement Change, je veux mettre du code si Target est dans
id_produit (liste verticale)
et également si Target est dans une seule cellule nommée

merci, désolé de déranger le mpfe un dimanche (sur mpfa ce sont les
autres jours de la semaine pendant lesquels il ne faut pas déranger)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info












Avatar
lSteph
;o))))

"jps" a écrit dans le message de news:
%
tu vas voir ce que je vais lui mettre, moi, dans ta tétoire, le marin
d'eau douce
jps

"Pierre CFI [mvp]" a écrit dans le message
de news:
.../...
Merci, c'est celà qui fallait, j'avais vu Intersect ici, mais, bien que
beaucoup (trés beaucoup méme) plus jeune que jps, ma mémoire me lache
:o)))

--
Pierre CFI
MVP Microsoft Access


"lSteph" a écrit dans le message de news:

Bonjour Pierre,
si.. (pas liste en tant que contrôle ou combo?!)
...c'est une plage de cellules nommée dans le classeur id_produit
si j'ai bien compris exemple:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range("id_produit"))
If Target.Count > 1 Or isect Is Nothing Then Exit Sub
MsgBox Target
End Sub

'lSteph

"Pierre CFI [mvp]" a écrit dans le message
de news: %
Bonjour
explication de mon pb
dans une feuille j'ai une liste nommée id_produit
lors de l'évenement Change, je veux mettre du code si Target est dans
id_produit (liste verticale)
et également si Target est dans une seule cellule nommée

merci, désolé de déranger le mpfe un dimanche (sur mpfa ce sont les
autres jours de la semaine pendant lesquels il ne faut pas déranger)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info
















Avatar
Pierre CFI [mvp]
la preuve, tu ne te souviens méme plus que je suis commandant et navigue sur les eaux bleues de la méditérranée, sur un yacht de 60
pied, (5 hommes d'équpage et 5 hotesses) :o))
encore une ou deux fonctions "intersect" à vendre qq part, et là, c'est place au port à Monaco

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"jps" a écrit dans le message de news: %
tu vas voir ce que je vais lui mettre, moi, dans ta tétoire, le marin d'eau douce
jps

"Pierre CFI [mvp]" a écrit dans le message de news:
.../...
Merci, c'est celà qui fallait, j'avais vu Intersect ici, mais, bien que beaucoup (trés beaucoup méme) plus jeune que jps, ma
mémoire me lache :o)))

--
Pierre CFI
MVP Microsoft Access


"lSteph" a écrit dans le message de news:
Bonjour Pierre,
si.. (pas liste en tant que contrôle ou combo?!)
...c'est une plage de cellules nommée dans le classeur id_produit
si j'ai bien compris exemple:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range("id_produit"))
If Target.Count > 1 Or isect Is Nothing Then Exit Sub
MsgBox Target
End Sub

'lSteph

"Pierre CFI [mvp]" a écrit dans le message de news: %
Bonjour
explication de mon pb
dans une feuille j'ai une liste nommée id_produit
lors de l'évenement Change, je veux mettre du code si Target est dans id_produit (liste verticale)
et également si Target est dans une seule cellule nommée

merci, désolé de déranger le mpfe un dimanche (sur mpfa ce sont les autres jours de la semaine pendant lesquels il ne faut pas
déranger)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info
















Avatar
lSteph
;o)))
ne dis pas cela à JP sinon l'eau prendra une robe grenat avec des nuances
dorées signe d'une année ensoleillée, te faudra bientôt 60 hommes pour gèrer
un yacht de 5 pieds,
et je zappe les détails sur l'intersect avec les 5 hotesses!

Cordialement.

"Pierre CFI [mvp]" a écrit dans le message de
news: %
la preuve, tu ne te souviens méme plus que je suis commandant et navigue
sur les eaux bleues de la méditérranée, sur un yacht de 60 pied, (5 hommes
d'équpage et 5 hotesses) :o))
encore une ou deux fonctions "intersect" à vendre qq part, et là, c'est
place au port à Monaco

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"jps" a écrit dans le message de news:
%
tu vas voir ce que je vais lui mettre, moi, dans ta tétoire, le marin
d'eau douce
jps

"Pierre CFI [mvp]" a écrit dans le message
de news:
.../...
Merci, c'est celà qui fallait, j'avais vu Intersect ici, mais, bien que
beaucoup (trés beaucoup méme) plus jeune que jps, ma mémoire me lache
:o)))

--
Pierre CFI
MVP Microsoft Access


"lSteph" a écrit dans le message de news:

Bonjour Pierre,
si.. (pas liste en tant que contrôle ou combo?!)
...c'est une plage de cellules nommée dans le classeur id_produit
si j'ai bien compris exemple:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range("id_produit"))
If Target.Count > 1 Or isect Is Nothing Then Exit Sub
MsgBox Target
End Sub

'lSteph

"Pierre CFI [mvp]" a écrit dans le
message de news: %
Bonjour
explication de mon pb
dans une feuille j'ai une liste nommée id_produit
lors de l'évenement Change, je veux mettre du code si Target est dans
id_produit (liste verticale)
et également si Target est dans une seule cellule nommée

merci, désolé de déranger le mpfe un dimanche (sur mpfa ce sont les
autres jours de la semaine pendant lesquels il ne faut pas déranger)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info




















Avatar
jps
pierrot alias popeye the sailorman alias le Marin Voguant Piteusement
voulait dire intersex, bien évidemment, LSteph
jps

"lSteph" a écrit dans le message de news:
%235a6A%
;o)))
ne dis pas cela à JP sinon l'eau prendra une robe grenat avec des nuances
dorées signe d'une année ensoleillée, te faudra bientôt 60 hommes pour
gèrer un yacht de 5 pieds,
et je zappe les détails sur l'intersect avec les 5 hotesses!

Cordialement.

"Pierre CFI [mvp]" a écrit dans le message
de news: %
la preuve, tu ne te souviens méme plus que je suis commandant et navigue
sur les eaux bleues de la méditérranée, sur un yacht de 60 pied, (5
hommes d'équpage et 5 hotesses) :o))
encore une ou deux fonctions "intersect" à vendre qq part, et là, c'est
place au port à Monaco

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"jps" a écrit dans le message de news:
%
tu vas voir ce que je vais lui mettre, moi, dans ta tétoire, le marin
d'eau douce
jps

"Pierre CFI [mvp]" a écrit dans le message
de news:
.../...
Merci, c'est celà qui fallait, j'avais vu Intersect ici, mais, bien que
beaucoup (trés beaucoup méme) plus jeune que jps, ma mémoire me lache
:o)))

--
Pierre CFI
MVP Microsoft Access


"lSteph" a écrit dans le message de news:

Bonjour Pierre,
si.. (pas liste en tant que contrôle ou combo?!)
...c'est une plage de cellules nommée dans le classeur id_produit
si j'ai bien compris exemple:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range("id_produit"))
If Target.Count > 1 Or isect Is Nothing Then Exit Sub
MsgBox Target
End Sub

'lSteph

"Pierre CFI [mvp]" a écrit dans le
message de news: %
Bonjour
explication de mon pb
dans une feuille j'ai une liste nommée id_produit
lors de l'évenement Change, je veux mettre du code si Target est dans
id_produit (liste verticale)
et également si Target est dans une seule cellule nommée

merci, désolé de déranger le mpfe un dimanche (sur mpfa ce sont les
autres jours de la semaine pendant lesquels il ne faut pas déranger)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info
























Avatar
Pierre CFI [mvp]
Marin Voguant Piteusement
celle là je la retiens :o)))

--
Pierre CFI (Courage Force Invincibilité face aux flots déchainés)
MVP Marin Voguant Piteusement

"jps" a écrit dans le message de news: %23Ds%
pierrot alias popeye the sailorman alias le Marin Voguant Piteusement voulait dire intersex, bien évidemment, LSteph
jps

"lSteph" a écrit dans le message de news: %235a6A%
;o)))
ne dis pas cela à JP sinon l'eau prendra une robe grenat avec des nuances dorées signe d'une année ensoleillée, te faudra bientôt
60 hommes pour gèrer un yacht de 5 pieds,
et je zappe les détails sur l'intersect avec les 5 hotesses!

Cordialement.

"Pierre CFI [mvp]" a écrit dans le message de news: %
la preuve, tu ne te souviens méme plus que je suis commandant et navigue sur les eaux bleues de la méditérranée, sur un yacht de
60 pied, (5 hommes d'équpage et 5 hotesses) :o))
encore une ou deux fonctions "intersect" à vendre qq part, et là, c'est place au port à Monaco

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"jps" a écrit dans le message de news: %
tu vas voir ce que je vais lui mettre, moi, dans ta tétoire, le marin d'eau douce
jps

"Pierre CFI [mvp]" a écrit dans le message de news:
.../...
Merci, c'est celà qui fallait, j'avais vu Intersect ici, mais, bien que beaucoup (trés beaucoup méme) plus jeune que jps, ma
mémoire me lache :o)))

--
Pierre CFI
MVP Microsoft Access


"lSteph" a écrit dans le message de news:
Bonjour Pierre,
si.. (pas liste en tant que contrôle ou combo?!)
...c'est une plage de cellules nommée dans le classeur id_produit
si j'ai bien compris exemple:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range("id_produit"))
If Target.Count > 1 Or isect Is Nothing Then Exit Sub
MsgBox Target
End Sub

'lSteph

"Pierre CFI [mvp]" a écrit dans le message de news: %
Bonjour
explication de mon pb
dans une feuille j'ai une liste nommée id_produit
lors de l'évenement Change, je veux mettre du code si Target est dans id_produit (liste verticale)
et également si Target est dans une seule cellule nommée

merci, désolé de déranger le mpfe un dimanche (sur mpfa ce sont les autres jours de la semaine pendant lesquels il ne faut
pas déranger)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info