Si(ou(nb.si VBA

job75

XLDnaute Barbatruc

• 7 Avril 2019

• #2

Bonjour MURET31,

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

VB:

[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+

 

Vote positif 0 Vote négatif

M

MURET31

XLDnaute Nouveau

• 7 Avril 2019

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Avril 2019

• #4

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

 

Vote positif 0 Vote négatif

M

MURET31

XLDnaute Nouveau

• 7 Avril 2019

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Avril 2019

• #6

Re

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Avril 2019

• #7

MURET31 à dit:

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

Cliquez pour agrandir...

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

VB:

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

 

Vote positif 0 Vote négatif

M

MURET31

XLDnaute Nouveau

• 7 Avril 2019

• #8

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

Bien cordialement,

MU

 

Vote positif 0 Vote négatif

M

MURET31

XLDnaute Nouveau

• 7 Avril 2019

• #9

@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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Avril 2019

• #10

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

 

Vote positif 0 Vote négatif

M

MURET31

XLDnaute Nouveau

• 8 Avril 2019

• #11

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

 

Vote positif 0 Vote négatif