Je ne sais pas si cette question a déjà été posée (je n'en ai pas
trouvé la trace).
Dans la macro que je développe, j'ai besoin de vérifier que je ne sors
pas de la zone de données.
Comment puis-je vérifier cela ?
Merci
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
JB
Bonsoir,
Quelle zone de données?
Intersect(Champ1,Champ2) donne l'intersection de 2 champs. Sur l'exemple on vérifie si B100 est dans la zone A1:UsedRange - La dernière cellule occupée en bas à droite.
If Intersect(Range([A1], ActiveSheet.UsedRange), [B100]) Is Nothing Then MsgBox "Hors UseedRange" End if
JB
On 18 mar, 18:07, NGTB wrote:
Bonjour,
Je ne sais pas si cette question a déjà été posée (je n'en ai p as trouvé la trace). Dans la macro que je développe, j'ai besoin de vérifier que je ne sors pas de la zone de données. Comment puis-je vérifier cela ? Merci
J-C
Bonsoir,
Quelle zone de données?
Intersect(Champ1,Champ2) donne l'intersection de 2 champs.
Sur l'exemple on vérifie si B100 est dans la zone A1:UsedRange - La
dernière cellule occupée en bas à droite.
If Intersect(Range([A1], ActiveSheet.UsedRange), [B100]) Is Nothing
Then
MsgBox "Hors UseedRange"
End if
JB
On 18 mar, 18:07, NGTB <caussequ...@danawoo.fr> wrote:
Bonjour,
Je ne sais pas si cette question a déjà été posée (je n'en ai p as
trouvé la trace).
Dans la macro que je développe, j'ai besoin de vérifier que je ne sors
pas de la zone de données.
Comment puis-je vérifier cela ?
Merci
Intersect(Champ1,Champ2) donne l'intersection de 2 champs. Sur l'exemple on vérifie si B100 est dans la zone A1:UsedRange - La dernière cellule occupée en bas à droite.
If Intersect(Range([A1], ActiveSheet.UsedRange), [B100]) Is Nothing Then MsgBox "Hors UseedRange" End if
JB
On 18 mar, 18:07, NGTB wrote:
Bonjour,
Je ne sais pas si cette question a déjà été posée (je n'en ai p as trouvé la trace). Dans la macro que je développe, j'ai besoin de vérifier que je ne sors pas de la zone de données. Comment puis-je vérifier cela ? Merci
J-C
NGTB
On 18 Mar 2007 11:17:11 -0700, "JB" wrote:
Bonsoir,
Quelle zone de données?
il s'agit d'un tableau de valeurs dont le nombre de colonnes et de lignes est appelé à augmenter.
Intersect(Champ1,Champ2) donne l'intersection de 2 champs. Sur l'exemple on vérifie si B100 est dans la zone A1:UsedRange - La dernière cellule occupée en bas à droite.
If Intersect(Range([A1], ActiveSheet.UsedRange), [B100]) Is Nothing Then MsgBox "Hors UseedRange" End if
JB
Merci, je vais tester cela ce soir.
J-C
On 18 Mar 2007 11:17:11 -0700, "JB" <boisgontier@hotmail.com> wrote:
Bonsoir,
Quelle zone de données?
il s'agit d'un tableau de valeurs dont le nombre de colonnes
et de lignes est appelé à augmenter.
Intersect(Champ1,Champ2) donne l'intersection de 2 champs.
Sur l'exemple on vérifie si B100 est dans la zone A1:UsedRange - La
dernière cellule occupée en bas à droite.
If Intersect(Range([A1], ActiveSheet.UsedRange), [B100]) Is Nothing
Then
MsgBox "Hors UseedRange"
End if
il s'agit d'un tableau de valeurs dont le nombre de colonnes et de lignes est appelé à augmenter.
Intersect(Champ1,Champ2) donne l'intersection de 2 champs. Sur l'exemple on vérifie si B100 est dans la zone A1:UsedRange - La dernière cellule occupée en bas à droite.
If Intersect(Range([A1], ActiveSheet.UsedRange), [B100]) Is Nothing Then MsgBox "Hors UseedRange" End if
JB
Merci, je vais tester cela ce soir.
J-C
NGTB
On Mon, 19 Mar 2007 10:19:05 +0100, NGTB wrote:
On 18 Mar 2007 11:17:11 -0700, "JB" wrote:
Bonsoir, [snip]../..[/snip]
Intersect(Champ1,Champ2) donne l'intersection de 2 champs. Sur l'exemple on vérifie si B100 est dans la zone A1:UsedRange - La dernière cellule occupée en bas à droite.
If Intersect(Range([A1], ActiveSheet.UsedRange), [B100]) Is Nothing Then MsgBox "Hors UseedRange" End if
JB
[snip]../..[/snip]
Bonjour,
Merci beaucoup, c'est exactement ce dont j'avais besoin. Pour progresser sans ennuyer plus avant quiconque, je serai intéressé par des références bibliographiques accessibles à un utilisateur moyen puis avancé. Est-ce que quelqu'un pourrait m'en suggérer, je vous prie ?
J-C
On Mon, 19 Mar 2007 10:19:05 +0100, NGTB <caussequejc@danawoo.fr>
wrote:
On 18 Mar 2007 11:17:11 -0700, "JB" <boisgontier@hotmail.com> wrote:
Bonsoir,
[snip]../..[/snip]
Intersect(Champ1,Champ2) donne l'intersection de 2 champs.
Sur l'exemple on vérifie si B100 est dans la zone A1:UsedRange - La
dernière cellule occupée en bas à droite.
If Intersect(Range([A1], ActiveSheet.UsedRange), [B100]) Is Nothing
Then
MsgBox "Hors UseedRange"
End if
JB
[snip]../..[/snip]
Bonjour,
Merci beaucoup, c'est exactement ce dont j'avais besoin.
Pour progresser sans ennuyer plus avant quiconque, je serai intéressé
par des références bibliographiques accessibles à un utilisateur moyen
puis avancé.
Est-ce que quelqu'un pourrait m'en suggérer, je vous prie ?
Intersect(Champ1,Champ2) donne l'intersection de 2 champs. Sur l'exemple on vérifie si B100 est dans la zone A1:UsedRange - La dernière cellule occupée en bas à droite.
If Intersect(Range([A1], ActiveSheet.UsedRange), [B100]) Is Nothing Then MsgBox "Hors UseedRange" End if
JB
[snip]../..[/snip]
Bonjour,
Merci beaucoup, c'est exactement ce dont j'avais besoin. Pour progresser sans ennuyer plus avant quiconque, je serai intéressé par des références bibliographiques accessibles à un utilisateur moyen puis avancé. Est-ce que quelqu'un pourrait m'en suggérer, je vous prie ?
Intersect(Champ1,Champ2) donne l'intersection de 2 champs. Sur l'exemple on vérifie si B100 est dans la zone A1:UsedRange - La dernière cellule occupée en bas à droite.
If Intersect(Range([A1], ActiveSheet.UsedRange), [B100]) Is Nothing Then MsgBox "Hors UseedRange" End if
JB
[snip]../..[/snip]
Bonjour,
Merci beaucoup, c'est exactement ce dont j'avais besoin. Pour progresser sans ennuyer plus avant quiconque, je serai intéressé par des références bibliographiques accessibles à un utilisateur mo yen puis avancé. Est-ce que quelqu'un pourrait m'en suggérer, je vous prie ?
On 20 mar, 11:19, NGTB <caussequ...@danawoo.fr> wrote:
On Mon, 19 Mar 2007 10:19:05 +0100, NGTB <caussequ...@danawoo.fr>
wrote:
On 18 Mar 2007 11:17:11 -0700, "JB" <boisgont...@hotmail.com> wrote:
Bonsoir,
[snip]../..[/snip]
Intersect(Champ1,Champ2) donne l'intersection de 2 champs.
Sur l'exemple on vérifie si B100 est dans la zone A1:UsedRange - La
dernière cellule occupée en bas à droite.
If Intersect(Range([A1], ActiveSheet.UsedRange), [B100]) Is Nothing
Then
MsgBox "Hors UseedRange"
End if
JB
[snip]../..[/snip]
Bonjour,
Merci beaucoup, c'est exactement ce dont j'avais besoin.
Pour progresser sans ennuyer plus avant quiconque, je serai intéressé
par des références bibliographiques accessibles à un utilisateur mo yen
puis avancé.
Est-ce que quelqu'un pourrait m'en suggérer, je vous prie ?
Intersect(Champ1,Champ2) donne l'intersection de 2 champs. Sur l'exemple on vérifie si B100 est dans la zone A1:UsedRange - La dernière cellule occupée en bas à droite.
If Intersect(Range([A1], ActiveSheet.UsedRange), [B100]) Is Nothing Then MsgBox "Hors UseedRange" End if
JB
[snip]../..[/snip]
Bonjour,
Merci beaucoup, c'est exactement ce dont j'avais besoin. Pour progresser sans ennuyer plus avant quiconque, je serai intéressé par des références bibliographiques accessibles à un utilisateur mo yen puis avancé. Est-ce que quelqu'un pourrait m'en suggérer, je vous prie ?
