Sélection de colonnes

Version imprimable

24/09/2008, 20h14
qltmi

Sélection de colonnes

Bonjour,

je voudrais savoir comment faire pour sélectionner tous les colonnes paires ou impaires à partir d'une colonne jusqu'à une autre colonne.

Par exemple, pour sélection les colonnes impaires de E à M on ferait

Code:

Range("E:E,G:G,I:I,K:K,M:M").Select

mais je voudrai le faire en dynamique, sans avoir à entrer tous les colonnes.

Merci de votre réponse.

Bonjour

Il y a peut-être plus simple. L'idée est de créer la chaine des colonnes par boucle. Il y a la procédure avec les paramètres, et une procédure TEST pour illustrer comment l'utiliser

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub SelectionnerColonnes(ColonneDebut As String, ColonneFin As String, ColonnesPaires As Boolean)
    Dim ColNumDebut As Integer
    Dim i As Integer
    Dim Chaine As String
 
    ColNumDebut = Range(ColonneDebut & "1").Column
 
    If ColNumDebut Mod 2 <> 0 And ColonnesPaires Then ColNumDebut = ColNumDebut + 1
 
    For i = ColNumDebut To Range(ColonneFin & "1").Column Step 2
        Chaine = Chaine & Split(Cells(1, i).Address, "$")(1) & ":" & Split(Cells(1, i).Address, "$")(1) & ","
    Next i
    Chaine = Left(Chaine, Len(Chaine) - 1)
    Range(Chaine).Select
End Sub
 
Sub Test()
    SelectionnerColonnes "E", "O", True
End Sub

Code:

1 2 3 4 5 6 7 8 9 10 11 Sub test() Dim Plage As Range, Liste As String Dim PremCol As Integer, DerCol As Integer, NoCol As Integer PremCol = 6 DerCol = 18 For NoCol = PremCol To DerCol Step 2 Liste = Liste & Split(Cells(1, NoCol).Address, "$")(1) & ":" & Split(Cells(1, NoCol).Address, "$")(1) & "," Next Liste = Left(Liste, Len(Liste) - 1) Range(Liste).Select End Sub
Tu peux utiliser la même procédure en envoyant PremCol et DerCol en paramètres, auquel cas tu les inclus

Code:

Sub test(PremCol As Integer, DerCol As Integer)

et auquel cas tu supprimes les déclaration et leurs valeurs dans la sub
Pour l'appeler

Code:

Test PremCol, DerCol

Bonne soirée

Edit
Nettement grillé mais entre temps j'ai diné :aie:
Incroyable ! On croirait que j'ai copié ton code. J'avais même l'option pour différencier le paire de l'impaire en ajoutant un paramètre.

Code:

If PremCol Mod 2 = Parametre Then PremCol = PremCol + 1

24/09/2008, 22h00
qltmi

MERCI à vous deux pour la rapidité et l'efficacité de réponse.

j'ai testé et ça marche bien.

Bonjour,

Ce fil m'intéresse,

En reprenant le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub test() Dim Plage As Range, Liste As String Dim PremCol As Integer, DerCol As Integer, NoCol As Integer PremCol = 6 DerCol = 18 For NoCol = PremCol To DerCol Step 2 Liste = Liste & Split(Cells(1, NoCol).Address, "$")(1) & ":" & Split(Cells(1, NoCol).Address, "$")(1) & "," Next Liste = Left(Liste, Len(Liste) - 1) Range(Liste).Select End Sub
1 remarque, si j'affecte 10 à DerCol, ça fonctionne mais si je mets 734, non. J'ai pensé que cela était dû à la déclaration des variables mais apparemment non.
Comme mes lignes du haut sont fusionnées (je sais, ce n'est pas bien), j'ai besoin de sélectionner une colonne sur deux mais dans une plage donnée ("C7:ABF18"). Est-ce possible ?

En vous remerciant par avance pour vos lumières,
Cordialement,
jp

Bonjour,

Avec Range(Liste), le nombre de plages dans la liste est limité (chez moi à 20).

Il y a plus simple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Sub test()
Dim Zone As Range, Plage As Range, Col As Range
Const pas As Integer = 2   'pas = 2 soit une colonne sur 2
 
  Set Zone = ActiveSheet.Range("C7:ABF18")
  For Each Col In Zone.Columns
    If Zone.Column Mod pas = Col.Column Mod pas Then
      If Plage Is Nothing Then
        Set Plage = Col
      Else
        Set Plage = Union(Plage, Col)
      End If
    End If
  Next
  'Et si besoin (mais c'est très, très rarement le cas) :
  Plage.Select
 
End Sub

29/07/2020, 07h26
jpma75

Bonjour Patrice,

MERCI !!!!!! Ça fonctionne parfaitement, y compris pour les colonnes impaires. Après avoir "déterré" un fil de 2008 (?), je ne m'attendais pas à une réponse a fortiori si rapide.

Je vais pouvoir affecter mes listes de validations de données, respectivement sur ces colonnes paires et impaires.

Ça fait du bien de commencer la journée comme ça :D

Cordialement,
jp