Zone de cellules dans une variable

Résolu
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   -  
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je suis débutant en Vba et j'ai un petit problème. Je voudrais savoir combien de cellules ne sont pas vides dans une colonne complète. Voici un morceau de ce que j'ai programmé.

Dim Colonne as string

Dim NbreLigne as integer

Dim Cellule as Range

Dim Cellules as Range

Colonne = "A"

NbreLigne = "0"

Set Cellules = Range("Colonne : Colonne")

For Each Cellule In Cellules

If Cellule.Value <> "" Then

NbreLigne = NbreLigne + 1

End If

Next

Ce qui se passe c'est que si je mets Set Cellules = Range("Colonne : Colonne") ça plante et si je mets Set Cellules = Range("A:A") ça marche. Je voudrais pouvoir utiliser ma variable Colonne.

Avez-vous une idée?

Merci

2 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour,

essaies ce code

Dim cellules As Range
Dim colonne As String
nbreligne as long

colonne = "A"
Set cellules = Range(colonne & ":" & colonne)

nbreligne = Application.CountA(cellules)
1
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   1
 
Parfait, c'est tout à fait ce que je voulais, Merci merci merci.

Plus court et bien plus simple

@+
0