Divers VB

Formule Excel => Formule VBA

Pour utiliser une formule Excel dans une macro VB, il nous faut son équivalence en VB.
Deux façons "simples" se présentent : faire une macro enregistrée, ou mettre ce code :

Sub Trad()
  Range("B2") = "'" & Range("A2").Formula
End Sub

Il ne vous reste plus qu'à mettre votre formule dans la cellule "A1" pour voir apparaître son équivalence en "A2"

Compteur de doublons

Dans un classeur Excel, permet de vérifier dans une liste s'il n'y a pas de doublon...

Sub compte()
Dim lastrow, tab, compteur
lastrow = Range("A1").End(xlDown).Row
Set tab = ThisWorkbook.Sheets(1).Range("A1:A" & lastrow)
For i = 1 To lastrow
    compteur = Application.WorksheetFunction.CountIf(tab, Cells(i, 1).Value)
    If compteur > 1 Then
        Cells(i, 2).Value = compteur & " x " & Cells(i, 1).Value
    End If
Next
MsgBox "Script fini"
End Sub