> Tous les forums > Forum Bureautique
 Excel - Déclencher macro après chgt d'une celluleSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
kezav
  Posté le 19/07/2010 @ 12:41 
Aller en bas de la page 
Nouvel astucien

Hello tout le monde,

J'ai créé une macro qui a l'air de pas trop mal fonctionner mais le problème vient plutôt du fait que je ne sais pas comment la déclencher quand je veux.

En fait, en complétant différent tableaux, je calcule une somme et en fonction du résultat de cette somme, ma macro doit rentrer en jeu. A chaque fois que la somme change, la macro doit refonctionner.

Y-a-t-il une fonction qui permettrait de détecter les changements de valeur de la cellule et à chaque changement lancerait la macro?

J'espère avoir été assez clair et merci beaucoup !!!!!!

Publicité
qmike549
 Posté le 19/07/2010 à 12:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Marmotte18
 Posté le 19/07/2010 à 18:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Dans Feuil1, mets la macro :

Public AncienneSomme As Currency, Fois1 As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

If Fois1 = False Then
Fois1 = True
AncienneSomme = Cells(4, 1)
MsgBox "Ancienne somme = " & AncienneSomme
Exit Sub
End If

If Cells(4, 1) <> AncienneSomme Then
AncienneSomme = Cells(4, 1)
MsgBox "Nouvelle somme = " & AncienneSomme
Call SuiteTraitement
End If

End Sub

Dans Module1, mets l'autre macro :

Sub SuiteTraitement()
MsgBox "Le traitement se poursuit car la somme a changé !"
End Sub

Ci-joint le fichier de démonstration : http://www.cijoint.fr/cjlink.php?file=cj201007/cijs1mfZjM.xls



Modifié par Marmotte18 le 19/07/2010 18:59
kezav
 Posté le 20/07/2010 à 10:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Merci beaucoup pour vos réponses !

J'ai testé la solution de Marmotte qui marche bien, il y a juste un petit problème, c'est que ca ne fonctionne pas pour le premier changement effectué. En effet, je pense que le premier changement doit initialiser la valeur 'ancienne somme' et donc ca ne lance pas ma macro.

Quelqu'un a-t-il une idée ? Merci !

Marmotte18
 Posté le 20/07/2010 à 18:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir kezav,

Tu as raison, il y a un bug sur le fonctionnement. J'ai fait des corrections et voilà le résultat des courses :

Dans Feuil1, mettre le code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(4, 1) <> AncienneSomme Then
AncienneSomme = Cells(4, 1)
MsgBox "Nouvelle somme = " & AncienneSomme
Call SuiteTraitement
End If

End Sub

Dans ThisWorkbook, mettre le code :

Private Sub Workbook_Open()
AncienneSomme = Cells(4, 1)
MsgBox "Valeur de la somme à l'ouverture du classeur = " & AncienneSomme & " => aucune macro n'est lancée !"
End Sub

Dans Module1, mettre le code :

Public AncienneSomme As Currency

Sub SuiteTraitement()
MsgBox "Une macro est lancée car la somme a changé !"
End Sub

Ci-joint le fichier de démonstration : http://www.cijoint.fr/cjlink.php?file=cj201007/cijmxZwqlj.xls



Modifié par Marmotte18 le 20/07/2010 19:29
kezav
 Posté le 21/07/2010 à 10:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Super !

Ca marche super bien

Un grand merci à Marmotte !!!

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
39,40 €Carte mémoire microSDXC UHS-I U3 SanDisk Extreme 256 Go (160 Mo/s) à 39,40 €
Valable jusqu'au 23 Janvier

Amazon fait une promotion sur la carte mémoire microSDXC UHS-I U3 A2 SanDisk Extreme 256 Go qui passe à 39,40 € livrée gratuitement alors qu'on la trouve ailleurs autour de 70 €. Cette carte mémoire offre des vitesses jusqu'à 160 Mo/s et est idéale pour les téléphones, caméras et appareils photo HD/4K.


> Voir l'offre
33,75 €Carte mémoire Samsung 256 Go MicroSDXC Evo Select U3 (100 Mo/s) à 33,75 € livrée
Valable jusqu'au 25 Janvier

Amazon Allemagne fait une promotion sur la toute nouvelle carte mémoire Samsung 256 Go MicroSDXC Evo Select U3 qui passe à 29,63 €. Comptez 4,52 € pour la livraison en France soit un total de 33,75 € livrée. Une bonne affaire pour cette carte que l'on trouve ailleurs à partir de 60 € et qui offre des vitesses de 100 Mo/s en lecture et 90 Mo/s en écriture.  Elle est idéale pour les téléphones, caméras et appareils photo 4K. Elle est étanche, anti-choc et résiste aux rayons X et aux champs magnétiques. Elle est garantie 10 ans.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de frais de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
16,54 €Webcam Elephone Ecam (FullHD, 5MP, autofocus) à 16,54 € livrée
Valable jusqu'au 23 Janvier

Gearbest fait une promotion sur la Webcam Elephone Ecam (FullHD, 5MP, autofocus) qui passe à 14,94 €. Comptez 1,60 € pour la livraison et l'assurance soit un total de 16,54 € livrée. Cette très bonne webcam à brancher sur un port USB de votre ordinateur possède un micro intégrée et un système de pose universelle qui vous permettre de la mettre sur votre écran ou sur votre bureau.

Ce marchand sérieux se trouvant en Chine, la livraison peut prendre une vingtaine de jours. Vous pouvez payer par carte bancaire ou par Paypal (conseillé pour bénéficier de la garantie Paypal).


> Voir l'offre

Sujets relatifs
Excel 2007 macro rajouter tri + cellule en surbrillance à chaque changement
(Macro Excel) Sélectionner cellule en fonction de sa couleur
excel 2007 cellule en couleur après la date ?
la macro qui designe une cellule pour excel
Excel - déclenchement macro sur modif cellule
Macro excel = Copier une cellule
tri d'aprés une autre cellule excel
2 pages par feuille dans macro excel
Recopie cellule par macro
case à cocher dans cellule Excel 2010
Plus de sujets relatifs à Excel - Déclencher macro après chgt d''une cellule
 > Tous les forums > Forum Bureautique