Sélection d'une colonne pleine dans Excel

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

 

Answer 1

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

Answer 2

Bonjour

Un petit retour svp?

Cordialement,

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

Answer 3

Bonjour,

Pouvons-nous considérer que vous avez résolu votre problème avec les scénarios proposés ? Dans l'affirmative, pourriez-vous partager avec nous la solution, afin que d'autres personnes avec le même problème puissent profiter de cette solution ?

Désormais, nous marquons les solutions proposées. N'hésitez pas à revenir et supprimer la réponse marquée si la solution n’est pas correcte. Merci !

Cordialement,

Aurel

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

Answer 4

Bonjour,

La solution proposée fonctionne correctement.

Merci.

Answer 5

Bonjour,

Merci pour tenir la communauté informée sur la suite de vos démarches.

Bonne journée,

Aurel

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.