Discussion :

[8e8eClo]

Bonjour,

A partir d'une macro je sélectionne une cellule.

Comment compter (y compris la cellule active) le nombre de cellule non vide à droite avant la première vide dans la plage A1:A10 ?

Merci

[jfontaine]

bonjour,

Si j'ai bien compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Application.WorksheetFunction.CountA(Range(Cells(1, ActiveCell.Column), Cells(10, Columns.Count)))

[fama78]

Bonjour,

Voici ce que je ferai pour compter les cellules vides de la plage A1:A10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub CompterCelluleVide()
    Dim NbCelluleVide As Long
    Dim MaPlage As Range
 
    Set MaPlage = ActiveSheet.Range("A1:A10")
 
    NbCelluleVide = MaPlage.Cells.SpecialCells(xlCellTypeBlanks).Count
 
End Sub

en espérant t'avoir aidé!

[MarcelG]

Bonsoir à vous trois, Bonsoir au Forum,

Fama, je ne vois pas très bien l'intérêt d'affecter la propriété Cells à ta variable Maplage.

J'écrirais plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaPlage.SpecialCells(xlCellTypeBlanks).Count

D'autre part, je pense qu'il est de bon aloi de vider une variable objet en fin de procédure.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set MaPlage = Nothing

C'est seulement un avis.

Bonne soirée à tous.

[fama78]

Bonjour Marcel,

Je suis d'accord avec vous!

C'est beaucoup plus simple!

Bonne journée!

[8e8eClo]

Merci !