Discussion :

[petitcoucou31]

Bonjour a tous,

Nouveau sur ce salon, j'ai trés peu de compétances en WB.
Ma question a été surement posée plusieurs fois, mais je n'ai rien trouvé sur le net de satisfaisant.

J'ai un fichier Excel avec beaucoup de colonnes, de rangés et des petites cellules, donc il est compliqué pour ne pas y laisser les yeux.
j'ai trouvé des macros qui changent la couleur de la colonne et/ou de la rangée, mais ne restaure pas la couleur quand on change de cellule.

Je recherche
une macro qui génére un genre de "grand" curseur composé de la rangée et la colonne active (qui croissent la cellule active) de la grille et qui ne change pas le structure de la grille (couleur, style formule ...des cellules). Il ne s'agit que d'un l'aspect visuel. Ce curseur peut être aussi une surbrillance.
Ou bien
Une macro qui ouvre un Popup sur un double-clic de la cellule, qui afficherait le titre de la colonne et l'intitulé de la rangée ==> pour identifier ma cellule.

Je suis preneur de macro , aide , ...

[Mimisator]

Bonjour,

Je sais que ma proposition ne répond pas totalement à ta demande :

Nouveau sur ce salon, j'ai trés peu de compétances en WB.
[...]
Je suis preneur de macro

Mais tu peux au vu de ce que tu demandes, figer une ligne et une colonne (Via affichage > Figer les volets) ce qui te permettra de garder les entêtes visibles !
C'est un peu plus simple que de la macro pour ce que tu demandes (ou alors je n'ai pas bien saisi ce que tu cherches à faire).

Bonne journée

[BENNASR]

bonsoir petitcoucou31, Mimisator , la forum
une proposition à tester
(j'ai donner la taille 25 au commentaire et vous pouvez adapter à tes besoins

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
With ActiveCell.AddComment
.Shape.Placement = xlFreeFloating
'.Shape.TextFrame.AutoSize = True
.Shape.DrawingObject.Font.Size = 25
X = Cells(1, ActiveCell.Column)
.Text Text:=X
End With
End Sub

Aussi un bouton pour supprimer tous les commentaires à la fin du bolo (un bouton comme dans l'exemple ou dans l’événement bfore close si tu veux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Bouton8_Cliquer()
Cells.ClearComments
End Sub

[boisgontierjacques]

Bonjour,

Qq exemples de gestion de curseur.

CurseurCouleur
LigneCouleur
CurseurLigneColMFC
CurseurLigneMZsansCouleur
CurseurLigneCoul
CurseurLigneMZCoul
LigneColCouleur
LigneColCouleur2
LigneActiveSurlignée
LigneColonneActiveSurlignée
LigneActiveSurlignée2
CurseurTarget
CurseurTarget2
LigneColCouleurEssai
LigneColCouleurEssai2
LigneHoriz
LigneHorizVert
Triangle
CurseurRouge
CurseurMult


Boisgontier

[BENNASR]

boisgontierjacques

[Menhir]

une macro qui génére un genre de "grand" curseur composé de la rangée et la colonne active (qui croissent la cellule active) de la grille et qui ne change pas le structure de la grille (couleur, style formule ...des cellules). Il ne s'agit que d'un l'aspect visuel. Ce curseur peut être aussi une surbrillance.

Une solution simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Union(Target, Target.EntireRow, Target.EntireColumn).Select
End Sub

[zenpbb]

Bonjour,
La version de Menhir légèrement modifiée pour qu'elle fonctionne également lorsque l'on se déplace au clavier et pour que la cellule active reste à la croisée ligne / colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Union(Target, Target.EntireRow, Target.EntireColumn).Select
    Target.Activate
    Application.EnableEvents = True
End Sub

[petitcoucou31]

Merci a tous et toutes...

j'avais trouvé déjà trouvé la solution de Menhir mais qui n'est pas complément fonctionnelle, celle de Zenpbb est plus finalisée et je pense fera l'affaire .

merci a tous .