Sélection ligne.

[Mattharm]

Bonsoir,

J'aimerais réaliser un code vba réalisant cela :

If Selection = Une ligne entière then
     Selection.Interior.Colorindex = 6
End If

If Selection = Une cellule, ou plusieurs cellules then
    Sélectionner la ligne correspondante
    Selection.Interior.Colorindex = 6
End If

N'hésitez pas à me questionner si j'ai mal exprimé mon problème.
Merci d'avance
Mattharm

 

[job75]

Re : Sélection ligne.

Bonjour Mattharm,

Essayez donc :

If Selection.Rows.Count = 1 And Selection.Count = Columns.Count Then
     Selection.Interior.ColorIndex = 6
End If

If Selection.Count = 1 Then
    Selection.EntireRow.Select
    Selection.Interior.ColorIndex = 6
End If

A noter qu'en VBA il est préférable d'éviter les Select, c'est un B A BA...

A+

 

[Mattharm]

Re : Sélection ligne.

Bonjour Mattharm,

A noter qu'en VBA il est préférable d'éviter les Select, c'est un B A BA...

A+

Alors pourquoi utilisez vous des Select ?

 

[job75]

Re : Sélection ligne.

Re,

Perso je n'utilise presque jamais Select, mais vous vous avez écrit :

Sélectionner la ligne correspondante

Alors, discipliné, j'obéis car le client est roi

A+

 

[Mattharm]

Re : Sélection ligne.

Héhéhéhé

On peut se tutoyer ?

Le client n'est pas roi, le client exprimait en français le code désiré
Tu as une meilleure solution ?

 

[ERIC S]

Re : Sélection ligne.

Bonsoir

une remarque bête

Selection.EntireRow.Interior.ColorIndex = 6

marche si on a une, plusieurs cellules ou ligne entière sélectionnées

isn't it?

effectivement un test de précaution sur le nb de lignes sélectionnées peut s'avérer utile, selon le besoin...

 

[job75]

Re : Sélection ligne.

Re,

Sans Select :

If Selection.Count = 1 Then Selection.EntireRow.Interior.ColorIndex = 6

Et si la plage "plage" était déterminée autrement que par une sélection, remplacer Selection par plage.

A+

 

[Mattharm]

Re : Sélection ligne.

Re,

Sans Select :

If Selection.Count = 1 Then Selection.EntireRow.Interior.ColorIndex = 6

Et si la plage "plage" était déterminée autrement que par une sélection, remplacer Selection par plage.

A+

If Selection.Count >= 1 and Selection.Count < Columns.Count Then Selection.EntireRow.Interior.ColorIndex = 6

Pour globaliser peut être ?

 

[job75]

Re : Sélection ligne.

Bonjour Mattharm, le forum,

Si le but c'est de colorer toujours une seule ligne :

If Selection.EntireRow.Cells.Count = Columns.Count Then Selection.EntireRow.Interior.ColorIndex = 6

On peut éventuellement se passer du test :

ActiveCell.EntireRow.Interior.ColorIndex = 6

A+