Fonction Si(ou(nb.si VBA

Bonjour le forum,

Je suis à la recherche d'un code VBA pour la formule suivante.
C'est une formule que j'utilise tous les jours, qui fonctionne très bien et j'aimerais juste la passer en VBA svp.

Code:

---

=SI(OU(NB.SI(H86;"*toto*");NB.SI(H86;"*tata*"));N86+200;SI(OU(NB.SI(H86;"*titi*");NB.SI(H86;"*tete*");NB.SI(H86;"*tic*");NB.SI(H86;"*tac*");NB.SI(H86;"*toc*");NB.SI(H86;"*tek*");NB.SI(H120;"*tik*");NB.SI(H86;"*tin*"));N86+400;""))

---

Merci pour votre aide.

Bien cordialement,

MU

Citation:

---

Envoyé par Muret31

---

Bonjour,

A l'emplacement de votre formule, il vous suffit de créer une macro et faire Entrée à la fin de la formule dans la barre de formule puis d'arrêter la macro et d'aller au résultat dans l'éditeur VBA.

En copiant collant cotre formule dans la cellule A1 d'un onglet, voilà ce que cela donne :

Code:

---

1 2 3 4 5 6 7

Sub Macro1() ' ' Macro1 Macro   ActiveCell.FormulaR1C1 = _ "=IF(OR(COUNTIF(R[85]C[7],""*toto*""),COUNTIF(R[85]C[7],""*tata*"")),R[85]C[13]+200,IF(OR(COUNTIF(R[85]C[7],""*titi*""),COUNTIF(R[85]C[7],""*tete*""),COUNTIF(R[85]C[7],""*tic*""),COUNTIF(R[85]C[7],""*tac*""),COUNTIF(R[85]C[7],""*toc*""),COUNTIF(R[85]C[7],""*tek*""),COUNTIF(R[119]C[7],""*tik*""),COUNTIF(R[85]C[7],""*tin*"")),R[85]C[13]+400,""""))" End Sub

---

Bonjour Eric,

Je vous remercie pour votre retour.

J'ai oublié de préciser que je souhaitais avoir une macro événementielle (Private Sub Worksheet_Change(ByVal Target As Range)
Je garde votre proposition sous le code.

Par avance merci

Bien cordialement,

MU