Compteur de colonne

Bonjour forum,

on voit régulièrement dans les VBA, une commande qui compte le nombre de lignes dans un feuillet, exemple:

  Qg = Range("A" & Rows.Count).End(xlUp).Row

Quel serait le code équivalent pour compter le nombre de colonnes?

Merci d'avance

Emil

Bonjour

Pour compter le nombre de colonnes

Columns.Count

Pour chercher la 1ère colonne vide de la ligne 1

Cells(1,Columns.Count).End(xlToLeft).Column + 1

Bonjour,

A adapter.

Bonnes fêtes de fin d'année.

' derniere colonne non vide ligne 1
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
' derniere ligne non vide colonne1
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

Bonjour,

A essayer deux possibilités :

Sub test()
    DernCol = Cells(1, Columns.Count).End(xlToLeft).Column
    DernCol = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
End Sub

Merci et bonne année 2016 à tous pour vos réponses.

Émil