Comment changer cel. active pour la rangé complete dans mon code
Résolu
chantalan
Messages postés
20
Date d'inscription
Statut
Membre
Dernière intervention
-
chantalan Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
chantalan Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je vous remercie a l'avance de m'aider.
J'ai trouvé dans le forum le code suivant:
Public old_color, old_sel
Option Explicit
Sub Worksheet_SelectionChange(ByVal sel As range)
If Not old_sel = "" Then range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 6
End Sub
Mais ce que je veux c'est voir la rangé complete en jaune quand mon courseur est dans une cellule active. Dans mon tableau, j'ai des cellules en couleur mais je ne veut pas que ca l'efface.
Alors je veux simplement savoir ou je suis dans mon tableau sans rien changé sauf voir la ligne en jaune ou je suis , si mon curseur est dans la case B2, mai la ligne 2 en jaune MAIS ne change rien si ma cellules en en vert quand je vais sortir de ma cellule.
Excel 2010
Merci milles fois
Je vous remercie a l'avance de m'aider.
J'ai trouvé dans le forum le code suivant:
Public old_color, old_sel
Option Explicit
Sub Worksheet_SelectionChange(ByVal sel As range)
If Not old_sel = "" Then range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 6
End Sub
Mais ce que je veux c'est voir la rangé complete en jaune quand mon courseur est dans une cellule active. Dans mon tableau, j'ai des cellules en couleur mais je ne veut pas que ca l'efface.
Alors je veux simplement savoir ou je suis dans mon tableau sans rien changé sauf voir la ligne en jaune ou je suis , si mon curseur est dans la case B2, mai la ligne 2 en jaune MAIS ne change rien si ma cellules en en vert quand je vais sortir de ma cellule.
Excel 2010
Merci milles fois
A voir également:
- Comment changer cel. active pour la rangé complete dans mon code
- Changer dns - Guide
- Code ascii - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Comment changer mon code pin - Guide
2 réponses
Bonjour,
Une proposition qui pose une MFC, préserve les couleurs manuelles et les autres MFC.
https://www.cjoint.com/c/FAwn3QCcqmN
eric
Une proposition qui pose une MFC, préserve les couleurs manuelles et les autres MFC.
https://www.cjoint.com/c/FAwn3QCcqmN
eric
Bonjour Eriic,
Cela fonctionne mais quand j'enregistre mon fichier, la ligne jaune demeure là. Elle ne disparait pas. Je ne veux pas quelle reste affiché un coup mon fichier fermé (ligne active). De plus, est-ce possible de l'activer et/ou deactiver mon code en tout temps sur ma feuille! J'ai entrer le code par développeur visualiser le code et apres exécuter mais je ne sais pas comment arreter sauf si je le supprime mais encore la il laisse la ligne jaune.
merci beaucoup de votre aide c'est précieux pour moi!
Cela fonctionne mais quand j'enregistre mon fichier, la ligne jaune demeure là. Elle ne disparait pas. Je ne veux pas quelle reste affiché un coup mon fichier fermé (ligne active). De plus, est-ce possible de l'activer et/ou deactiver mon code en tout temps sur ma feuille! J'ai entrer le code par développeur visualiser le code et apres exécuter mais je ne sais pas comment arreter sauf si je le supprime mais encore la il laisse la ligne jaune.
merci beaucoup de votre aide c'est précieux pour moi!
mais quand j'enregistre mon fichier, la ligne jaune demeure là. Elle ne disparait pas.
Si, si tu mets tout le code. Il y en a dans ThisWorkbook, tu le vois dans le texte de Feuil1 que j'ai mis là surtout pour ça.
De plus, est-ce possible de l'activer et/ou deactiver mon code en tout temps sur ma feuille!
Ajour une case à cocher ActiveX sur la feuille et remplace :
If Target.Count > 1 Then Exit Sub
par :
If Target.Count > 1 Or Not CheckBox1 Then Exit Sub
Si, si tu mets tout le code. Il y en a dans ThisWorkbook, tu le vois dans le texte de Feuil1 que j'ai mis là surtout pour ça.
De plus, est-ce possible de l'activer et/ou deactiver mon code en tout temps sur ma feuille!
Ajour une case à cocher ActiveX sur la feuille et remplace :
If Target.Count > 1 Then Exit Sub
par :
If Target.Count > 1 Or Not CheckBox1 Then Exit Sub
Vous ne repondez pas a la question !!
Mise en Forme Conditionnelle
Mais je voudrais que la ligne de la cellule active soit en jaune. je doudrais aussi etre capable de mettre une couleur dans la cellule active si je veux mais quelle la garde quand je vais sortir de la cellule active. merci beaucoup
Je me rend compte que mon code change un peu la couleur de mes cellules déja colorées mais je ne veux pas quelle les change!