Connaitre les numéros des colonnes d'une sélection multiple en vba

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:

---

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.

Bonjour,

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

Code:

---

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

---

Bonjour,

Code:

---

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

---

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

Code:

---

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

Citation:

---

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:

---

1 2 3

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

---