Ligne de repère
Résolu/Fermé
anthony
-
22 oct. 2012 à 15:53
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 24 oct. 2012 à 09:40
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 24 oct. 2012 à 09:40
A voir également:
- Ligne de repère
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
- Apparaitre hors ligne whatsapp - Guide
3 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
22 oct. 2012 à 16:42
22 oct. 2012 à 16:42
Bonjour,
Pas possible avec "survol" de la souris. Mais avec click droit sur cellule ou changement de selection cellule.
Code a mettre dans VBA de la feuille du tableau
Si tableau de longueur ou/et largeur variable(s) ce code peut etre adapter.
Bonne suite
Pas possible avec "survol" de la souris. Mais avec click droit sur cellule ou changement de selection cellule.
Code a mettre dans VBA de la feuille du tableau
Si tableau de longueur ou/et largeur variable(s) ce code peut etre adapter.
'Evenement Click Droit souris
'----------------------------
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Derniere ligne du tableau
x = 23
'Plage de cellule a adapter
If Not Application.Intersect(Target, Range("A2:H18")) Is Nothing Then
Cancel = True
'Enleve couleur
Rows("1:" & x).Interior.Pattern = xlNone
'Coloriage
Rows(Target.Row & ":" & Target.Row).Interior.Color = vbYellow
Else
'Enleve couleur
Rows("1:" & x).Interior.Pattern = xlNone
End If
End Sub
'ou
'Evenement changement de selection cellule
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Derniere ligne du tableau
x = 23
'Plage de cellule a adapter
If Not Application.Intersect(Target, Range("A2:H18")) Is Nothing Then
'Enleve couleur
Rows("1:" & x).Interior.Pattern = xlNone
'Coloriage
Rows(Target.Row & ":" & Target.Row).Interior.Color = vbYellow
Else
'Enleve couleur
Rows("1:" & x).Interior.Pattern = xlNone
End If
End Sub
Bonne suite
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
23 oct. 2012 à 12:27
23 oct. 2012 à 12:27
Re,
Une facon de faire: changement de couleur ligne sur click gauche ou droit colonne A de 15 a 45 pour votre fichier(parametrable), couleur retourne a lorigine si click sur autre colonne.
https://www.cjoint.com/?BJxmvOqxv1Y
Bonne suite
Une facon de faire: changement de couleur ligne sur click gauche ou droit colonne A de 15 a 45 pour votre fichier(parametrable), couleur retourne a lorigine si click sur autre colonne.
https://www.cjoint.com/?BJxmvOqxv1Y
Bonne suite
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 214
Modifié par eriiic le 24/10/2012 à 08:15
Modifié par eriiic le 24/10/2012 à 08:15
Bonjour,
Si je peux me permettre, une autre proposition qui évite de mémoriser les mises en forme.
Actif quelque soit la cellule sélectionnée sur la ligne.
A mettre dans le code de la feuille :
+ sélectionner la plage concernée et mettre en MFC :
=OU(LIGNE()=LIGNE(ActCell);COLONNE()=COLONNE(ActCell))
https://www.cjoint.com/?BJyh6C7qkNb
eric
edit: Il faut accepter les macros à l'ouverture du fichier en cliquant sur la barre jaune en haut.
Voir éventuellement les réglages dans 'fichier / options / centre de gestion de la confidentialité / paramètres du centre de gestion de la confidentialité / paramètres des macros' : il faut au minimum 'désactiver toutes les macros avec notification'.
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
Si je peux me permettre, une autre proposition qui évite de mémoriser les mises en forme.
Actif quelque soit la cellule sélectionnée sur la ligne.
A mettre dans le code de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Names.Add Name:="ActCell", RefersTo:="=" & ActiveCell.Address
End Sub
+ sélectionner la plage concernée et mettre en MFC :
=OU(LIGNE()=LIGNE(ActCell);COLONNE()=COLONNE(ActCell))
https://www.cjoint.com/?BJyh6C7qkNb
eric
edit: Il faut accepter les macros à l'ouverture du fichier en cliquant sur la barre jaune en haut.
Voir éventuellement les réglages dans 'fichier / options / centre de gestion de la confidentialité / paramètres du centre de gestion de la confidentialité / paramètres des macros' : il faut au minimum 'désactiver toutes les macros avec notification'.
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
Bonjour Eric,
D'abord un grand merci cela fonctionne avec ta méthode ( c'est normal j'ai rien eu a faire just à reprendre on fichier).
Ensuite j'accepte bien les macros au départ, je clique sur option activer ce conenue, mais pour la méthode de f894009 rien ne se passe, donc je dois faire autre chose de mal.
Enfin, pouvez-vous 'expliquer ce qu'un "MFC" s'il vous plait.
Merci
D'abord un grand merci cela fonctionne avec ta méthode ( c'est normal j'ai rien eu a faire just à reprendre on fichier).
Ensuite j'accepte bien les macros au départ, je clique sur option activer ce conenue, mais pour la méthode de f894009 rien ne se passe, donc je dois faire autre chose de mal.
Enfin, pouvez-vous 'expliquer ce qu'un "MFC" s'il vous plait.
Merci
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 214
24 oct. 2012 à 09:10
24 oct. 2012 à 09:10
J'ai testé le fichier de f894009, il fonctionne.
Il faut cliquer en colonne A pour surligner la ligne (mais tu le perds si tu sélectionnes dans une autre colonne)
Une MFC est une Mise en Forme Conditionnelle (que tu utilises dans ton fichier).
eric
Il faut cliquer en colonne A pour surligner la ligne (mais tu le perds si tu sélectionnes dans une autre colonne)
Une MFC est une Mise en Forme Conditionnelle (que tu utilises dans ton fichier).
eric
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
24 oct. 2012 à 09:14
24 oct. 2012 à 09:14
Bonjour a vous deux,
Merci Eric pour ta solution plus simple pour un "debutant". Par contre, je ne comprend pas pourquoi Anthony n'arrives pas faire tourner son fichier que j'ai modifie!!!!
Anthony: MFC---> Mise en Forme Conditionnelle
Bonne suite
Merci Eric pour ta solution plus simple pour un "debutant". Par contre, je ne comprend pas pourquoi Anthony n'arrives pas faire tourner son fichier que j'ai modifie!!!!
Anthony: MFC---> Mise en Forme Conditionnelle
Bonne suite
23 oct. 2012 à 07:23
Merci beaucoup,
mais je viens de copier ta formule mais rien ne se passe, sans doute que je fait mal quelque chose ( la macro pour moi est un langage inconnu).
Pourtant j'ai activé les macros.
Mon tableau est toujours de même taille.
J'aimerais églement la comprendre car j'aimerais l'appliquer à tous mes tableur Excel.
A bientôt
23 oct. 2012 à 08:17
Il faut adapter la plage de cellules et la derniere ligne du tableau.
A defaut, si votre fichier n'est pas confidentiel, mettez le a dispo sur: https://www.cjoint.com/ , n'oubliez pas de copier le lien cree.
A+
23 oct. 2012 à 09:39
Merci de votre réponse rapide, voici mon fichier, ma ligne de repère concerne uniquement la feuille "PDC".
http://cjoint.com/?3JxjLQIxgd5
Si vous pouviez m'expliquer les variables de votre formule que je puisse l'adapter sur d'autre tableur.
Encore merci
23 oct. 2012 à 09:48
Je recupere votre fichier et vous tiens au courrant.
A+
23 oct. 2012 à 10:02
Comme vous avez de la couleur par defaut, je dois modifier pour remettre cette couleur par defaut sur les cellules aux changement de selection.
A+