Macro

[Alicia]

Bonsoir le forum,

La macro suivante que j'ai récuperé dans le forum m'est trés pratique.
Cependant, comment faire pour ne pas qu'elle me compte les cellules vides ?

Option Explicit

Sub recenser()
Dim coll As Collection
Dim cellule As Range
Dim cptr As Byte, lig As Byte

Application.ScreenUpdating = False
Range("B16:C42").ClearContents

Set coll = New Collection
For Each cellule In Range("tablo")
On Error Resume Next
coll.Add cellule.Value, cellule.Value
On Error GoTo 0
Next

cptr = 1
lig = 16
Do While cptr <= coll.Count
Cells(lig, 2) = coll(cptr)
Cells(lig, 3) = Application.CountIf(Range("tablo"), coll(cptr))
cptr = cptr + 1
lig = lig + 1
Loop


End Sub

Merci de votre aide.

Alicia

 

[Alicia]

Bonjour le forum

Bouuuhhhh.... Alors Mrs Exceliens personne pour secourir une charmante débutante ?
Avez vous peut-être besoin d'un fichier pour cette macro ?

Sur ce.... la nuit porte conseille.... et je vous la souhaite paisible et pleine de beaux rêves !!!

A+