Aide pour adpater un macros à ma feuille Résolu

Question

Bonjour, 

Je tiens mon compte bancaire depuis un tableur excel sur ordinateur et j'aimerais lors du 5(jour) de chaque mois s'affiche ma ligne de mon emprunt pour éviter d'oublier d'actualiser mon tableur excel.

J'ai crée une tache planifié sur mon ordinateur depuis ce sujet : https://forums.cnetfrance.fr/tutoriels-windows-7-8-et-autres-sytemes/250237-creer-une-tache-planifiee-dans-windows-7-ou-vista

Et G_33, m'avait donné ce macros là :

Private Sub Workbook_Open()
  Dim maDate As Byte
  Dim monMotif As String
  maDate = "5"
  If Day(Date) = maDate Then
  Sheets("Emprunt").Activate      '' à adapter avec le non de votre feuille et la bonne colonne
  For lig = 2 To Range("a65536").End(xlUp).Row  ' à adapter  la bonne colonne
  
        If Sheets("Feuil1").Cells(lig, 1).Value = Date Then  ' à adapter  la bonne colonne
            monMotif = Sheets("Feuil1").Cells(lig, 2).Value  ' à adapter  la bonne colonne
            lemontant = Sheets("Feuil1").Cells(lig, 3).Value  ' à adapter  la bonne colonne
             MsgBox "Attention, aujourd 'hui " & " " & Date & " " & monMotif & " " & lemontant, vbCritical
             
             Sheets("Feuil1").Cells(lig, 1).Activate  '' à adapter avec le non de votre feuille et la bonne colonne

             Exit For
        End If
  Next lig
  End If
End Sub


Par contre je n'arrive pas à l'adapter à ma feuille donc si vous pourriez m'aider si vous plaît.

Voici ma feuille concernée pour mieux comprendre : http://d22.e-loader.net/zHh2pzFD7Z.jpg

Je vous remercie de vos réponse d'avance, bonne année à vous ! 

Cordialement.

Configuration: Windows 7 / Firefox 17.0

f894009 · Answer

Bonjour,

Juste remplacer Feuil1 par Emprunt

Private Sub Workbook_Open()
  Dim maDate As Byte
  Dim monMotif As String
  maDate = "5"
  If Day(Date) = maDate Then
  Sheets("Emprunt").Activate      '' à adapter avec le non de votre feuille et la bonne colonne
  For lig = 2 To Range("a65536").End(xlUp).Row  ' à adapter  la bonne colonne
  
        If Sheets("Emprunt").Cells(lig, 1).Value = Date Then  ' à adapter  la bonne colonne
            monMotif = Sheets("Emprunt").Cells(lig, 2).Value  ' à adapter  la bonne colonne
            lemontant = Sheets("Emprunt").Cells(lig, 3).Value  ' à adapter  la bonne colonne
             MsgBox "Attention, aujourd 'hui " & " " & Date & " " & monMotif & " " & lemontant, vbCritical
             
             Sheets("Emprunt").Cells(lig, 1).Activate  '' à adapter avec le non de votre feuille et la bonne colonne

             Exit For
        End If
  Next lig
  End If
End Sub

Bonne suite

f894009 · Answer

Bonjour,

Ouvrir fenetre VBA: Alt +F11
Click sur ThisWorkbook en haut a gauche 

ou sur feuille de calcul: clic sur Developpeur, menu Code, Visual Basic et
Click sur ThisWorkbook en haut a gauche


La macro doit etre dans ThisWorkbook sinon ca ne marchera jamais!!!!

Jiben59 · Answer

Bonsoir, 

il m'affiche ce message là quand je veux l'exécuter : http://d14.e-loader.net/4poliqkKFI.jpg

Mais pourtant les macros sont autorises.. : http://d30.e-loader.net/4JKWGmQ2vc.jpg

Mais petite question, ce macros permet de mettre une ligne pour les 5 de chaque mois mais quelle libeller et quelle somme va t il mettre aussi ? 

Encore merci de votre aide.

f894009 · Answer

Bonjour,

mais quelle libeller et quelle somme va t il mettre aussi ?  Rien, vous connaissez un peu le VBA excel???????

Jiben59 · Answer

Pour information je ne connais pas le VBA excel :s

Mais il fais quoi alors ce macros là ?

f894009 · Answer

Re,

Si la cellule testee =5 affichage par boites a message des valeurs des cellules A,B,C de la ligne trouvee

Question: vous voulez faire quoi de votre fichier excel???

Jiben59 · Answer

Merci pour votre réponse.

Mon fichier excel permet de tenir mes comptes bancaires et les mettent à jours par mes soins. 

Moi je voudrais que quand la cellule A = 5.., j'ai l'exemple de ligne mis sur la photo : http://d22.e-loader.net/TUL5WZm7mY.jpg

Vous m'avez compris ?

f894009 · Answer

Bonjour,

Vous m'avez compris ? Non, toutes les cellules de la colonne A sont au 5 du mois et qu'est ce que vous voulez faire avec du code VBA?????

Jiben59 · Answer

Bonjour.

Je voudrais que ma ligne ce mets tout seul avec le montant qui faut et le libellé aussi ;) Sans que je le fais manuellement.

Bonne soirée, cordialement.

f894009 · Answer

Bonjour,
avec le montant qui faut et le libellé aussiJe vais les pecher ou ces infos??????

Jiben59 · Answer

Bonjour,

Le montant ce trouverai en C et le libellé en B.

Le libellé serait Remboursement de l'emprunt du "Nom du mois".

Avez vous compris ? 

Merci de votre aide.
Cordialement et bon week end.

f894009 · Answer

Bonjour,

Avez vous compris ?  Non, Le Montant ????

Un fichier exemple: ouvrez le, clic sur le bouton bleu 

A vous d'adapter.

https://www.cjoint.com/c/CAmsaXOQnf5

Jiben59 · Answer

Bonjour, 

je vous remercie mais tous mes documents sont déjà fait aussi :o 
Donc comment le réintégré sur le miens si vous plait ? 

Merci de votre aide ! 
Cordialement.

f894009 · Answer

Bonjour,
Si je ne peux pas avoir votre fichier et une explication correcte de ce que vous voulez, je ne peux rien pour vous. Trouvez un personne de votre entourage qui pourrait vous aider.

Bye

Jiben59 · Answer

Bonjour,

bah je vais essayer mais je pense alors le laisser comme sa car je n'ai pas envie de passer un dossier avec des données personnels.

Comment faire pour supprimer les macros que j'ai mis svp ?

Merci de votre aide ! 

Cordialement.

Aide pour adpater un macros à ma feuille

15 réponses

Discussions similaires

Newsletters