Calculate

[vini]

Bonjours, je suis débutant en VBA.
j'aimerais changer un procédure "change" en "calculate"...

Private Sub Worksheet_[COLOR="Red"]Change[/COLOR](ByVal Target As Range)
If Target.Address = "$A$9" Then 
If Target.Value = 1 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End If

End Sub

ce code permet de lancer l'impression si la cellule A9 est = à 1,
mais la cellule est le resultat d'une formule, comment faire?
Merci pour vos aides🙂

 

[Jacques87]

Re : Calculate

bonjour,

tu changes :
Private Sub Worksheet_Change(ByVal Target As Range)
en
Private Sub Worksheet_SelectionCalculate(ByVal Target As Range)

mais attention tu as un double test :
1) il faut que la cellule A9 soit sélectionnée
2) il faut qu'elle contienne 1
c'est ton choix et tes raisons sont peu être justifiées, mais n'est ce pas trop restrictif ?

Bon courage

 

[Jacques87]

Re : Calculate

Bonjour José,

Je partage ton analyse, toutefois comme Vini voulait utiliser l'évènement "Calculate", je l'ai branché sur cette piste

Maintenant, je me demande si son code ne fonctionne pas , si ce n'est pas du aux tests réalisés

If Target.Address = "$A$9" Then
If Target.Value = 1 Then

Est-ce qu'un simple : If Range("A9").Value = 1 ne serait pas préférable ?

Cordialement

 

[myDearFriend!]

Re : Calculate

Bonjour

Pas vraiment d'accord avec vous les gars... si la cellule A9 contient une formule, la surveillance de cette cellule A9 dans l'évènement Change() ne déclenchera rien !

Par ailleurs, l'idée de notre ami vini d'utiliser l'évènement Calculate() me paraît un peu risquée... il risque fort de se retrouver avec une nouvelle impression à chaque recalcul de la feuille...

A mon avis, une façon de faire serait de "surveiller" dans l'évènement Change() les antécédents de la formule en question (une modification de ces antécédents signifie un changement de valeur de A9). Par exemple, si A9 = A1 + A2, on pourrait faire quelque chose comme ça :

[SIZE=2]Private [COLOR=navy]Sub[/COLOR] Worksheet_Change([COLOR=navy]ByVal[/COLOR] Target[COLOR=navy] As [/COLOR]Range)
      [COLOR=navy]If Not [/COLOR]Application.Intersect(Target, Range("[B]A1:A2[/B]"))[COLOR=navy] Is Nothing Then[/COLOR]
            [COLOR=navy]If [/COLOR]Range("A9").Value = 1 [COLOR=navy]Then[/COLOR]
                  ActiveWindow.[COLOR=navy]Select[/COLOR]edSheets.[COLOR=navy]Print[/COLOR]Out Copies:=1, Collate:=[COLOR=navy]True[/COLOR]
            [COLOR=navy]End If[/COLOR]
      [COLOR=navy]End If
End[/COLOR] Sub[/SIZE]

L'affaire se corse si les antécédents se trouvent sur une autre feuille...

Cordialement,

 

[Robert]

Re : Calculate

Bonjour le fil, bonjour le forum,

Quel c.. ce José ! Arrête tu vas encore nous faire mal...

 

[Jacques87]

Re : Calculate

Bonjour Didier,

Merci pour cette mise au point
J'obtenais bien satisfaction avec le code suivant

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A9").Value = 1 Then
MsgBox ("OK")
End If
End Sub

Mais évidemment pour faire mes essais je me ne modifiais que les cellules antécédents A1 et A2, donc je ne m'étais pas aperçu que mon message était validé en cas de test positif quelle soit la cellule activée ... alors bonjour les dégats avec le code d'origine ( ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True)

Encore merci pour tes précieux conseils

Cordialement


Bonjour Robert

Tiens, tiens José, tu as retiré ton humour de là où tu l'avais placé ces jours derniers;

 

[myDearFriend!]

Re : Calculate

Re le fil, salut Robert,

Arf José, tu ne changeras jamais...🙂

Concernant la procédure ci-dessus, pour simplifier en cas de formule complexe, on peut également l'écrire comme ça :

[SIZE=2]Private [COLOR=navy]Sub[/COLOR] Worksheet_Change([COLOR=navy]ByVal[/COLOR] Target[COLOR=navy] As [/COLOR]Range)
      [COLOR=navy]If Not [/COLOR]Application.Intersect(Target, Range("A1").[B]Precedents[/B])[COLOR=navy] Is Nothing Then[/COLOR]
            [COLOR=navy]If [/COLOR]Range("A1").Value = 1 [COLOR=navy]Then[/COLOR]
                  ActiveWindow.[COLOR=navy]Select[/COLOR]edSheets.[COLOR=navy]Print[/COLOR]Out Copies:=1, Collate:=[COLOR=navy]True[/COLOR]
            [COLOR=navy]End If[/COLOR]
      [COLOR=navy]End If
End[/COLOR] Sub[/SIZE]

Mais ATTENTION, ça ne marchera que si les antécédents sont dans la même feuille !

Cordialement,

 

[vini]

Re : Calculate

Merci pour vos réponses.
Je ne voulais pas utiliser Change car effectivement le résultat d'une formule ne me déclenchais rien.