[VBA Excel] nb cells non vide dans une colonn

Raph -  
 ensatien -
Bonjour,

Comment connaitre le nombre de cellule non vide contenu dans la colonne A par exemple de la sheet1 ?
via fonction c'est simple il y a le NB.Si, mais en VBA ?

quelqu'un a t-il une idée ?

Merci

Raph
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1.
    xjl Messages postés 232 Statut Membre 183
     
    Salut,

    Tu peux faire ça:

    Sub comptage()
    n = 0
    For Each Cell In Sheets(1).Columns(1).Cells
    If IsEmpty(Cell) Then n = n + 1
    Next Cell
    MsgBox n

    End Sub
    13
    1. Raph
       
      Merci Xjl, j'ai trouvé plus court ;)

      nbcells = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A"))
      0
    2. hammougua
       
      Ab44 25 juil. 2009 à 13:15
      et pour une collone B tu ferais comment ?
      et tu le déclare comment nbcells ?
      0
    3. Gotts
       
      Dim nbcells As Integer

      et pour B suffit de remplacer les A par B ...
      0

Discussions similaires

VBA/Excel Instruction: On Error Resume Next
loic -
Monarch -

23 réponses
[Excel VBA] Créer des dossiers sous VBA
Kvo -
Dred -

12 réponses
[Excel Vba] Insérer une ligne
xjl -
RP -

4 réponses
[excel] feuille active
28_seb -
pascooul -

5 réponses
Vba : insérer du texte dans une cellule vide
l0ul0ute -
teteve -

13 réponses
se positionner dans une cellule en vba
lodam -
tomtom -

5 réponses