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 Dans la zone

Dans la zone

7 réponses
Avatar
Crel
Bonsoir à toutes et tous.
J'ai un tableau qui a une zone de travail appeler "zone" D6:M19.J'ai des
msgbox qui pose des questions dans cette zone. Tout cela fonctionne
parfaitement, sauf si un utilisateur clique hors de cette zone pour utiliser
un msgbox.
Comment faire pour que l'on ne puisse pas utiliser un msgbox hors de la
zone./
Merci beaucoup.
Patrick.
Signaler un problème avec ce contenu

7 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
Philippe.R
Bonsoir Patrick,
Tu peux t'inspirer de ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("zone")) Is Nothing Then
Exit Sub
Else
MsgBox "Vous avez tapé dans la zone !", vbInformation, "Merci MPFE"
End If
End Sub


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:
Bonsoir à toutes et tous.
J'ai un tableau qui a une zone de travail appeler "zone" D6:M19.J'ai des
msgbox qui pose des questions dans cette zone. Tout cela fonctionne
parfaitement, sauf si un utilisateur clique hors de cette zone pour utiliser
un msgbox.
Comment faire pour que l'on ne puisse pas utiliser un msgbox hors de la
zone./
Merci beaucoup.
Patrick.




Avatar
Crel
Euh... Merci Philippe, mais c'est exactement le contraire.
Je souhaite qu'un utilisateur ne puisse pas lancer un msgbox hors de la
zone.
J'ai créé des proc afin d'effacer des éléments. Et je ne souhaite pas qu'un
utilisateur par inadvertance, clique sur un intitulé, et le supprime, il
faudait qu'il supprime uniquement les éléments de cette zone.
Merci.

"Philippe.R" a écrit dans le message de news:

Bonsoir Patrick,
Tu peux t'inspirer de ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("zone")) Is Nothing Then
Exit Sub
Else
MsgBox "Vous avez tapé dans la zone !", vbInformation, "Merci MPFE"
End If
End Sub


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:
Bonsoir à toutes et tous.
J'ai un tableau qui a une zone de travail appeler "zone" D6:M19.J'ai des
msgbox qui pose des questions dans cette zone. Tout cela fonctionne
parfaitement, sauf si un utilisateur clique hors de cette zone pour
utiliser


un msgbox.
Comment faire pour que l'on ne puisse pas utiliser un msgbox hors de la
zone./
Merci beaucoup.
Patrick.








Avatar
Crel
Merci beaucoup Philippe, j'ai voulu me risquer à te faire une réponse en
allemand, mais c'est beaucoup trop loin pour moi.
Patrick.

"Philippe.R" a écrit dans le message de news:

Bonjour Patrick,

Si c'est le contraire, ce n'est pas bien difficile d'adapter, comme ceci
par exemple :


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("zone")) Is Nothing Then
MsgBox "Zone interdite, Ganz Verboten !" & vbNewLine + vbNewLine & "Heraus
Schnel !", vbCritical, "Ca va

pas la tête !"
Exit Sub
Else
MsgBox "Vous êtes dans le secteur autorisé !" & vbNewLine + vbNewLine &
"vous pouvez y aller !",

vbInformation, "Merci MPFE"
End If
End Sub


J'ai bon ? ;o))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:
Euh... Merci Philippe, mais c'est exactement le contraire.
Je souhaite qu'un utilisateur ne puisse pas lancer un msgbox hors de la
zone.
J'ai créé des proc afin d'effacer des éléments. Et je ne souhaite pas
qu'un


utilisateur par inadvertance, clique sur un intitulé, et le supprime, il
faudait qu'il supprime uniquement les éléments de cette zone.
Merci.

"Philippe.R" a écrit dans le message de news:

Bonsoir Patrick,
Tu peux t'inspirer de ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("zone")) Is Nothing Then
Exit Sub
Else
MsgBox "Vous avez tapé dans la zone !", vbInformation, "Merci MPFE"
End If
End Sub


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:
Bonsoir à toutes et tous.
J'ai un tableau qui a une zone de travail appeler "zone" D6:M19.J'ai
des




msgbox qui pose des questions dans cette zone. Tout cela fonctionne
parfaitement, sauf si un utilisateur clique hors de cette zone pour
utiliser


