zone de cellules dans une variable Résolu

Question

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

michel_m · Answer

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)

stef.roos · Answer

Parfait, c'est tout à fait ce que je voulais, Merci merci merci.

Plus court et bien plus simple

@+

Zone de cellules dans une variable

2 réponses

Discussions similaires

Newsletters