Microsoft 365 Incrémenter l'affichage de colonnes masquées par un clic

job75 à dit:

Bonjour supercopain,

En effet il faut ajouter les Application.EnableEvents pour éviter le bouclage :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False 'désactive les évènements
    On Error Resume Next 'si aucune SpecialCell
    With Columns("O:AQ").SpecialCells(xlCellTypeVisible)
        .ColumnWidth = 6.57
        Intersect(.Cells, ActiveCell.EntireColumn).ColumnWidth = 80
    End With
    Application.EnableEvents = True 'réactive les évènements
End Sub

A+

Cliquez pour agrandir...

supercopain à dit:

est-ce qu'il est possible d'adapter ce code pour qu'il y ai uniquement l'agrandissement de colonne à 80 lorsque je clic dans les cellules de ("O34:AQ34") et dès que l'on clique sur une cellule voisine (exemple : hors de la ligne 34) la largeur de la colonne reviens à 6.57...

Cliquez pour agrandir...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False 'désactive les évènements
    On Error Resume Next 'si aucune SpecialCell
    With Range("O34:AQ34").SpecialCells(xlCellTypeVisible)
        .ColumnWidth = 6.57
        Intersect(.Cells, ActiveCell).ColumnWidth = 80
    End With
    Application.EnableEvents = True 'réactive les évènements
End Sub

supercopain à dit:

La suite dans mon "projet" c'est que les colonnes que j'ai affichées dans Hz1 s'affichent aussi dans les autres onglets Hz2;Hz3;Hz4...

Cliquez pour agrandir...

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If TypeName(Sh) <> "Worksheet" Then Exit Sub
Dim c As Range
Application.ScreenUpdating = False
For Each c In Sheets("Hz1").Columns("O:AQ")
    Sh.Columns(c.Column).ColumnWidth = c.ColumnWidth
    Sh.Columns(c.Column).Hidden = c.Hidden
Next
End Sub

job75 à dit:

Placez dans ThisWorkbook :

VB:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If TypeName(Sh) <> "Worksheet" Then Exit Sub
Dim c As Range
Application.ScreenUpdating = False
For Each c In Sheets("Hz1").Columns("O:AQ")
    Sh.Columns(c.Column).ColumnWidth = c.ColumnWidth
    Sh.Columns(c.Column).Hidden = c.Hidden
Next
End Sub

La macro se déclenche quand on active une feuille, fichier (6).

Edit : ajouté le test If TypeName(Sh) pour le cas où la feuille serait un graphique.

Cliquez pour agrandir...

supercopain à dit:

Bonjour,
Me voilà de retour ...
C'est nickel ! mes colonnes se masque et s'affiche comme je le souhaite!
et pour l'agrandissement des colonnes c'est parfait!
je vais maintenant m'attaquer à la mise en page des graphiques.
Est-ce que je dois solder cette conversation ou je la garde ouverte pour mes prochaines questions sur mes graphiques (..va surement y en avoir..)

En attendant je vous souhaite un excellent weekend !
Encore un grand MERCI pour votre aide!

Cliquez pour agrandir...

job75 à dit:

Bonjour supercopain,

Il suffit de compléter le test d'exclusion en début de macro :

VB:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not Sh.Name Like "Hz*" Or TypeName(Sh) <> "Worksheet" Then Exit Sub
'-----
End Sub

A+

Cliquez pour agrandir...