Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Calculate

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion vini
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
V

vini

Guest
Bonjours, je suis débutant en VBA.
j'aimerais changer un procédure "change" en "calculate"...
Code: 
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🙂
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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 :
Code: 
[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,
 
Vote positif 0 Vote négatif
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;
 
Vote positif 0 Vote négatif
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 :
Code: 
[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,
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
315
TooFatBoy
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
508
job75
  • Question Question
XL 2016 Renseigner une plage 2 a partir d'une plage 1 selon le mois.
Réponses
4
Affichages
273
KTM
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
253
anthoYS
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
275
anthoYS
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
486
sylvanu
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
481
nabilexcel2007
N
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
689
job75
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
456
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
745
un internaute
U
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
241
vazvaz
V
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
333
PRy
P
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
303
TooFatBoy
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
A
  • Résolu(e)
XL 2010 Private Sub Worksheet_Change
Réponses
2
Affichages
380
Atlas85200
A
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
445
Lau01150
L
M
  • Question Question
Autres Problème de sélection
Réponses
14
Affichages
484
fanch55
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
623
anthoYS
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…