Re : Bouton de commande qui grossit
Bonjour
Code derrière le Bouton:
Private Sub Bouton_Calculer_Click()
Dim str_Commentaire As String
Dim lng_Rep As Long
Application.ScreenUpdating = False
str_Commentaire = LCase(Me.Range(str_NomRBRuleName).Value)
If InStr(str_Commentaire, "complementaire") > 0 Then
lng_Rep = MsgBox("Le calcul est en mode complémentaire!" & vbCrLf & _
"Voulez-vous un calcul en mode normal?", vbYesNo, "Quinten France")
If lng_Rep = vbYes Then
str_Commentaire = Replace(str_Commentaire, "complementaire", " ")
str_Commentaire = Replace(str_Commentaire, "complémentaire", " ")
Me.Range(str_NomRBRuleName).Value = Trim(str_Commentaire)
End If
End If
Run_CalculerRegleDansLeCristal
Call ReveillerLaMatrice
End Sub
Propriété du bouton
En pièce jointe
Merci d'avance