Zone de cellules dans une variable

Résolu/Fermé

stef.roos Messages postés 73 Date d'inscription vendredi 21 mars 2008 Statut Membre Dernière intervention 20 décembre 2012 - 24 juin 2010 à 18:36
stef.roos Messages postés 73 Date d'inscription vendredi 21 mars 2008 Statut Membre Dernière intervention 20 décembre 2012 - 24 juin 2010 à 19:07

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

A voir également:

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 juin 2010 à 18:56

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)

Réponse 2 / 2

stef.roos Messages postés 73 Date d'inscription vendredi 21 mars 2008 Statut Membre Dernière intervention 20 décembre 2012 1
24 juin 2010 à 19:07

Parfait, c'est tout à fait ce que je voulais, Merci merci merci.

Plus court et bien plus simple

@+

Discussions similaires

programme qui n'affiche pas le mot secret

Vidéo : comment changer sa zone géographique ?

VBA Excel : sélection d'une plage variable

Résolution d'une image 500 pixels largeur

VBA : Range avec références variables..

Discussions similaires

Newsletters