Zone de sélection

[thomasly@neuf.fr]

Bonjour le forum,


Voici mon petit problème, :

Existe-il un moyen de savoir si la zone sélectionnée contient :
. une cellule unique ?
. des lignes entières ?
. des colonnes entières ?

Merci de vos réponse

@+

 

[Dan]

Re : Zone de sélection

Bonjour

Code à essayer :

Sub test()
MsgBox Selection.Address
End Sub

Amicalement

 

[thomasly@neuf.fr]

Re : Zone de sélection

Bonjour Dan,


Justement..
Comment tester sur Selection.Address pour savoir si c'est une cellule unique ou pas ...

En fait, existe t-il une fonction en vba par exemple :

if Selection.celluleunique=true then ... etc ...


Merci

 

[JNP]

Re : Zone de sélection

Bonjour le fil 🙂,
A tester

MsgBox "Nbre de cellule : " & Selection.Count & vbCrLf & _
    "Nbre de colonnes : " & Selection.Columns.Count & vbCrLf & _
    "Nbre de ligne : " & Selection.Rows.Count

Bonne soirée 😎

 

[Staple1600]

Re : Zone de sélection

Bonjour

Pour le plaisir de croiser JNP

Sub b()
With Selection
a = "NB lignes :" & .Rows.Count & vbCrLf
a = a & "NB colonnes :" & .Columns.Count & vbCrLf
a = a & "NB plages discontinues :" & .Areas.Count & vbCrLf
a = a & "NB cellules :" & .Cells.Count ' .Count suffit comme le fit JNP ;-)
End With
MsgBox a
End Sub

Il faudra peaufiner si Areas supérieur à 1