Teteve : Page créée avec « === 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 :... »

2017-03-24T09:36:50Z

Page créée avec « === Formule Excel => Formule VBA === Pour utiliser une formule Excel dans une macro VB, il nous faut son équivalence en VB. <br /> Deux façons "simples" se présentent :... »

Nouvelle page

=== Formule Excel => Formule VBA ===
Pour utiliser une formule Excel dans une macro VB, il nous faut son équivalence en VB. <br />
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

[[Catégorie:Informatique]]
[[Catégorie:Système]]
[[Catégorie:Windows]]

Divers VB - Historique des versions

Teteve : Page créée avec « === 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 :... »

Teteve : Page créée avec « === 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 :... »