D Didier Guest 19 Novembre 2005 #1 Bonjour à tous Je cherche à obtenir les coordonnées d'une plage, que j'obtient avec ActiveSheet.UsedRange.Select Merci et à bientôt
Bonjour à tous Je cherche à obtenir les coordonnées d'une plage, que j'obtient avec ActiveSheet.UsedRange.Select Merci et à bientôt
Robert XLDnaute Barbatruc Repose en paix 19 Novembre 2005 #2 Bonjour Didier, bonjour le forum, Cette macro devrait t'aider : Sub Macro2() Dim ad As String ad = ActiveSheet.UsedRange.Address(0, 0) MsgBox ad End Sub Cliquez pour agrandir... Vote positif 0 Vote négatif
Bonjour Didier, bonjour le forum, Cette macro devrait t'aider : Sub Macro2() Dim ad As String ad = ActiveSheet.UsedRange.Address(0, 0) MsgBox ad End Sub Cliquez pour agrandir...
D Didier Guest 19 Novembre 2005 #3 Merci Robert Mais c'est plutôt le nombre de lignes et le nombre de colonnes que je souhaite obtenir Didier Vote positif 0 Vote négatif
Merci Robert Mais c'est plutôt le nombre de lignes et le nombre de colonnes que je souhaite obtenir Didier
Robert XLDnaute Barbatruc Repose en paix 19 Novembre 2005 #4 Bonjour Didier, bonjour le forum, Alors peut-être comme cela : Sub Macro2() Dim li As Integer, col As Integer col = ActiveSheet.UsedRange.Columns.Count li = ActiveSheet.UsedRange.Rows.Count MsgBox 'la plage comporte' & vbCrLf & col & ' colonne(s)' & vbCrLf & li & ' ligne(s)' End Sub Cliquez pour agrandir... Vote positif 0 Vote négatif
Bonjour Didier, bonjour le forum, Alors peut-être comme cela : Sub Macro2() Dim li As Integer, col As Integer col = ActiveSheet.UsedRange.Columns.Count li = ActiveSheet.UsedRange.Rows.Count MsgBox 'la plage comporte' & vbCrLf & col & ' colonne(s)' & vbCrLf & li & ' ligne(s)' End Sub Cliquez pour agrandir...