un msgbox.
Comment faire pour que l'on ne puisse pas utiliser un msgbox hors de
la




zone./
Merci beaucoup.
Patrick.
















Avatar
Philippe.R
Re Patrick,
C'est bien loin pour moi aussi, et tu n'imagines pas à quel point c'est cette partie de ma réponse qui
m'a demandé le plus d'effort !
;o))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:
Merci beaucoup Philippe, j'ai voulu me risquer à te faire une réponse en
allemand, mais c'est beaucoup trop loin pour moi.
Patrick.

"Philippe.R" a écrit dans le message de news:

Bonjour Patrick,

Si c'est le contraire, ce n'est pas bien difficile d'adapter, comme ceci
par exemple :


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("zone")) Is Nothing Then
MsgBox "Zone interdite, Ganz Verboten !" & vbNewLine + vbNewLine & "Heraus
Schnel !", vbCritical, "Ca va

pas la tête !"
Exit Sub
Else
MsgBox "Vous êtes dans le secteur autorisé !" & vbNewLine + vbNewLine &
"vous pouvez y aller !",

vbInformation, "Merci MPFE"
End If
End Sub


J'ai bon ? ;o))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:
Euh... Merci Philippe, mais c'est exactement le contraire.
Je souhaite qu'un utilisateur ne puisse pas lancer un msgbox hors de la
zone.
J'ai créé des proc afin d'effacer des éléments. Et je ne souhaite pas
qu'un


utilisateur par inadvertance, clique sur un intitulé, et le supprime, il
faudait qu'il supprime uniquement les éléments de cette zone.
Merci.

"Philippe.R" a écrit dans le message de news:

Bonsoir Patrick,
Tu peux t'inspirer de ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("zone")) Is Nothing Then
Exit Sub
Else
MsgBox "Vous avez tapé dans la zone !", vbInformation, "Merci MPFE"
End If
End Sub


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:
Bonsoir à toutes et tous.
J'ai un tableau qui a une zone de travail appeler "zone" D6:M19.J'ai
des




msgbox qui pose des questions dans cette zone. Tout cela fonctionne
parfaitement, sauf si un utilisateur clique hors de cette zone pour
utiliser


un msgbox.
Comment faire pour que l'on ne puisse pas utiliser un msgbox hors de
la




zone./
Merci beaucoup.
Patrick.




















Avatar
Crel
Merci beaucoup Philippe, j'ai compris ta syntaxe, au temps pour moi.
Patrick.
En plus c'est vrai que ça s'écrit comme cela "au temps".

"Philippe.R" a écrit dans le message de news:

Re Patrick,
C'est bien loin pour moi aussi, et tu n'imagines pas à quel point c'est
cette partie de ma réponse qui

m'a demandé le plus d'effort !
;o))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:
Merci beaucoup Philippe, j'ai voulu me risquer à te faire une réponse en
allemand, mais c'est beaucoup trop loin pour moi.
Patrick.

"Philippe.R" a écrit dans le message de news:

Bonjour Patrick,

Si c'est le contraire, ce n'est pas bien difficile d'adapter, comme
ceci



par exemple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("zone")) Is Nothing Then
MsgBox "Zone interdite, Ganz Verboten !" & vbNewLine + vbNewLine &
"Heraus



Schnel !", vbCritical, "Ca va
pas la tête !"
Exit Sub
Else
MsgBox "Vous êtes dans le secteur autorisé !" & vbNewLine + vbNewLine
&



"vous pouvez y aller !",
vbInformation, "Merci MPFE"
End If
End Sub


J'ai bon ? ;o))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:
Euh... Merci Philippe, mais c'est exactement le contraire.
Je souhaite qu'un utilisateur ne puisse pas lancer un msgbox hors de
la




zone.
J'ai créé des proc afin d'effacer des éléments. Et je ne souhaite
pas




qu'un
utilisateur par inadvertance, clique sur un intitulé, et le
supprime, il




faudait qu'il supprime uniquement les éléments de cette zone.
Merci.

"Philippe.R" a écrit dans le message de
news:





Bonsoir Patrick,
Tu peux t'inspirer de ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("zone")) Is Nothing Then
Exit Sub
Else
MsgBox "Vous avez tapé dans la zone !", vbInformation, "Merci
MPFE"





