Macro automatique

K

kjin

XLDnaute Barbatruc

• 10 Février 2011

• #2

Re : Macro automatique

Bonjour,

Nonno 94 à dit:

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

Cliquez pour agrandir...

A la suite de quel processus ?
A+
kjin

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 10 Février 2011

• #3

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é

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 10 Février 2011

• #4

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

 

Vote positif 0 Vote négatif

N

Nonno 94

XLDnaute Occasionnel

• 10 Février 2011

• #5

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.

 

Vote positif 0 Vote négatif

N

Nonno 94

XLDnaute Occasionnel

• 10 Février 2011

• #6

Re : Macro automatique

Bonjour kjin,

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

Remerciements pour votre réponse.
Nonno 94.

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 10 Février 2011

• #7

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 ?

 

Vote positif 0 Vote négatif

N

Nonno 94

XLDnaute Occasionnel

• 10 Février 2011

• #8

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.

 

Vote positif 0 Vote négatif

N

Nonno 94

XLDnaute Occasionnel

• 10 Février 2011

• #9

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.

 

Dernière édition: 10 Février 2011

Vote positif 0 Vote négatif