Ajout d'un lancement automatique d'une macro

Bonjour

J'ai un petit programme construit avec un lancement automatique

d'une macro sur une feuille

Il s'agit de la cellule "V1" sur ma feuille "jeux" qui lance ma macro "comptage"

Voici une capture de ce code

Je souhaiterais ajouter sur cette même feuille

le changement automatique quand la cellule "Q41 " passe de 0 a 1 et me lance la macro "attendre"

Peut ont corriger le code déjas existant ? ou en créer un nouveau

Merci pour voutre aide

Eric

capture1

Bonjour,

C'est un peu la même chose

If Not Intersect(Target, [Q41]) Is Nothing And [Q41] = 1 Then
    Call Attendre
End If

A ajouter sous l'autre if.. then

Cordialement

Bonjour,

Un début de réponse pour le principe, mais le résultat va dépendre de la cellule Q41.

Cette cellule comporte t'elle une formule, par exemple ?

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case True
        Case Target.Address = "$V$1"
            Call comptage
        Case Target.Address = "$Q$41" And Target.Value = 1
            Call attendre
    End Select
End Sub

Merci de votre réponse aussi rapide

voila comment je l'ai rajouté

mais ca fonctionne pas

capture3

Bonjour

ci joint une proposition de code, vérfie el nom de ta deuxième macro

[code]]Option Explicit

Private Sub worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("v1")) Is Nothing Then

Call comptage

End If

If (Not Intersect(Target, Range("q41")) Is Nothing) And (Range("q41").Value = 1) Then

Call attendre

End If

End Sub

[/code

Cordialement Findrh

en faite la cellule Q41 utilise une formule =si pour passer de 0 a 1

re bonjour

ci joint ne procédure qui semble marcher, trouvée sur le web, elle teste si des antécédents (cellules dont dépend Q41 ont changé )

Private Sub worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("V1")) Is Nothing Then
Call comptage
End If

Dim updatedCell As Range
    Set updatedCell = Range(Target.Dependents.Address)

    If Not Intersect(updatedCell, Range("Q41")) Is Nothing And Range("Q41") = 1 Then
        Call attendre
    End If

End Sub

Cordialement

FINDRH

version corrigeant une interférence entre les deux Intersect

Private Sub worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("B1")) Is Nothing Then
Call pipo
GoTo 100
End If

Range("d1").Select
Dim updatedCell As Range
    Set updatedCell = Range(Target.Dependents.Address)

    If Not Intersect(updatedCell, Range("d1")) Is Nothing And Range("D1") = 1 Then
        Call tutu
    End If
100 Range("d1").Select

End Sub

FINDRH

Rechercher des sujets similaires à "ajout lancement automatique macro"