Détailler liste contenant chiffres ou nombres

Bonsoir le forum,

Actuellement j'ai une fonction (ci-dessous) qui m'indique dans une cellule où se trouve les cellules contenant le 0. Ce que j'aimerais si possible, c'est que cette fonction me fasse la même chose mais pour tous les chiffres ou nombres d'une colonne.

Ci-joint fichier

Function ListeZéros(champ As Range)                        
Application.Volatile                        
For Each c In champ                        
If c = 0 Then temp = temp & .Address(RowAbsolute:=False, ColumnAbsolute:=False) & ","                        
   Next c                        
If temp <> "" Then ListeZéros = Left(temp, Len(temp) - 1)                        
End Function                        

D'avance je vous remercie pour votre aide

Salut le forum

Avec la fonction IsNumeric

Function ListeZéros(champ As Range)
   Application.Volatile
   For Each c In champ
     If IsNumeric(c) Then temp = temp & c.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ","
   Next c
   If temp <> "" Then ListeZéros = Left(temp, Len(temp) - 1)
End Function

Si tu préfères avoir le choix de la valeur

Function ListeZéros(champ As Range, Valeur As Double)
   Application.Volatile
   For Each c In champ
     If c = Valeur Then temp = temp & c.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ","
   Next c
   If temp <> "" Then ListeZéros = Left(temp, Len(temp) - 1)
End Function

Mytå

Bonsoir,

Re-, Mytå

D'après ce que j'ai compris......

Regarde le fichier joint, à toi de modifier, notamment au niveau des titres, et/ou des colonnes de récupération des données...

Les codes (j'ai un peu modifié ta fonction initiale)

Function ListeNbr(champ As Range, Nbr As Long)
   Application.Volatile
   For Each c In champ
     If c = Nbr Then temp = temp & c.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ","
   Next c
   If temp <> "" Then ListeNbr = Left(temp, Len(temp) - 1)
End Function

Sub liste_nbr()
Dim Cel As Range, Plg As Range
Columns("C:D").Clear
Range("B3:C3").Value = "Titre": Range("D3").Value = "Cellules"
Set Plg = Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row)
Plg.AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("C3"), Unique:=True
For Each Cel In Range("C4:C" & Cells(Rows.Count, "C").End(xlUp).Row)
    Cel.Offset(, 1).Formula = "=ListeNbr(" & Plg.Address & "," & Cel.Value & ")"
Next Cel
End Sub

Le fichier :

Bonne soirée

Re le forum

Cousinhub, c'est vrai que la question était ambigue.

Mytå

Re-,

Vi, au vu de son fichier, j'avais opté pour un "Long", mais on n'est jamais trop prudent....

Meilleurs vœux et plein de neige, j'espère (d'après les infos, vous êtes un peu en manque de neige, à priori)

Bonne soirée

Bonsoir Myta, Cousinhub,

Merci à tous les deux pour vos réponses, c'est exactement ce que je recherchais.

Bonne soirée et encore merci