Formater ligne&colonne cellule active Excel

Résolu/Fermé
rafi93 Messages postés 8 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 8 avril 2014 - 9 févr. 2009 à 10:41
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 9 févr. 2009 à 15:16
bonjour

sous Excel, je souhaite formater automatiquement la ligne et la colonne de la cellule selectionnée (serait tres pratique pour savoir où on est dans un tableau !)

j 'ai essayé (sans succès...) de reutiliser différents codes trouvés sur le forum

quelle serait la bonne solution ?

cerise sur le gateau, avec possibilité activer/desactiver cette fonctionnalité , p.ex bouton dans la barre menus

merci bcp

Raphaël
(nota : je viens de m'inscrire sur le forum, apres avoir posté une demande similaire par "reply" a un post, désolé pour le doublon)
A voir également:

5 réponses

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
9 févr. 2009 à 11:25
Bonjour,
Tu peu très bien faire ça dans l'événement Selection_Change de la feuille.
Petit hic, je suppose que tu veux la remettre en normal "après"
Si oui, Tu peu t'inspirer de ce code
A+
0
rafi93 Messages postés 8 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 8 avril 2014
9 févr. 2009 à 12:48
merci bcp lermite

mais... je suis un beotien en programmation , je peux juste bidouiller un code existant, en tâtonnant

et je ne saurais comment utiliser tes indications

y aurait il qque part une fonction déjà écrite qui ferait l'affaire ?

merci encore
Raphaël
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
9 févr. 2009 à 13:00
Tu colle ça dans le module de ta feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As String, AncCell As Variant
    If Target.Count > 1 Then Exit Sub
    If AncAdress <> "" Then 'remettre en normal
        Range(AncAdress).Interior.ColorIndex = xlNone
        Range(AncAdress).Font.ColorIndex = 0
    End If
    Target.Font.ColorIndex = 6
    Target.Interior.ColorIndex = 3
    Target.Interior.Pattern = xlSolid
    AncAdress = Target.Address
    AncCell = Target.Value2
End Sub

La cellule est pointée en jaune sur fond rouge.
A+
0
rafi93 Messages postés 8 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 8 avril 2014
9 févr. 2009 à 13:29
j'ai passé une demi heure a essayer, sans succes :

j'ai créé un "module" dans Excel
j'y ai collé ton texte
je suis retourné à ma feuille : rien ne se passe quand je me déplace dans les cellules

ai-je oublié qque chose ?

par ailleurs, l'objectif est de mettre en forme TOUTE la ligne et TOUTE la colonne de la cellule selectionnée

merci encore !
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
9 févr. 2009 à 14:20
Commence par mettre la cellule, ont verras ensuite pour colonne et ligne
Quand tu va sur l'IDE de VBA tu a dans l'explorateur de projet le nom de tes feuilles, tu double clic sur le nom de la feuille et c'est dans ce module que tu doit mettre le code.
Quand à mettre ligne et colonne ça va ramer dur !!!!
A+
0
rafi93 Messages postés 8 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 8 avril 2014
9 févr. 2009 à 14:42
ok super ça marche

reste à voir pour mettre en évidence toute la ligne...

l'objectif est de faciliter la saisie dans des tableaux larges, avec les intitulés en 1ere colonne (on a tjrs du mal à savoir sur quelle ligne on est)

tu peux ramer pour moi, ou je repars avec mon balluchon...?
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
9 févr. 2009 à 15:04
Si ce n'est que la ligne...
Et j'ai trouver ça intéressant alors je l'ai mis dans les astuces..
Voir là
A+
0
rafi93 Messages postés 8 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 8 avril 2014
9 févr. 2009 à 15:10
génial

derniere question : comment généraliser à toute feuille excel, existante ou future (et pas seulement celle où on a mis le code) ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
9 févr. 2009 à 15:16
Tu devras de toute façons toujours mettre du code dans l'événement feuilles et ce serrait fort compliquer de reporter ça dans une module général vu que tu pourrais alors changer de feuille.
Je ne vois pas de gros problème, ce n'est jamais qu'un copier/coller
A+
0