position et valeur d'une cellule avec Application.InputBox

bonjour

je souhaite écrire une macro qui effectuerait des opérations avec les le range de cellules sélectionnées par l'utilisateur au moyen de Application.InputBox .

le code aurait une ligne du type :

Code:

---

Set monRange = Application.InputBox(prompt:="Sélection un range", Type:=8)

---

mais comment récupère-t-on :
le numéro de la colonne (des colonnes) sélectionnée(s) ?
la première cellule ? la dernière cellule ?

Bonjour

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim MonRange As Object Dim ColDeb As Integer, ColFin As Integer Dim LigDeb As Long, LigFin As Long   Set MonRange = Application.InputBox(prompt:="Sélection un range de cellules", Type:=8) ColDeb = MonRange(1, 1).Column ColFin = MonRange(1, MonRange.Columns.Count).Column LigDeb = MonRange(1, 1).Row LigFin = MonRange(MonRange.Rows.Count, 1).Row   MsgBox "Première Colonne " & ColDeb & vbCrLf & "Dernière Colonne " & ColFin & _ vbCrLf & "Première ligne " & LigDeb & vbCrLf & "Dernière ligne " & LigFin

---

ah oui ! très bien.
MERCI.