Sub nombre_item() Dim inter As Integer inter = 0 For i = 2 To 10 inter = Application.WorksheetFunction.CountIf("D2:D10", "D" & i) nbritem = nbritem + inter Next i nbritem = inter End Sub
Sub nombre_item() Dim inter As Integer Dim Z1 As Range 'initialisation inter = 0 nbritem = 0 ' définition de la plage Set Z1 = Range("D2:D10") 'boucle de comptage des refs différentes For i = 2 To 10 inter = 1 / WorksheetFunction.CountIf(Z1, Worksheets("Données Détaillées").Range("D" & i).Value) nbritem = nbritem + inter Next i End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub nombre_item() Dim inter As [b]Single /bDim Z1 As Range 'initialisation inter = 0 nbritem = 0 ' définition de la plage Set Z1 = Range("D2:D10") 'boucle de comptage des refs différentes For i = 2 To 10 inter = inter + (1 / WorksheetFunction.CountIf(Z1, Worksheets("Données Détaillées").Range("D" & i).Value)) Next i End Sub