none
Sélection d'une colonne pleine dans Excel RRS feed

  • Question

  • Bonjour,

    Dans Excel on peut sélectionner depuis une cellule de départ, la fin d'une colonne.(touche Down)

    Ceci est bien plus rapide que de balayer les cellules et de chercher la 1ère cellule vide.

    Je voudrais faire une sélection à partir la cellule A3 en prenant toutes les cellules de cette colonne jusqu'à la dernière cellule pleine, pour compter le nombre de lignes pleines.

    L'exemple suivant ne fonctionne pas, je ne vois pas ce qui pose problème.

    Si quelqu'un a une idée ?

    Dim Feuille As Excel.Worksheet = Nothing
    Dim RangeExcel As Excel.Range

    ClasseurExcel = CType(GetObject(CheminFichExcel), Excel.Workbook)
    ClasseurExcel.Windows(ClasseurExcel.Name).Activate()
    Feuille = CType(ClasseurExcel.Worksheets(NomFeuille), Excel.Worksheet)
    With Feuille
           RangeExcel = .Range("A3", .Cells.End(Excel.XlDirection.xlDown))
           NbreLigne = RangeExcel.Rows.Count
    End With

     
    mercredi 21 novembre 2012 09:04

Réponses

  • Bonjour MarcelD22,

    En VBA :

      Dim DernLigne As Long
      Dim NbreLigne As Long
      
      DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    
      NbreLigne = Application.WorksheetFunction.CountA(Range("A3", Range("A" & DernLigne)))
      MsgBox NbreLigne
    

    A adapter à VBNet. Voir aussi éventuellement les différences entre Excel 2003 et 2007/2010 pour le nombre maximum de lignes/colonnes


    Cordialement, Jacques

    • Proposé comme réponse TroxsaEditor vendredi 23 novembre 2012 19:10
    • Marqué comme réponse Aurel Bera lundi 26 novembre 2012 11:10
    mercredi 21 novembre 2012 10:22

Toutes les réponses