Placement d'une Macro pour Mise en Forme, apres un update...
Résolu
bertie312
Messages postés
17
Statut
Membre
-
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
On m'a aidé a créer un tableau Excel pour lister mes collections, qui ce met a jour à l'ouverture, cependant j'ai du mal a faire appeler ma macro de mise en forme que voici :
Option Explicit
Sub Dollar()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Worksheets
Ws.Select
Columns("F:H").Select
Selection.Replace What:="$", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next Ws
End Sub
Sur ce fichier joint, en module 2 ce trouve la macro.. il faudrait que je la place sur thisworksheet mais n'y parviens pas ??
https://www.cjoint.com/c/CGerftuJlzt
Vpus auriez une idée pour proceder ??
MErci, Bertrand
On m'a aidé a créer un tableau Excel pour lister mes collections, qui ce met a jour à l'ouverture, cependant j'ai du mal a faire appeler ma macro de mise en forme que voici :
Option Explicit
Sub Dollar()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Worksheets
Ws.Select
Columns("F:H").Select
Selection.Replace What:="$", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next Ws
End Sub
Sur ce fichier joint, en module 2 ce trouve la macro.. il faudrait que je la place sur thisworksheet mais n'y parviens pas ??
https://www.cjoint.com/c/CGerftuJlzt
Vpus auriez une idée pour proceder ??
MErci, Bertrand
3 réponses
-
Bonjour,
Il faut copier la macro et ensuite clic sur le module de feuille correspondante par exemple sur [Feuil6 (M13)] et coller dans la fenêtre à droite.
-
Bonsoir,
Je vois les choses autrement.
Si le but est que ça se lance à l'ouverture, dans ThisWorkbook :Private Sub Workbook_Open() Dollar End Sub
Mais vu que tu as des requêtes, tu n'auras même pas eu un semblant de début de réponse à la 1ère requête que ta macro sera déjà finie.
A part mettre un bouton et la lancer quand les mises à jours sont finies, je ne vois pas.
Je vois que tu postes sur plusieurs forums. Evite de poser la même question sans avoir attendu 48h sans réponse. Comme en général on n'aime pas trop travailler pour rien on évite ces demandeurs. C'est juste un conseil.
eric
-
Merci, je vais opter alors pour un bouton "refresh" car effectivement dans Thisworkbook ca marche pas top top.
Merci Eric :)
