verifier appartenance a une plage dans une procédure
4 réponses
yan
Bonjour a tous
J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range)
ad = choix.Address
ad = Mid(ad, 2, 1)
If ad <> "C" Then Exit Sub
...................
Un petit travail sur la variable ad me permet de verifier que la frappe a
lieu dans des cellules autorisées
Comment faire la verif sur une plage nommée?
du genre
Si "choix" appartient a" plage" alors ceci, sinon cela
merci de votre aide
Yan
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
hasco
Bonjour,
If Intersect(Choix, [Plage]) Then ..... else ...... End If
voir l'aide sur Intersect
Bonjour a tous J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range) ad = choix.Address ad = Mid(ad, 2, 1) If ad <> "C" Then Exit Sub .................... Un petit travail sur la variable ad me permet de verifier que la frappe a lieu dans des cellules autorisées Comment faire la verif sur une plage nommée? du genre Si "choix" appartient a" plage" alors ceci, sinon cela merci de votre aide Yan
Bonjour,
If Intersect(Choix, [Plage]) Then
.....
else
......
End If
voir l'aide sur Intersect
Bonjour a tous
J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range)
ad = choix.Address
ad = Mid(ad, 2, 1)
If ad <> "C" Then Exit Sub
....................
Un petit travail sur la variable ad me permet de verifier que la frappe a
lieu dans des cellules autorisées
Comment faire la verif sur une plage nommée?
du genre
Si "choix" appartient a" plage" alors ceci, sinon cela
merci de votre aide
Yan
If Intersect(Choix, [Plage]) Then ..... else ...... End If
voir l'aide sur Intersect
Bonjour a tous J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range) ad = choix.Address ad = Mid(ad, 2, 1) If ad <> "C" Then Exit Sub .................... Un petit travail sur la variable ad me permet de verifier que la frappe a lieu dans des cellules autorisées Comment faire la verif sur une plage nommée? du genre Si "choix" appartient a" plage" alors ceci, sinon cela merci de votre aide Yan
Jacky
Bonjour,
Comme ceci, '-------- Sub worksheet_change(ByVal choix As Range) If Not Intersect(choix, [plage]) Is Nothing Then 'ton code ' Exit Sub End If MsgBox "Zone de saisie interdite" End Sub '------------
-- Salutations JJ
"yan" a écrit dans le message de news: 46482d8e$0$27405$
Bonjour a tous J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range) ad = choix.Address ad = Mid(ad, 2, 1) If ad <> "C" Then Exit Sub ................... Un petit travail sur la variable ad me permet de verifier que la frappe a lieu dans des cellules autorisées Comment faire la verif sur une plage nommée? du genre Si "choix" appartient a" plage" alors ceci, sinon cela merci de votre aide Yan
Bonjour,
Comme ceci,
'--------
Sub worksheet_change(ByVal choix As Range)
If Not Intersect(choix, [plage]) Is Nothing Then
'ton code
'
Exit Sub
End If
MsgBox "Zone de saisie interdite"
End Sub
'------------
--
Salutations
JJ
"yan" <xyz@wanadoo.fr> a écrit dans le message de news:
46482d8e$0$27405$ba4acef3@news.orange.fr...
Bonjour a tous
J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range)
ad = choix.Address
ad = Mid(ad, 2, 1)
If ad <> "C" Then Exit Sub
...................
Un petit travail sur la variable ad me permet de verifier que la frappe a
lieu dans des cellules autorisées
Comment faire la verif sur une plage nommée?
du genre
Si "choix" appartient a" plage" alors ceci, sinon cela
merci de votre aide
Yan
Comme ceci, '-------- Sub worksheet_change(ByVal choix As Range) If Not Intersect(choix, [plage]) Is Nothing Then 'ton code ' Exit Sub End If MsgBox "Zone de saisie interdite" End Sub '------------
-- Salutations JJ
"yan" a écrit dans le message de news: 46482d8e$0$27405$
Bonjour a tous J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range) ad = choix.Address ad = Mid(ad, 2, 1) If ad <> "C" Then Exit Sub ................... Un petit travail sur la variable ad me permet de verifier que la frappe a lieu dans des cellules autorisées Comment faire la verif sur une plage nommée? du genre Si "choix" appartient a" plage" alors ceci, sinon cela merci de votre aide Yan
Daniel
Bonjour. Dans ce cas particulier, tu peux utiliser : If choix.Column <> 3 then ... Plus généralement : If Not Intersect(choix, plage) is Nothing then... Cordialement. Daniel "yan" a écrit dans le message de news: 46482d8e$0$27405$
Bonjour a tous J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range) ad = choix.Address ad = Mid(ad, 2, 1) If ad <> "C" Then Exit Sub ................... Un petit travail sur la variable ad me permet de verifier que la frappe a lieu dans des cellules autorisées Comment faire la verif sur une plage nommée? du genre Si "choix" appartient a" plage" alors ceci, sinon cela merci de votre aide Yan
Bonjour.
Dans ce cas particulier, tu peux utiliser :
If choix.Column <> 3 then ...
Plus généralement :
If Not Intersect(choix, plage) is Nothing then...
Cordialement.
Daniel
"yan" <xyz@wanadoo.fr> a écrit dans le message de news:
46482d8e$0$27405$ba4acef3@news.orange.fr...
Bonjour a tous
J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range)
ad = choix.Address
ad = Mid(ad, 2, 1)
If ad <> "C" Then Exit Sub
...................
Un petit travail sur la variable ad me permet de verifier que la frappe a
lieu dans des cellules autorisées
Comment faire la verif sur une plage nommée?
du genre
Si "choix" appartient a" plage" alors ceci, sinon cela
merci de votre aide
Yan
Bonjour. Dans ce cas particulier, tu peux utiliser : If choix.Column <> 3 then ... Plus généralement : If Not Intersect(choix, plage) is Nothing then... Cordialement. Daniel "yan" a écrit dans le message de news: 46482d8e$0$27405$
Bonjour a tous J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range) ad = choix.Address ad = Mid(ad, 2, 1) If ad <> "C" Then Exit Sub ................... Un petit travail sur la variable ad me permet de verifier que la frappe a lieu dans des cellules autorisées Comment faire la verif sur une plage nommée? du genre Si "choix" appartient a" plage" alors ceci, sinon cela merci de votre aide Yan
yan
Bonjour merci a vous pour vos réponses, c'est bien ce que je cherchais mais je ne connaissais pas "intersect" Et j'ai fais ceci If Intersect(choix, [Validation]) Is Nothing Then Exit Sub Merci et bonne après-midi A+ Yan
"Daniel" a écrit dans le message de news:
Bonjour. Dans ce cas particulier, tu peux utiliser : If choix.Column <> 3 then ... Plus généralement : If Not Intersect(choix, plage) is Nothing then... Cordialement. Daniel "yan" a écrit dans le message de news: 46482d8e$0$27405$
Bonjour a tous J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range) ad = choix.Address ad = Mid(ad, 2, 1) If ad <> "C" Then Exit Sub ................... Un petit travail sur la variable ad me permet de verifier que la frappe a lieu dans des cellules autorisées Comment faire la verif sur une plage nommée? du genre Si "choix" appartient a" plage" alors ceci, sinon cela merci de votre aide Yan
Bonjour
merci a vous pour vos réponses, c'est bien ce que je cherchais mais je ne
connaissais pas "intersect"
Et j'ai fais ceci
If Intersect(choix, [Validation]) Is Nothing Then Exit Sub
Merci et bonne après-midi
A+
Yan
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eLZpv4glHHA.4644@TK2MSFTNGP03.phx.gbl...
Bonjour.
Dans ce cas particulier, tu peux utiliser :
If choix.Column <> 3 then ...
Plus généralement :
If Not Intersect(choix, plage) is Nothing then...
Cordialement.
Daniel
"yan" <xyz@wanadoo.fr> a écrit dans le message de news:
46482d8e$0$27405$ba4acef3@news.orange.fr...
Bonjour a tous
J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range)
ad = choix.Address
ad = Mid(ad, 2, 1)
If ad <> "C" Then Exit Sub
...................
Un petit travail sur la variable ad me permet de verifier que la frappe a
lieu dans des cellules autorisées
Comment faire la verif sur une plage nommée?
du genre
Si "choix" appartient a" plage" alors ceci, sinon cela
merci de votre aide
Yan
Bonjour merci a vous pour vos réponses, c'est bien ce que je cherchais mais je ne connaissais pas "intersect" Et j'ai fais ceci If Intersect(choix, [Validation]) Is Nothing Then Exit Sub Merci et bonne après-midi A+ Yan
"Daniel" a écrit dans le message de news:
Bonjour. Dans ce cas particulier, tu peux utiliser : If choix.Column <> 3 then ... Plus généralement : If Not Intersect(choix, plage) is Nothing then... Cordialement. Daniel "yan" a écrit dans le message de news: 46482d8e$0$27405$
Bonjour a tous J'utilise ce début de procédure pour enclencher une tache automatique.
Sub worksheet_change(ByVal choix As Range) ad = choix.Address ad = Mid(ad, 2, 1) If ad <> "C" Then Exit Sub ................... Un petit travail sur la variable ad me permet de verifier que la frappe a lieu dans des cellules autorisées Comment faire la verif sur une plage nommée? du genre Si "choix" appartient a" plage" alors ceci, sinon cela merci de votre aide Yan