Discussion :

[rob1son76]

Bonjour,

Comme le dis le titre je cherche à connaitre les numéros de colonnes d'une sélection multiple.
J'y arrive pour une sélection continue de colonne mais pour une multiple.
je vous met mon code:

Code :

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

1
2
3
4
5
6
Set MEF = Application.InputBox(prompt:="Sélectionnez les colonnes dont vous voulez vérifier les codes, pas de données ouvertes", Type:=8)
Set Nom_Onglet_MEF = MEF.CurrentRegion
ColDeb_MEF = MEF(1, 1).Column
ColFin_MEF = MEF(1, MEF.Columns.Count).Column
LigDeb_MEF = MEF(1, 1).Row
LigFin_MEF = MEF(MEF.Rows.Count, 1).Row

Si je sélectionne les colonnes A à E j'obtiens pour ColDeb 1 et pour ColFin 5.
Mais si je sélectionne les colonnes A et E j'obtiens pour ColDb et ColFin 1.
Ce qui ne va pas.
J'ai cherché sur le net et je n'ai pas trouvé la solution et je ne vois pas comment faire.

merci de votre aide.

[jfontaine]

Bonjour,

Ci dessous une proposition qui te retourne les colonnes sélectionnées

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim StrCol() As StringDim Rg As Range
Dim Col As Integer
Dim i As Integer
 
StrCol = Split(Selection.Columns.Address, ",")
 
For i = 0 To UBound(StrCol)
    Set Rg = Range(StrCol(i))
 
    For Col = 1 To Rg.Columns.Count
        MsgBox Rg.Columns(Col).Column
    Next Col
 
Next

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
6
For Each c In mef.Areas
    If c.Column + c.Columns.Count - 1 > ColFin_MEF Then
        ColFin_MEF = c.Column + c.Columns.Count - 1
    End If
Next c
MsgBox ColFin_MEF

[rob1son76]

Merci jfontaine pour ta réponse.
Ca marche parfaitement lorsque je remplace "selection" par "MEF" dans la ligne

Code :

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

StrCol = Split(Selection.Columns.Address, ",")

.

Daniel.C, j'ai testé ton code mais il ne me renvoie que le numéros de la dernière colonne sélectionné.
merci de t'être penché sur mon problème.

Bonne journée

[Daniel.C]

Daniel.C, j'ai testé ton code mais il ne me renvoie que le numéros de la dernière colonne sélectionné.
merci de t'être penché sur mon problème.

Ok, mais il faut chercher à comprendre et aussi à adapter. C'est le but du forum. Voici, pour toi, la solution qui te dispensera de réfléchir :

Code :

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

1
2
3
For Each c In mef.Areas
    MsgBox "Colonne(s) de " & c.Column & " à " & c.Column + c.Columns.Count - 1
Next c