Colorier une ligne sous condition

Bonjour le forum,

meilleurs vœux pour cette année2018

Je cherche à colorier une ligne quand je fait (ctrl C) en vba ou formule

Nota: je le fait en mise en forme conditionnelle mais il faut saisir X dans une cellule

merci d'avance

jean claude

Bonjour,

il faut se mettre sur une cellule de la ligne et faire Ctrl+Maj+C

on pourrait aussi effacer de la même façon la couleur si tu le souhaites, ou je te laisse faire ...

Bonjour,

Salut Steelson

Pourquoi pas simplement :

Sub Colorierligne()
    ActiveCell.EntireRow.Interior.Color = 65535
End Sub

Bien sûr ... mais je suis encore petit expert, j'en apprends tous les jours !

Steelson a écrit :

Bien sûr ... mais je suis encore petit expert, j'en apprends tous les jours !

Dis pas de bêtises ...

Est-ce-qu'à ton avis ... pour en faire le moins possible .. Ferdinand ne serait pas plus à l'aise avec, par exemple, un double-clic ... ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.EntireRow.Interior.Color = 65535 Then _
Target.EntireRow.Interior.Color = xlNone Else _
Target.EntireRow.Interior.Color = 65535
Cancel = True
End Sub

Bonsoir à vous deux ,

James007

Est-ce-qu'à ton avis ... pour en faire le moins possible .. Ferdinand ne serait pas plus à l'aise avec, par exemple, un double-clic ... ?

mais cela serait bien avec un double clic

Mais je préférerai avec (ctrl*C) et un double clic pour revenir à la couleur initiale

Attention le coloriage de la ligne est entre A:O sur 200 lignes

merci de vos réponses

jean claude

Ferdinand,

Il est toujours possible d'adapter ...

La macro double-clic permet de faire les deux ...

Le premier double-clic ajoute la couleur ... et si la ligne est déjà coloriée ... le second double-clic supprime la couleur ...

Tu peux bien sûr ... tester la chose ... pour voir si cela te convient ... ou pas ...

Bonsoir à vous deux,

merci des propositions,

James007 --Ta solution est bien mais je voudrais cantonner la couleur au colonnes A:O sur un double clic,

j'ai des informations de Q a Z qui non pas besoin de couleur,

Bonne soirée jean claude

Re,

Pour restreindre la plage ... tu peux tester la macro suivante :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:O200")) Is Nothing Then Exit Sub
  With Target
    If .Interior.Color = 65535 Then _
    Range(Cells(.Row, "A"), Cells(.Row, "O")).Interior.Color = xlNone Else _
    Range(Cells(.Row, "A"), Cells(.Row, "O")).Interior.Color = 65535
  End With
Cancel = True
End Sub

En espérant que cela t'aide ...

Superbe, mes respects ...

Mais si le "client" veut le faire sur plusieurs lignes en même temps ?

Steelson a écrit :

Superbe, mes respects ...

Merci Michel ...

Mais tu avoueras qu'il n' y a là vraiment rien d'exceptionnel ...

Bonsoir vous deux,

respects,

Comme dis Steelson

Superbe, mes respects ...

Mais si le "client" veut le faire sur plusieurs lignes en même temps ?

Non la je n'ai pas besoin je copie la sélection couleur vers une autre page pour un planning de sortie randonnée

Mais si l'on voulais aller plus loin,

quand on sélectionne avec (ctrl C) que la ligne se mette en couleur et que en double clic on enlève la couleur,

mais je pense que cela ne doit pas être faisable,

merci quand même pour votre implication,

cordialement jean claude

@ James :

C'est surtout l'idée du double-clic ... pas pour l'effet "bascule" ! et quand j'ai vu que tu avais pris le sujet en main, je me suis reposé sur mes lauriers en attendant la réponse.

FERDINAND a écrit :

Mais si l'on voulais aller plus loin,

quand on sélectionne avec (ctrl C) que la ligne se mette en couleur et que en double clic on enlève la couleur,

mais je pense que cela ne doit pas être faisable,

Re,

Merci pour tes remerciements ...

Mais pour ta remarque ....' d'aller plus loin ' ...

Je pense ne plus très bien comprendre ...

quand on sélectionne avec (ctrl C) que la ligne se mette en couleur et que en double clic on enlève la couleur,

Cela signifie ... si tu copies ... que tu veux que ce soit à destination ... que la couleur apparaisse ...

Me trompe-je ...???

bonsoir à vous deux

Non je pense que cela va compliquer la formule (cela me convient)

par contre rajouter dans la colonne P un X en fasse la ligne qui est cliqué mirais bien (si cela est faisable)

autrement si cela n'est pas possible je clos le sujet,

merci jean claude

**Pour explication je copie les cellules sélectionner que je recopie dans une autre feuille en fasse des dates de se coté je ne peut pas faire

autrement,

Re,

Certainement que tes contraintes te poussent à vouloir faire ce drôle de mariage ...

Donc, au cas où tu aurais besoin de capturer l'évènement Copie ... et ajouter la couleur à ce moment là ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.OnKey "^c", "AjoutCouleur"
End Sub

et

Sub AjoutCouleur()
  Selection.Interior.Color = vbYellow
End Sub

En espérant que cela te permette ' d'aller plus loin ' ...

Re,

Tu dis

Ajouter dans la colonne P un X sur la même ligne au moment du double clic

... c'est possible ...

Mais faut-il aussi l'effacer ... lorsque tu supprimes la couleur ...???

RE

Non que quand on supprime le X manuellement la couleur disparais,

merci

OK ...

J'espère que cette solution va finalement te convenir ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:O200")) Is Nothing Then Exit Sub
  With Target
    Range(Cells(.Row, "A"), Cells(.Row, "O")).Interior.Color = 65535
    Cells(.Row, "P") = "X"
  End With
Cancel = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 16 Then Exit Sub
If Target = "" Then Range(Cells(Target.Row, "A"), Cells(Target.Row, "O")).Interior.Color = xlNone
End Sub

Bonsoir James007

cela me convient très bien je clos le sujet,

merci infiniment jean claude

Bonne nuit