Si(ou(nb.si VBA

[MURET31]

Bonjour le Forum,

Ayant trouvé une solution rapidement hier soir grâce à ce forum, je me permets de poster une nouvelle demande au sujet d'une autre formule que j'aimerais passer sous VBA:

J'aimerais la passer sous VBA avec une macro événementielle: Private Sub Worksheet_Change(ByVal Target As Range)
Mon objectif étant de pouvoir écrire dans la cellule contenant la formule sans l'écraser.

L86=SI(OU(NB.SI(H86;"*toto*");NB.SI(H86;"*tata*"));N86+200;SI(OU(NB.SI(H86;"*titi*");NB.SI(H86;"*tete*"));N86+400;""))

Par avance merci pour votre aide.

Bien cordialement,

MU

 

[job75]

Bonjour MURET31,

Aucune difficulté une fois qu'on sait ce qu'il faut faire :

[L86] = "=IF(OR(COUNTIF(H86,""*toto*""),COUNTIF(H86,""*tata*"")),N86+200,IF(OR(COUNTIF(H86,""*titi*""),COUNTIF(H86,""*tete*"")),N86+400,""""))"

Bien sûr dans une Worksheet_Change il faut prendre des précautions.

Utiliser au besoin les Application.EnableEvents.

A+

 

[MURET31]

Bonjour Job75

Je vous remercie pour votre retour.
Je suis novice en VBA alors si vous avez une idée de comment l'intégrer dans une worksheet_Change, je suis preneur

Par avance merci

Bien cordialement

MU

 

[Staple1600]

Bonjour Muret31, job75

Muret31
Pourquoi pas en s'inspirant de ce qui te fut expliqué dans ton autre fil...?

INDEX EQUIV VBA

Bonjour le forum! Je suis à la recherche d'une macro événementielle, j'ai une formule qui fonctionne bien et j'aimerais la passer en VBA: =INDEX(BDM!E:E;EQUIV(START!B98&E98&H98;BDM!A:A&BDM!B:B&BDM!C:C;0)) Merci pour votre aide. MU

www.excel-downloads.com

 

[MURET31]

Bonjour Staple1600,

Je te remercie pour ton retour.

En effet c'est ce que je suis en train de faire depuis que j'ai eu le retour de Job75, mais pas évident pour un débutant.

Merci tout de même.

Bien cordialement,

MU

 

[Staple1600]

Re

Où est-ce que tu bloques dans le mix des propositions de job75 et Jacky67?

 

[job75]

Je suis novice en VBA alors si vous avez une idée de comment l'intégrer dans une worksheet_Change, je suis preneur

Cela n'interdit pas de réfléchir 5 secondes :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
[L86] = "=IF(OR(COUNTIF(H86,""*toto*""),COUNTIF(H86,""*tata*"")),N86+200,IF(OR(COUNTIF(H86,""*titi*""),COUNTIF(H86,""*tete*"")),N86+400,""""))"
Application.EnableEvents = True
End Sub

 

[MURET31]

Tout fonctionne parfaitement!!!
Merci beaucoup, bonne fin de dimanche.

Bien cordialement,

MU

 

[MURET31]

@job75 : j’ai un petit souci avec ta proposition ci-dessus, tout fonctionne bien mais il me remet la formule dans la cellule même effacée.

Merci de ton aide!

Bien cordialement

MU

 

[job75]

C'est vous qui savez ce que vous voulez faire. Par exemple conditionnez l'exécution du code au remplissage d'une autre cellule.

 

[MURET31]

Bonjour Job75
Problème résolu.
Merci encore pour votre aide.
Bien cordialement
MU