savoir si la selection est une ligne

[okparanoid]

bonjour ! je veux declencher une macro a chaque fois qu'une (et une seule) ligne est selectionnee.

Je ne trouve pa le test a effectuer pour que la condition soit remplie (je veux l'ajouter dans l'evenement selectionchange de la feuille).

Merci pour votre aide

 

[pierrejean]

bonjour okparanoid

tu as

Selection.Rows.Count=1

note: fonctionne aussi pour une selection de quelques cellules alignées sur une ligne

si cela pose probleme je chercherai plus avant

 

[Robert]

Bonsoir Okparanoid, Pierre Jean,bonsoir le forum,

Je propose cette macro un peu tirée par les cheveux mais dont le résultat est plus sûr :

Sub Macro1()
Dim li As Long 'déclare la variable li
Dim cel As Range 'déclare la variable cel

If Selection.Cells.Count = 256 Then 'condition 1 : si le le nombre de cellules sélectionnées est = 256

li = ActiveCell.Row 'définit la variable li

For Each cel In Selection 'boucle sur toutes les cellules de la sélection

'condition 2 : si le numéro de ligne de la cellule cel est différent de li
'sort de la procédure
If cel.Row DIFFÉRENT_DE li Then Exit Sub

Next cel 'prochaine cellule de la selection

'Ta macro ici...

End If 'fin de la condition 1

End Sub

Comme le forum n'accepte pas les deux symboles consécutifs Inférieur, Supérieur j'ai écrit DIFFÉRENT_DE. Tu corrigeras...

Message édité par: Robert, à: 30/03/2006 00:52

 

[Mytå]

a

 

[okparanoid]

Merci a vous !

J'ai opte pour un ptit intermediaire :

If Selection.Rows.Count = 1 And Selection.Cells.Count > 10 Then

ca me va tres bien comme ca