End If
End Sub


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message
de





news:
Bonsoir à toutes et tous.
J'ai un tableau qui a une zone de travail appeler "zone"
D6:M19.J'ai






des
msgbox qui pose des questions dans cette zone. Tout cela
fonctionne






parfaitement, sauf si un utilisateur clique hors de cette zone
pour






utiliser
un msgbox.
Comment faire pour que l'on ne puisse pas utiliser un msgbox
hors de






la
zone./
Merci beaucoup.
Patrick.
























Avatar
Crel
Fichtre, c'est de l'explication CQFD,
mille merci pour ta gentillesse, et ta compétence.
Patrick.

"Philippe.R" a écrit dans le message de news:

Re,
J'ai donc du mal comprendre ; j'explicite :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Si on est dans la plage nommée "zone" (double
négation vaut

' affirmation : Not *
Is Nothing)

If Not Intersect(Target, Range("zone")) Is Nothing Then
'Message d'avertissement
MsgBox "Zone interdite, Ganz Verboten !" & vbNewLine + vbNewLine _
& "Heraus Schnel !", vbCritical, "Ca va pas la tête !"
'On sort de la procédure
Exit Sub
'Sinon
Else
'c'est qu'on est bien dans la zone autorisée
'message ou déclenchement de l'action
MsgBox "Vous êtes dans le secteur autorisé !" & vbNewLine + vbNewLine
_

& "vous pouvez y aller !", vbInformation, "Merci MPFE"
End If
End Sub

La variante initiale fonctionnait ainsi :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Si on n'est pas dans la plage nommée zone2
If Intersect(Target, Range("zone2")) Is Nothing Then
' on sort de la procédure
Exit Sub
'sinon
Else
'on est dans la zone autorisée et message
'ou bien déclenchement d'une action quelconque
MsgBox "Vous avez tapé dans la zone !", vbInformation, "Merci MPFE"
End If
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:%23BWJd$
Désolé Philippe, je ne vois pas la différence.
Patrick.

"Philippe.R" a écrit dans le message de news:

Bonjour Patrick,

Si c'est le contraire, ce n'est pas bien difficile d'adapter, comme
ceci



par exemple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("zone")) Is Nothing Then
MsgBox "Zone interdite, Ganz Verboten !" & vbNewLine + vbNewLine &
"Heraus



Schnel !", vbCritical, "Ca va
pas la tête !"
Exit Sub
Else
MsgBox "Vous êtes dans le secteur autorisé !" & vbNewLine + vbNewLine
&



"vous pouvez y aller !",
vbInformation, "Merci MPFE"
End If
End Sub


J'ai bon ? ;o))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:
Euh... Merci Philippe, mais c'est exactement le contraire.
Je souhaite qu'un utilisateur ne puisse pas lancer un msgbox hors de
la




zone.
J'ai créé des proc afin d'effacer des éléments. Et je ne souhaite
pas




qu'un
utilisateur par inadvertance, clique sur un intitulé, et le
supprime, il




faudait qu'il supprime uniquement les éléments de cette zone.
Merci.

"Philippe.R" a écrit dans le message de
news:





Bonsoir Patrick,
Tu peux t'inspirer de ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("zone")) Is Nothing Then
Exit Sub
Else
MsgBox "Vous avez tapé dans la zone !", vbInformation, "Merci
MPFE"





End If
End Sub


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message
de





news:
Bonsoir à toutes et tous.
J'ai un tableau qui a une zone de travail appeler "zone"
D6:M19.J'ai






des
msgbox qui pose des questions dans cette zone. Tout cela
fonctionne






parfaitement, sauf si un utilisateur clique hors de cette zone
pour






utiliser
un msgbox.
Comment faire pour que l'on ne puisse pas utiliser un msgbox
hors de






la
zone./
Merci beaucoup.
Patrick.
























Avatar
AV
J'ai créé des proc afin d'effacer des éléments. Et je ne souhaite pas qu'un
utilisateur par inadvertance, clique sur un intitulé, et le supprime, il
faudait qu'il supprime uniquement les éléments de cette zone.


Et si tu verrouillais les cellules sensibles puis protection de la feuille ??
A l'utilisation, les msgbox ça devient parfois gonflant ... ;-)

AV