XL 2016 VB Macro d'après une condition

[enzo_s]

Bonjour,
J'ai une petite question, je cherche à faire une macro qui mettre Yes ou laisserais le chois dans une cellule d’après une condition.

je joins le fichier c'est plus simple

Merci d'avance

Enzo

 

[Hasco]

Bonjour,

Voir la formule matricielle en H1:H2 qui sert de validation pour C21 ainsi que le code de la feuille:

Private Sub Worksheet_Calculate()
If Range("H1") = "Yes" And Range("H2") = "Yes" Then
    Application.Calculation = xlCalculationManual 'Important si on ne veut pas lancer un recalcul de la feuille en boucle
    Range("C21") = "Yes"
    Application.Calculation = xlCalculationAutomatic ' rétablir le calcul automatique
End If
End Sub

Bonne soirée

 

[enzo_s]

Super merci !!

Juste encore une question ci H1 et H2 ne sont pas sur la même feuille, peut on adapter cette ligne ?

If Range("H1") = "Yes" And Range("H2") = "Yes" Then

 

[job75]

Bonjour enzo_s, Roblochon,

Fichier joint sans VBA avec cette formule de validation en C21 :

=DECALER($H$1;;;1+(NB.SI($C$17:$C$18;"No")=2))

Pas de problème si la plage H1:H2 est dans une autre feuille, il suffit de préciser la feuille.

A+

 

[Hasco]

Re,

If Sheets("nomdelafeuille").Range("H1") = "Yes" And Sheets("nomdelafeuille").Range("H2") = "Yes" Then

Plus en pièce jointe une soluce sans matricielle.

Bonne soirée

 

[enzo_s]

Ah Nickel !! ça fonctionne bien 🙂

Merci beaucoup

 

[JBARBE]

Bonjour à tous, toutes,
Peut-être ceci :

Option Explicit

Sub TEST()
Dim reponse As String
If Range("C17") = "No" And Range("C18") = "No" Then
reponse = InputBox("Choisissez Yes ou No")
If reponse = "No"Then
Range("C21") = "No"
Else
Range("C21") = "Yes"
End If
End If
End Sub

Pas vu enzo!
Bonne journée !