Equivalent formule en code VBA

Salut le forum

je souhaiterai connaitre l'équivalent de la formule ci-dessous en code vba:

=si(et(nb.si(b4;"*ANCIEN*")=1;nb.si(b10;"*Compte bilan*")=1);"neant";"")

Merci pour vos contributions

Bonjour

Un moyen rapide, tu passes par l'enregistreur de macro

Mode d'emploi

Tu tapes la formule

Tu lances l'enregistreur (nom de la macro)

Tu sélectionnes la cellule avec la formule

F2

Entrée

Tu arrêtes l'enregistreur

Et tu as le code de la formule dans un module

Salut Banzaï

Merci pour ton conseil.

J'ai essayé ce que tu ma proposé ce qui ramène vers toi pour m'assurer que je suis sur la bonne voie:

Y'a t-il une différence entre les 2 codes ci-dessous:

Private Sub Worksheet_Change(ByVal Target As Range)
If and(Range("B4").Value,""*ANCIEN*"") =1, range("b10").value,""*COMPTE BILAN*"" Then
If Target.Address = "$B$5" And Target.Value <> "" Then
Range("B7").Select

2è code en passant par l'enregistreur

Sub marcus()
'
' marcus Macro
'
    Range("B5").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(AND(COUNTIF(R[-1]C,""*ancien*"")=1,COUNTIF(R[5]C,""*compte bilan*"")=1),""neant"","""")"
    Range("B6").Select
End Sub

Au cas ou les 2 codes ne signifieraient pas la même chose, je souhaite si possible que tu m'aides à adapter le 1er code pour moi et plus précisement cette partie :

If and(Range("B4").Value,""*ANCIEN*"") =1, range("b10").value,""*COMPTE BILAN*"" Then

Bonne compréhension

Bonjour

Sans fichier test

Supposition

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("B4,B10"), Target) Is Nothing And Target.Count = 1 Then
    If (InStr(1, Range("B4"), "ANCIEN")) > 0 And (InStr(1, Range("B10"), "COMPTE BILAN")) > 0 Then
      Range("B5") = "neant"
    Else
      Range("B5").ClearContents
    End If
  End If
End Sub

Tu modifies B4 ou B10 et la cellule B5 est actualisée

Merc banzaï64

Comme d'habitude, ta proposition fonctionne à merveil et me convient parfaitement.

un grand merci à toi.

bonjour,

j'aimerai connaitre aussi l'equivalent en vba

select a from X where b="m"

svp c'est urgent aidez moi

cdt