XL 2016 VB Macro d'après une condition

Hasco

XLDnaute Barbatruc

Repose en paix

• 5 Juin 2019

• #2

Bonjour,

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

VB:

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

 

Pièces jointes

• TestBook.xlsm

  14.8 KB · Affichages: 2

Vote positif 0 Vote négatif

E

enzo_s

XLDnaute Junior

• 5 Juin 2019

• #3

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Juin 2019

• #4

Bonjour enzo_s, Roblochon,

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

VB:

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

 

Pièces jointes

• TestBook(1).xlsx

  15.2 KB · Affichages: 3

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 5 Juin 2019

• #5

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

 

Pièces jointes

• TestBook.xlsm

  14.7 KB · Affichages: 2

Vote positif 0 Vote négatif

E

enzo_s

XLDnaute Junior

• 5 Juin 2019

• #6

Ah Nickel !! ça fonctionne bien 🙂

Merci beaucoup

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 5 Juin 2019

• #7

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

VB:

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 !

 

Pièces jointes

• TestBook.xlsm

  19.5 KB · Affichages: 2

Vote positif 0 Vote négatif