compter le nb de numeros differents dans une plage

Version imprimable

10/05/2009, 22h27
oscar.cesar

compter le nb de numeros differents dans une plage

bonsoir au forum

j'ai une plage dans une feuille qui commence cellule B7 et qui fini en derniere colonne et ligne non vide
autrement dit la plage est de taille variable .
elle commence toujours en B7 mais peut se finir en M40 comme en T250.
lorsque la plage a ete selectionner, je souhaite compter le nb de numeros different (en supprimant eventuellement les doublons)dans chaque cellule .

les numeros sont 1 à 20 :?

allez dodo

Bonsoir oscar.cesar,

essaie peut-être ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Cellule As Range 'Cellule de lecture
Dim ReadYet as string 'Chaine contenant les valeurs lues
dim NumberUsed as long 'Nombre de numéros utilisés
 With Worksheets(...)
  For Each Cellule In .Range("B7",.Cells(.Range("B7").End(xlDown).Row,.Range("B7").End(xlToRight).Column))
   If Instr(ReadYet,Chr(Cellule+64))=0 Then
'Les numéros sont transformés en lettres,
'les 20 premières lettres de l'alphabet => 65=A, 66=B,67=C....
    ReadYet=ReadYet & Chr(Cellule+64)
    NumBerUsed=NumberUsed + 1
   End if
  Next
  .Range("A1")=Numberused
 End with

Bonjour à tous

même si je te dis qu'une macro n'est pas nécessaire pour arriver au résultat, un plage nommée et une formule suffisent.
m'enfin voici une macro qui triche un peu

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub essai()
    Dim plage As Range, c As Range
    If Selection.cells.count > 1 then
         set plage = Selection
    Else
         Set plage = Range(Cells(7, 2), Cells(Range("B65536").End(xlUp).Row, Range("B7").End(xlToRight).Column))
    End If
    Set c = Cells.Find(Empty)
    c.FormulaArray = "=Sum(1/CountIf(" & plage.Address & "," & plage.Address & "))"
    ActiveSheet.Calculate
    MsgBox c.Value
    c.ClearContents
End Sub