Sub NomBoutonX_Click() NomBoutonX.Enabled = False If (NomBoutonY.Value or NomBoutonZ.Value or NomBoutonT.Value) Then ' On grise tout NomBoutonY.Enabled = False NomBoutonZ.Enabled = False NomBoutonT.Enabled = False End If Range("A1").value = Range("A1").value - 2 End Sub
Sub NomBouton_Click() Range("A1").value = Range("A1").value - 2 End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub NomBoutonX_Click() If (NomBouton1.Value and NomBouton2.Value) Then NomBouton3.Enabled = False NomBouton4.Enabled = False End If Range("A1").value = Range("A1").value - 2 End Sub
Temp = Range("V30").Value - 1 If (Temp < 5) Then MsgBox "On ne peut descendre en dessous de 5 !", vbExclamation, "Non, non, ...!" Else Range("V30").Value = Temp End If