Discussion :

[tallent_e]

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 :

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

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 ?

[mercatog]

Bonjour

Code :

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

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

[tallent_e]

ah oui ! très bien.
MERCI.