ligne active

[franck.36]

bonjour à tous
j'aurai souhaité savoir comment faire pour que lorsque je selectionne une cellule, les cellules a et b de la ligne active soient en couleur(jaune par exemple). Je précise que je travaille sur un tableau qui est en couleur fait à partir de la palette couleur.
tout ce que j'ai pu essayer jusqu'à maintenant, les couleurs de mon tableau se suppriment.
par avance merci

 

[RICO1972]

Re : ligne active

Salut, poste un fichier en exemple avec des explications.
@+
RICO

 

[franck.36]

Re : ligne active

voici un fichier exempleRegarde la pièce jointe exemple.xls
je souhaiterai avoir la cellule A en couleur lorsque je click sur une ligne sans pour autant me supprimer les couleurs existantes

 

[franck.36]

Re : ligne active

j'ai réussi à faire cette macro, c'est ok pour les cellules A&B en couleur mais elle me suppriment les couleurs de mon tableau.
quelqu'un aurait-il une solution pour conserver mes couleurs?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
Dim aa
aa = ActiveCell.Row
Range(Cells(aa, 1), Cells(aa, 2)).Interior.ColorIndex = 6
End Sub

 

[franck.36]

Re : ligne active

personne n'a de solution miracle ??????

 

[papapaul]

Re : ligne active


Je suis pas tres doue mais tu peux essayer quelquechose du genre


Dim plage as range

set plage = range (aa....ici ton range...)

For each aa in plage
cell.interior.colorindex= 6
Next

@+

 

[Moa]

Re : ligne active

Salut Frank36 !

En premier, il te faut une macro évènementielle qui ne se lancera que lorsque tu cliqueras dans les cellules de ton tableau.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E7:AI34")) Is Nothing Then


En deuxième, il te faut repèrer l'adresse de ta cellule active.

Dim Test
Test = ActiveCell.Column - 1

En dernier, il te faut colorier tes deux cellules désirées en colonne A et B tout en effaçant simultanément les cellules coloriées ultérieurement par la même macro :

'Nettoyage des cellules
Range("A7:B34").Cells.Interior.ColorIndex = xlNone

'Colorie la cellule en colonne A
ActiveCell.Offset(0, -Test).Interior.ColorIndex = 6

'Colorie la cellule en colonne B
ActiveCell.Offset(0, -Test + 1).Interior.ColorIndex = 6

Ce qui donne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Test
Test = ActiveCell.Column - 1

If Not Application.Intersect(Target, Range("E7:AI34")) Is Nothing Then
'Nettoyage des cellules
Range("A7:B34").Cells.Interior.ColorIndex = xlNone

'Colorie la cellule en colonne A
ActiveCell.Offset(0, -Test).Interior.ColorIndex = 6

'Colorie la cellule en colonne B
ActiveCell.Offset(0, -Test + 1).Interior.ColorIndex = 6

End If
End Sub

Si tu ne veux pas voir le rafraichissement de l'écran (Petit scintillement), n'oublies pas le "Application.ScreenUpdating = False" au début de ta macro
et le rétablissement "Application.ScreenUpdating = True" en fin de macro.

Regarde ton fichier en pièce jointe et dis nous !

@ +++

ChrisOne

 

[franck.36]

Re : ligne active

super et merci à vous.

ChrisOne, je te remerci, ta solution marche à merveille, c'est exactement ce que je voulais. encore bravo.

 

[franck.36]

Re : ligne active

la macro marche bien, par contre je n'ai pas précisé que toutes mes feuilles de mon classeur sont protégées (mot de passe) par une macro.
lorsque mon classeur est déprotégé, tout marche bien au niveau des cellules actives)
par contre lorsque je protège mon classeur, dès que je clique une cellule, j'ai un message d'erreur d'éxécution"1004" : impossible de définir la propriété ColorIndex de la classe interior. "debogage"
Range("a7:b34").Cells.Interior.colorIndex = xlNone
quelqu'un aurait-il une idée ? merci

 

[Pierrot93]

Re : ligne active

Bonjour Franck, Moa, Papapaul, Rico

lorsque tu protèges tes feuilles par macro, mets dans ton code l'argument "UserInterfaceOnly" à "true", comme dans l'exemple ci dessous :

Sheets(1).Protect "toto", UserInterfaceOnly:=True

Bonne journée
@+

 

[franck.36]

Re : ligne active

Bonjour Pierrot, Moa, Papapaul, Rico
cette fois-ci je pense que tout est ok, plus d'erreur.
un grand MERCI à vous tous, vous êtes très sympa.
A très bientôt.

Franck.