Ne pas exécuter une macro si hors des colonnes A à G.

[Résolu]
Signaler
Messages postés
112
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
20 novembre 2006
-
Messages postés
112
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
20 novembre 2006
-
Bonjour à tous et à toutes,

J'aurais aimé récupérer la liste des colonnes de la sélection active.

En fait, je veux protéger ma macro, qui ne doit etre exécutée que si la selection se situe entre les colonnes A et G.
Je voudrais donc au debut de la macro, tester les colonnes actives, et ne pas exécuter la suite si une seule zone de la sélection sort des colonnes A à G (comprises).

Merci d'avance !

$p00ky


_________________________________________________
.:: KoC-FR ::. Alliance Francophone Kings of Chaos
Venez jouer au meilleur MMORPG gratuit et facile !

2 réponses

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
17
Salut,

Ce n'est peut-être pas très académique mais j'ai retrouvé une astuce qui peut peut-être te servir.

Si tu veux tester uniquement la dernière colonne (dans ton cas, G donc la 7ème colonne) :

Range("a:g").Select
If Selection.Columns.Count + Selection.Column - 1 <= 7 Then
MsgBox "c'est bon"
Else
MsgBox "c'est pas bon"
End If

Tu peux essayer avec range("b:g").select, range("c:g").select, le résultat est ok. Remplace le g par h ou plus, c'est plus bon.

Dans le même ordre d'idée, si tu veux que la colonne A fasse partie de la sélection :

Range("a:g").Select
If Selection.Column =1 and (Selection.Columns.Count + Selection.Column - 1) <= 7 Then
MsgBox "c'est bon"
Else
MsgBox "c'est pas bon"
End If

Dis si ça répond à ta question, sinon on essaiera de trouver autre chose.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
112
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
20 novembre 2006

Héhé, merci pour la réponse rapide et parfaite, c'est exactement ce que je voulais ;)

Encore merci !

@+

$p00ky


_________________________________________________
.:: KoC-FR ::. Alliance Francophone Kings of Chaos
Venez jouer au meilleur MMORPG gratuit et facile !