Discussion :

[qltmi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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.

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Test PremCol, DerCol

Bonne soirée

Edit
Nettement grillé mais entre temps j'ai diné
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[qltmi]

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

j'ai testé et ça marche bien.

[jpma75]

Bonjour,

Ce fil m'intéresse,

En reprenant le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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. 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.
2. 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

[Patrice740]

Bonjour,

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

Il y a plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

Cordialement,
jp