Exécution macro si

Bonjour,

A l'adresse jointe vous trouverez mon programme pour lequel il me manque quelque chose.

Merci d'avance,

https://www.excel-pratique.com/~files/doc/mcj1997_V1.zip

bonjour à tous,

tu peux ajouter en début de macro :

Sub ModifC9()
    If Range("D10") = 1 Then
        Range("c9") = Range("d9")
        Exit Sub
    End If

amicalement

Claude.

dubois a écrit :

bonjour à tous,

tu peux ajouter en début de macro :

Sub ModifC9()
    If Range("D10") = 1 Then
        Range("c9") = Range("d9")
        Exit Sub
    End If

amicalement

Claude.

MERCI ça MARCHE, il y avait une autre question, merci d'avance,

Bonjour,

Tu peux essayer ceci :

Private Sub CheckBox1_Change()
If Range("D10") <> 1 Then
Call ModifC9
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C7")) Is Nothing Then End
If Target = Range("C3") Then Call ModifC9
End Sub

Je ne vois pas l'intérêt de la macro Private Sub CheckBox1_Click(). Elle me semble inutile. A vérifier donc.

Amicalement

Dan

Edit : Oups Claude. Bonjour à toi.

re,

pour la 2 ème question :

remplace cette ligne ( Or Target = Range("c7")

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("C3") Or Target = Range("c7") Then Call ModifC9
End Sub

claude.

PS: Salut Dan, je fais gaffe aux crochets !!

dubois a écrit :

re,

pour la 2 ème question :

remplace cette ligne ( Or Target = Range("c7")

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("C3") Or Target = Range("c7") Then Call ModifC9
End Sub

claude.

PS: Salut Dan, je fais gaffe aux crochets !!

cela ne fonctionne pas pouvez-vous, svp, l'intégrer dans mon programme joint initialement,

merci

re,

As-tu essayé ce que je t'ai proposé ?

Dan

Rechercher des sujets similaires à "execution macro"