Discussion :

[flamel]

Bonjour,

Je souhaiterais sélectionner automatiquement diverses colonnes dans une feuille, par exemple en fonction de la valeur de la cellule de la ligne 1, puis pouvoir les regrouper en une plage.
J'obtiens bien l'adresse de mes colonnes (par un nombre), mais je ne sais pas les regrouper pour créer une plage.
Merci si vous pouvez m'aider, à condition que je me sois bien exprimé !

[jp014]

Bonjour

Un exemple de regroupement dans une plage

Code :

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

1
2
3
4
5
6
7
 
Dim plage As String
plage = Chr(64 + 1) & ":" & Chr(64 + 2)' pour les colonnes A et B
plage = plage & "," & Chr(64 + 4) & ":" & Chr(64 + 4) ' pour la  colonne D
    Range(plage).Select
    Range("a1").Activate
End Sub

JP014

[flamel]

Merci jp014?

Mais quand l'adresse d'une colonne a 2 lettres, commùent faire ?
Je ne savais pas qu'on pouvait faire plage = plage + etc..

Cordialement

[jp014]

Bonjour

Mais quand l'adresse d'une colonne a 2 lettres, comment faire ?

Une fonction à tester pour transformer une valeur numérique en adresse alphabétique.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function LCenAX(Col As Long)
Dim £I As Integer
If Col < (26 + 1) Then
    LCenAX = Chr(Col + 64)
Else
    For £I = 1 To 11
        If Col > (£I * 26) And Col < ((£I + 1) * 26) + 1 Then LCenAX = Chr(64 + £I) & Chr(Col + 64 - (£I * 26))
    Next £I
End If
End Function

Je n'ai pas trouvé la syntaxe si elle existe pour utiliser Columns

Code :

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

1
2
 
Range(Columns(1), Columns(3)).Select

sélectionne les colonnes de 1 à 3


JP014

[mercatog]

un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim i As Integer
Dim TabCol
Dim plage As String
 
TabCol = Array(2, 5, 6, 8, 12, 78, 112)
plage = Columns(TabCol(0)).Address
For i = 1 To UBound(TabCol)
    plage = Union(Range(plage), Columns(TabCol(i))).Address
Next i
Range(plage).Select

[Qwazerty]

Salut
[Edit]
... arff grillé...
[/Edit]
et VBA créa Union

Code :

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

Union(Columns(45),Columns(55),Columns(66),......).select

A++
Qwaz