Bonjour
Le code suivant fonctionne bien sauf que quand la plage sélectionnée ne contient q'une seule cellule comme dans l'exemple ci-joint cellule F45, la formule prend des cellules de la plage suivante F48:F54.
Comment faire pour corriger cela :
Le code suivant fonctionne bien sauf que quand la plage sélectionnée ne contient q'une seule cellule comme dans l'exemple ci-joint cellule F45, la formule prend des cellules de la plage suivante F48:F54.
Comment faire pour corriger cela :
Code:
Sub Compter_Rejet()
Dim Valeur1, Valeur2, Comptage As Variant
Dim i As Integer
For i = 1 To 1000
If Range("F" & i) = "" Then
Comptage = Range("F" & i + 1, Range("F" & i + 1).End(xlDown)).Address
ActiveSheet.Range("F" & i).Formula = "=COUNTIF(" & Comptage & ",""Rejeté"")"
End If
Next i
End Sub