Discussion :

[Kaiba]

Bonjour ,

Je cherche a colorier une ligne selon la cellule qui est selectioner . Je m'explique :

Grace à VB je selectione une cellule suite a un userform . Une fois cette cellule selectioner , je sais changer sa couleur mais ce que je voudrais c'est changer la couleur de toutes les cellules situés sur la ligne de la cellule selectioner . Est-ce possible ?

Merci d'avance.

Cordialement.

[cwain]

Bonjour,
avec une de ces 2 commandes tu devrais y arriver :

Code :

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

ActiveCell.EntireRow.Interior.Color

ou

Code :

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

ActiveCell.EntireRow.Interior.ColorIndex

[Kaiba]

Impeccable !
Je te remercie .

Cordialement.

[Kaiba]

Bonjour ,

Desole de réouvrir le sujet mais j'ai une petite question subsidiaire

Est-il possible de rendre les autres cellules de la feuille ( celles qui ne sont donc pas sur la ligne de la cellule selectioné ) "invisible" ou "intouchable" . En gros qu'on ne puisse que modifier cette ligne ?

Merci d'avance.

[cwain]

Bonjour,

si tu "unlock" ta ligne puis que tu protèges ta feuille, ça devrait le faire je pense ? ci-dessous le code obtenu avec l'enregistreur de macro

Code :

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

1
2
3
4
5
Rows("15:15").Select
Selection.Locked = False
Selection.FormulaHidden = False
Cells.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Cwain

[Kaiba]

Merci encore une fois de ta promptitude !

Mais une question :

Tu met Rows("15:15").Select mais comment dire a VB de choisir la ligne d'une cellule deja selectione ?

Je connais pas par avance le numero de la ligne c'est ca qui m'embete .

Mais en essayant ta formule avec une ligne donné ca marche impecable je te remercie .

Cordialement.


EDIT : J'ai trouvé par moi-même : Rows(Selection.Row).Select .
Merci tout de même pour ton aide !!

Cordialement.