titre des colonnes étiquetées par un tableau (filtre auto en en-tête de colonne)

[anthoYS]

bonjour,


voilà, j'ai un tableau ou je répertorie ce que je dois faire, soucis, je veux des colonnes fines par larges, du coup, quand on descend (puisqu'il s'agit d'un tableau créé), on vois à la place de la colonne "B", "C" etc. le nom donnée au filtre ce qui est très bien. Or, on ne peut le lire en entier car le titre est plus long que A, ou B etc.
donc y-a-il une méthode infobulle, exemple, je suis en B95, je veux qu'une info bulle s'affiche en "B" pour donner la désignation de la colonne. si je suis en C158, la désignation de "C". etc.
alors, que si je fige les volets, ok, je verrai le titre mais il me prendra beaucoup trop de place, car à 90° on lit en penchant la tête, et le titre prend de la place, idem à 0° (normal) so on renvoie à la ligne, elle sera trop large...






merci d'avance ;
à+

 

[Dranreb]

Re : titre des colonnes étiquetées par un tableau (filtre auto en en-tête de colonne)

Bonjour.
Et une inclinaison 45° ou 22.5° ?
Essayez aussi de mettre les titres sur 2 lignes, en alternant d'une colonne à l'autre l'emplacement du sien sur celle du dessus et du dessous.
Vous pouvez aussi abréger vos titres à l'extrême et mettre un commentaire sur les cellules indiquant leurs significations.
Cordialement.

 

[job75]

Re : titre des colonnes étiquetées par un tableau (filtre auto en en-tête de colonne)

Bonjour anthoYs, salut Bernard,

2 solutions différentes dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'---info sur colonne A---
If Not Intersect(ActiveCell, [A:A]) Is Nothing Then
  [A:A].Validation.Delete
  With ActiveCell.Validation
    .Add xlValidateInputOnly
    .InputMessage = Cells(1, ActiveCell.Column)
  End With
End If
'---info sur colonne C---
With Label1
  .Visible = False
  If Not Intersect(ActiveCell, [C:C]) Is Nothing Then
    .Caption = Cells(1, ActiveCell.Column)
    .Width = 1000
    .AutoSize = True
    .AutoSize = False
    .Top = ActiveCell.Offset(1).Top + 5
    .Left = ActiveCell.Left + 10
    .Visible = True
  End If
End With
End Sub

Fichier joint.

Il doit y avoir pas mal d'exemples de ce genre sur le forum.

Edit : avec Cells(1, ActiveCell.Column) c'est plus général.

A+

 

[anthoYS]

Re : titre des colonnes étiquetées par un tableau (filtre auto en en-tête de colonne)

Bonjour anthoYs, salut Bernard,

2 solutions différentes dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'---info sur colonne A---
If Not Intersect(ActiveCell, [A:A]) Is Nothing Then
  [A:A].Validation.Delete
  With ActiveCell.Validation
    .Add xlValidateInputOnly
    .InputMessage = Cells(1, ActiveCell.Column)
  End With
End If
'---info sur colonne C---
With Label1
  .Visible = False
  If Not Intersect(ActiveCell, [C:C]) Is Nothing Then
    .Caption = Cells(1, ActiveCell.Column)
    .Width = 1000
    .AutoSize = True
    .AutoSize = False
    .Top = ActiveCell.Offset(1).Top + 5
    .Left = ActiveCell.Left + 10
    .Visible = True
  End If
End With
End Sub

Fichier joint.

Il doit y avoir pas mal d'exemples de ce genre sur le forum.

Edit : avec Cells(1, ActiveCell.Column) c'est plus général.

A+

re,


merci, j'ai toutefois un problème. j'ai essayé de l'adapter à mon fichier, et ça plante.
je ne comprends pas.

Ce lien n'existe plus

agrandi : Lien CJoint.com BJkm3BwuVR3


merci

à+

 

[job75]

Re : titre des colonnes étiquetées par un tableau (filtre auto en en-tête de colonne)

Bonjour anthoYs,

Le Label doit être un Label ActiveX nommé (CodeName) Label1

Et s'il n'y a pas de Label supprimez la 2ème partie du code...

Edit : peut-être sur Excel 2007 faut-il préciser la feuille => Me.Label1

Mais ça m'étonnerait beaucoup.

A+