Macro

BERRACHED said

XLDnaute Accro

• 31 Août 2008

• #2

Re : Macro

Salut,mcj1997

As tu Essayé de mettre ça avant ton code :

Code:

If ActiveSheet.CheckBox1.Value = "oui" Then
Exit Sub
Else

Cordialement

 

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 31 Août 2008

• #3

Re : Macro

Non je ne veux pas essayer cela car je veux garder cette condition car avec OUI un calcul s'effectue et avec NON c'est un autre calcul qui s'effectue.

Ce que je cherche c'est bloquer c'est macro si D10 = 1

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 31 Août 2008

• #4

Re : Macro

Ré,

même si j'ai pas compris le principe mais suivant ce que tu dit normalement c'est ainsi :

Code:

Sub ModifC9()
If Sheets("Feuil1").Range("D10").Value = 1 Then
Exit Sub
Else
If ActiveSheet.CheckBox1.Value = True Then
        Select Case Range("D9").Value
            Case Is < 13550
            Range("C9") = Range("D9") - 4404
            Case Is <= 21860
            Range("C9") = Range("D9") - 2202
            Case Else
            Range("C9") = Range("D9")
        End Select
Else
        Select Case Range("D9").Value
            Case Is < 13550
            Range("C9") = Range("D9") - 2202
            Case Is <= 21860
            Range("C9") = Range("D9") - 1101
            Case Else
            Range("C9") = Range("D9")
        End Select
End If
End If
End Sub

Cordialement

 

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 31 Août 2008

• #5

Re : Macro

J'ai déjà essayé et je viens de réessayer mais cela ne fonctionne pas.

Désolé,

Comment faire ?

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 31 Août 2008

• #6

Re : Macro

Ré,

essayé ce code ça a marcher chez moi :

Code:

Private Sub CheckBox1_Change()
If Sheets("Feuil1").Range("d10").Value = 1 Then
Exit Sub
Else
Call ModifC9
End If
End Sub

Cordialement

 

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 31 Août 2008

• #7

Re : Macro

pourriez-vous svp m'envoyer mon fichier corrigé car chez moi ça ne marche toujours pas, désolé

merci d'avance,

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 31 Août 2008

• #8

Re : Macro

Ré,

voir le fichier si j'ai bien compris :

Cordialement

 

Pièces jointes

• mcj1997_V1.zip

  21.3 KB · Affichages: 14
• mcj1997_V1.zip

  21.3 KB · Affichages: 17
• mcj1997_V1.zip

  21.3 KB · Affichages: 16

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 31 Août 2008

• #9

Re : Macro

BERRACHED said à dit:

Ré,

voir le fichier si j'ai bien compris :

Cordialement

Cliquez pour agrandir...

Non ce n'est pas encore bon car après essai lorsque je mets 12000 en C3, j'ai 10800 en D9
et 6396 en C9, qu'il y ait 1 ou 2 en D10

Merci d'avance

 

Vote positif 0 Vote négatif