cs_Sp00ky
Messages postés112Date d'inscriptionvendredi 21 janvier 2005StatutMembreDernière intervention20 novembre 2006
-
3 août 2005 à 16:59
cs_Sp00ky
Messages postés112Date d'inscriptionvendredi 21 janvier 2005StatutMembreDernière intervention20 novembre 2006
-
4 août 2005 à 08:32
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).
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 3 août 2005 à 22:22
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 !?