Exécution automatique d'une macro sous Excel Fermé

Question

Salut !Bon ma question va peut être vous paraître triviale mais je débute :-)Je cherche à lancer ma macro lorsque qqchose est saisi dans une cellule... J'ai essayé avec un "Worksheet_Change" mais ça donne pas grand chose. Je ne vois pas comment faire pour que mon programme "surveille" en permanence ce qui se passe et lance automatiquement ma macro lors d'un changement dans une case...Please Help !Merci d'avance

mobile75 · Answer

bonjour, essaye avec Worksheet_selectionchange ()comme ca a chaque deplacement dans une cellule les instructions a l'interieur de la procedure se ferontA+Essayer.........des fois ça marche............

matthias · Answer

bonjour, voilà j'aurais une question mes je ne sais pas du tout si ça à un rapport avec une macro (ne sachant pas ce que c'est) !!!

je me lance: 

j'ai un document excel qui me permet de faire de l'enregistrement comptabl(avec numéro de compte, débit/crédit ... ) mais je voudrais savoir s'il m'était possible de faire en sorte que quand je mette un numéro de compte précis, il s'affiche dans la case d'à côté toujours le même montant. car j'ai, tout les mois, les mêmes montants de charges fixes et ça me fait perdre du temps de rentré à chaque fois la même écriture !!

voilà merci d'avance

Kaddouri · Answer

bonjour lucas,

Je me demande si tu as trouve une solution a ton probleme parceque j'ai le meme.

En fait j'ai des date de validites des contrats et j'aimerais que chaque fois que la date est depassee je recois une elarte sur mon email.

JE ne sais pas si c'est possible.

Mesrci pour ton aide

lecorsaire · Answer

Bonjour Lucas et Kaddouri, 

j'ai le m pb que vous, je souhaiterai que ma macro s'active à chaque fois que je valide une cellule, ou si ce n'est pas possible à chaque fois qu'une cellule précise varie

merci a tous

arnaud

Epiphane · Answer

Bonjour Lucas, moi j'essayerai de la sorte

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$1" And Target.Value = "Test" Then LanceMacro
End Sub



Et pour le corsaire voici ma réponse :


Private Sub Workbook_Open()
Dim Last As Integer, Contrat As String, DateContrat As Date, i As Integer, Txt As String
Sheets("Contrat").Select
Last = Range("A1").End(xlDown).Row 'Trouve la dernière cellule
For i = 2 To Last
    DateContrat = Range("A" & i).Value
    Contrat = Range("B" & i).Value
    If DateContrat < Date Then Txt = Txt & "- Le contrat " & Contrat & " est expiré depuis le " & DateContrat
Next i
MsgBox (Txt)
End Sub

Exécution automatique d'une macro sous Excel

5 réponses

Discussions similaires