Transformer formule en vba

[edexls]

Bonjour à Tous,

Débutante en VBA, Je ne parviens pas à convertir cette formule =SI(NB.SI(B$2:B2;B2)>1;"doublon";"Début")

un p'tit coup de main SVP !!

Merci

 

[st007]

Re : Transformer formule en vba

Bonjour,
utilise l'enregistreur de macro ....

lance l'enregistrement
tapes ta formule et valide
vois ta formule en vba dans le module 1

 

[Lone-wolf]

Re : Transformer formule en vba

bonjour edexls et bienvenue sur XLD

Dim x

x = Application.CountIf(Range("b2"), ">1")
Range("a5") = IIf(x, "doublon", "Début")

EDIT: Bonjour st007, on c'est croisé juste à côté du Bar XLD

A+

 

[edexls]

Re : Transformer formule en vba

Merci beaucoup,

peux tu l'appliquer sur toute une colonne depuis a5 ?

 

[Lone-wolf]

Re : Transformer formule en vba

rebonjour edexls,

oui bien sûr. Mais tu veux aller jusqu'à 65536 cellules??

'Code à inserer dans un Module Standard

Sub test()
Dim plage As Range, cel As Range, x

Application.ScreenUpdating = False
Application.EnableEvents = False

With Sheets("Feuil1")    'Nom de la feuille à modifier
Set plage = .Range("a5:a5005")
plage.ClearContents
x = Application.CountIf(.Range("b2"), ">1")

For Each cel In plage 
cel.Value = IIf(x, "doublon", "Début")
Next cel
End With

Application.EnableEvents = True
End Sub

'---------------------------------------------------------
'Dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, cel As Range, x

Application.ScreenUpdating = False
Application.EnableEvents = False
    
Set plage = Range("a5:a5005")
plage.ClearContents
x = Application.CountIf(Range("b2"), ">1")

For Each cel In plage
cel.Value = IIf(x, "doublon", "Début")
Next cel

Application.EnableEvents = True

End Sub

A+

 

[st007]

Re : Transformer formule en vba

Pour faire simple ....

 

[Si...]

Re : Transformer formule en vba

salut

pour une colonne

Sub f()
    Range("A5:A" & [B65000].End(xlUp).Row).FormulaLocal = "=SI(NB.SI(B$2:B2;B2)>1;""doublon"";""Début"")"
End Sub

ce qui donne avec la macro de St007 (désolé, t'avais pas vu)

Sub Macro2()
  derlig = Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Rows + 1
  Range("A5:A" & derlig).FormulaR1C1 = _
        "=IF(COUNTIF(R2C[1]:RC[1],RC[1])>1,""doublon"",""Début"")"
End Sub

 

[Paf]

Re : Transformer formule en vba

Bonjour à tous

une autre solution

Sub Macro()
 Range("A5").Formula = "=if(CountIf(B$2:B2,B2)>1,""doublon"",""début"")"
 Range("A5").AutoFill Destination:=Range("A5:A" & Range("B" & Rows.Count).End(xlUp).Row + 3)
End Sub

A+

 

[Lone-wolf]

Re : Transformer formule en vba

Bonsoir tout le monde,

encore une autre

Sub Compte_Doublons()
Dim lig, i As Integer, reponse as Boolean

With Feuil1
lig = .Range("b65000").End(xlUp).Row
For i = 2 To lig
reponse = Application.CountIf(.Range("b2:b65536"), Cells(i, 2)) > 1 'VRAI OU FAUX
.Cells(i, 1) = IIf(reponse, "Doublon", "Unique")
If reponse Then .Cells(i, 1).Font.ColorIndex = 3: .Cells(i, 1).Font.Bold = True: _
.Cells(i, 2).Font.ColorIndex = 3: .Cells(i, 2).Font.Bold = True:
Next i
End With
End Sub

Sub App_Defaults()
With Feuil1
.Range("a2:a65536").ClearContents
.Range("a2:b65536").Font.Bold = False
.Range("a2:b65536").Font.ColorIndex = 0
End With
End Sub

A+