Macro automatique

[Nonno 94]

Bonjour à tous,

voici ma question : est-il possible de lancer automatiquement une macro lorsqu'une cellule de la feuille atteint une valeur définie ?

Exemple : si A1 = 1, la macro est lancée automatiquement.

Remerciements pour votre réponse.

Nonno 94.

 

[kjin]

Re : Macro automatique

Bonjour,

...lorsqu'une cellule de la feuille atteint une valeur définie ?

A la suite de quel processus ?
A+
kjin

 

[noviceAG]

Re : Macro automatique

Bonjour Nonno 94, le Forum,
Dans feuille
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1").Value = 1 Then
Call macro
End If
End Sub

Modifier A1 et 1 selon désiré

 

[mécano41]

Re : Macro automatique

Bonjour à tous,

noviceAG : il me semble que cela ne fonctionne ainsi que si la modification en A1 est faite au clavier ; pas si elle est le résultat d'un calcul ou d'une action VBA. Je suppose que c'est pour cela que kjin a posé sa question...

Cordialement

 

[Nonno 94]

Re : Macro automatique

Bonjour (ex ?) noviceAG,

Remerciements pour votre réponse,
La macro fonctionne mais ....ne s'arrête pas !
Voici mon code :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1").Value = 1 Then
ActiveSheet.Unprotect
Range("G7").Select
ActiveCell.FormulaR1C1 = "Bonjour"
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
End If
End Sub

A1 = B5 qui est un compteur et peut donc prendre différentes valeurs.

Pouvez-vous m'indiquer ce qui "cloche" ?
Remerciements pour votre patience et votre indulgence.

Cordialement.
Nonno 94.

 

[Nonno 94]

Re : Macro automatique

Bonjour kjin,

La cellule est un total.
Cette info. vous suffit-elle ?

Remerciements pour votre réponse.
Nonno 94.

 

[noviceAG]

Re : Macro automatique

Re, bonsoir kjin, mécano41,
Nonno 94 : ceci ?

Private Sub Worksheet_Calculate()
If Me.Range("A1") = 1 Then
MsgBox "1 en A1"
Else
MsgBox "Différent de 1 en A1"
End If
End Sub

Est-ce ce que tu souhaite ?

 

[Nonno 94]

Re : Macro automatique

Bonsoir,

je crois m'être mal exprimé et (plus surprenant) avoir compris la raison pour laquelle la macro avec ton code, par ma faute, ne s'arrête pas.
Je me penche "sérieusement" sur la question et te recontacte.

A plus tard.
Nonno 94.

 

[Nonno 94]

Re : Macro automatique

Je crois préférable et j'espère plus explicite de te faire parvenir un fichier par le lien suivant :

Cijoint.fr - Service gratuit de dépôt de fichiers

Avec mes vifs remerciements pour ta disponibilité et ta patience.

Nonno 94.

P. S. : si "ma" macro n'a pas fonctionné avec ton code, c'est tout simplement parceque la valeur de la cellule reste toujoiurs égale à 1 (cé ballot, n'est-ce pas)
Cela n'est pas le cas avec le fichier joint car la macro rend les 2 totaux égaux et donc la valeur de la cellule passe à 0.