Autofit sur lignes visible uniquement

[treza88]

Bonjour a tous,

Je voudrais savoir si il y a un moyen de régler les largeur de colonne , mais que sur les lignes visibles, car avec Autofit ça règle la largeur, mais en tenant comptes de toutes les lignes même celles masqué.

Merci d'avance

 

[Lone-wolf]

Bonjour treza 🙂

Non ce n'est pas possible, car comme tu le dit Autofit se base sur la(les) colonne(s).

 

[treza88]

Bonjour Lone-wolf,

Est ce qu'il n'y aurait du coup pas un moyen dérivé de le faire en comptant le nombre de caractères ou autre ?

 

[Lone-wolf]

Re,

Non. Comment veux- tu avoir la même largeur pour chaque nom inscrit. Exemple

COLONNE A
aaaaa
aaaaaaaaaa
aa
aaaaaaa
aaa

Ce n'est quand même pas compliqué, non? 🙄
Et encore une fois, autofit prend la largeur du mot ou du texte le plus long.

 

[treza88]

Non bien sur, pas sur chaque mot 😉, mais je voudrais m'aligner sur le mot le plus grand visible en ne tenant pas compte des mots dans les lignes masquées.

 

[Lone-wolf]

T'es dur... 😵

NON CE N'EST PAS POSSIBLE!!

 

[treza88]

Merci quand même, mais après quelques recherche un peu plus approfondies, Apparemment si:

On Error Resume Next
  Range("E1:E1").SpecialCells(xlCellTypeVisible).Columns.AutoFit
  On Error GoTo 0

 

[treza88]

Ce n'est pas le cas chez moi, peut être a cause de la version d'excel 2002, même si je fait un double clic sur la jonction entre les colonne pour ajuster automatiquement, l'ajustement tient compte des lignes masquées, même si elle font 50 cm.
Mais je le répète c'est peut être diffèrent suivant les versions d'excel.

 

[Lone-wolf]

Re

Non. Rien à voir avec les versions. Si la ligne masquée fait 1 mètre de long, avec autofit, comment veux-tu qu'elle fasse 30 cm??? 😱 🙄

 

[treza88]

En tout cas merci de ton intervention.
Mais bon, comme je vois que l'on arrive pas a ce comprendre, je pense qu'il vaut mieux en rester là.
Sinon pour quel raison as tu supprimé ton message entre les deux miens (7 et 8) ??
Car mon message N°8 était en réponse au tiens.

 

[Lone-wolf]

Re

Toutes mes excuses pour cette mésentente, j'ai fait un test et chez moi celà fontionne.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("a1:i200").AutoFilter ActiveCell.Column, ActiveCell.Value, xlAnd
Range("E:E").SpecialCells(xlCellTypeVisible).Columns.AutoFit
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns("J:L")) Is Nothing Then Range("E:E").Columns.AutoFit: Range("a1:i200").AutoFilter
End Sub

 

[treza88]

Pas des soucis, je me disais bien qu'il devait y avoir une incomprehension quelque part et merci pour ton complement de code.
Mais du coup j'aurais une question.
A quoi sert la ligne de code avec Autofilter dans la première procedure?

 

[Lone-wolf]

Bonsoir treza

Comme son nom l'indique, elle filtre les lignes qui ont la même valeur de la cellule active. Et apparement toi tu utilise EntireRow.Hidden = True pour masquer les lignes (mais que sur les lignes visibles), ou je me trompe?

 

[treza88]

Oui tout a fait, mais pourquoi utliser Autofilter plutot que EntireRow.Hidden.
Quel peut en etre l'avantage?