Sélectionner la dernière cellule non vide d'une plage de données

[nonoTT]

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 :

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

 

[nonoTT]

Re : Sélectionner la dernière cellule non vide d'une plage de données

Trop top !
Merci à tous !!

 

[pierrejean]

Re : Sélectionner la dernière cellule non vide d'une plage de données

Bonjour à tous

Sans utilisation du x

Sub test()
debut = 3
laformule = "=NB.SI(Fdebut:Ffin;""Rejeté"")"
For n = 3 To Range("F65536").End(xlUp).Row + 1
 If Range("F" & n) = "" Then
   fin = n - 1
   formule = Replace(laformule, "debut", debut)
   formule = Replace(formule, "fin", fin)
   Range("F" & n).FormulaLocal = formule
   debut = n + 1
  End If
Next n
End Sub