Microsoft 365 Compter et masquer des colonnes

fanfan38

XLDnaute Barbatruc

• 3 Novembre 2021

• #2

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

Code:

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

 

Vote positif 0 Vote négatif

N

Nath1610

XLDnaute Nouveau

• 3 Novembre 2021

• #3

Merci beaucoup
top 👍
👌

 

Vote positif 0 Vote négatif

N

Nath1610

XLDnaute Nouveau

• 3 Novembre 2021

• #4

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

 

Vote positif 0 Vote négatif

N

Nath1610

XLDnaute Nouveau

• 3 Novembre 2021

• #5

Nath1610 à dit:

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

Cliquez pour agrandir...

Je voulais dire la plage de colonne à sélectionner

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 3 Novembre 2021

• #6

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

A+ François

 

Vote positif 0 Vote négatif