Discussion :

[Muret31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Muret31]

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