klin89
XLDnaute Accro
Bonsoir à tous,
J'ai passé ma soirée à m'arracher les cheveux avec la méthode Evaluate
La colonne D doit me renvoyer le même résultat qu'en colonne C
et cela ne fonctionne pas, cela me renvoie que des 1, qu'ai-je oublié
Il s'agit d'incrémenter des doublons.
Bonne nuit à tous, je vais me coucher
A demain klin89
J'ai passé ma soirée à m'arracher les cheveux avec la méthode Evaluate
La colonne D doit me renvoyer le même résultat qu'en colonne C
et cela ne fonctionne pas, cela me renvoie que des 1, qu'ai-je oublié
Il s'agit d'incrémenter des doublons.
VB:
Sub test_Evaluate()
With Range("A1", Range("A" & Rows.Count).End(xlUp))
lastrow = Range("A" & Rows.Count).End(xlUp).Row + 1
'Résultat en colonne C
.Offset(, 2).Formula = "=IF(ISBLANK(A1),"""", COUNTIF($A$1:$A$" & lastrow & ", A1) - COUNTIF($A2:$A$" & lastrow & " ,A1))"
'Résultat en colonne D
.Offset(, 3).Value = Evaluate("=IF(ISBLANK(A1),"""", COUNTIF($A$1:$A$" & lastrow & " ,A1) - COUNTIF($A2:$A$" & lastrow & " ,A1))")
End With
End Sub
A demain klin89