Microsoft 365 Compter et masquer des colonnes

[Nath1610]

Bonjour à tous,

Cette question a déjà due etre posée..
Je cherche à trouver un code VBA pour dans une feuille à partir d'un nombre de colonne avec des valeurs, les autres soient masquées. En fait les colonnes ne sont pas vides, mais ont une valeur nulle calculée à partir d'une cellule.

Merci d'avance de votre retour

 

[fanfan38]

Bonjour
Un fichier est TOUJOURS le bienvenu
Dans tes colonnes c'est du texte ou des nombres?
si des nombres

Dim i As Integer, col As Integer, dl As Long
col = Cells(1, Columns.Count).End(xlToLeft).Column
dl = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To col
  If Application.WorksheetFunction.Sum(Range(Cells(2, i), Cells(dl, i))) = 0 Then
  Cells(1, i).EntireColumn.Hidden = True
  End If
Next

A+ François

 

[Nath1610]

Merci beaucoup
top

 

[Nath1610]

Bon c'est encore moi

Est-ce que vous pourriez-me dire pourquoi

columns(10,20).Select ou columns (10:20).Select ne fonctionne pas.

En fait je sais calculer le numéro de la première et dernière colonne à masquer, mais je n'arrive à écrire le code ne serait-ce pour sélectionner les colonne à sélectionner !

Merci d'avance

 

[Nath1610]

Bon c'est encore moi

Est-ce que vous pourriez-me dire pourquoi

columns(10,20).Select ou columns (10:20).Select ne fonctionne pas.

En fait je sais calculer le numéro de la première et dernière colonne à masquer, mais je n'arrive à écrire le code ne serait-ce pour sélectionner les colonne à sélectionner !

Merci d'avance

Je voulais dire la plage de colonne à sélectionner

 

[fanfan38]

Tu ne peux sélectionner qu'une colonne
Column(10).Hidden = True
Column(20).Hidden = True

A+ François