Démarrage d'une macro dans ThisWorkbook

[Jelf]

Bonjour à toutes et à tous les Excelnautes.

J'ai créé une macro dans ThisWorkbook, mais il doit me manquer un petit quelque chose car elle ne se lance pas. Si une Ame charitable pouvait me dire ce qu'il manque je lui en serai grès.

Merci d'avance.

Jelf

Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
Sub Textgrossis()
For I = 1 To 60
Range("D24:L24").Select
Selection.Font.Size = 1
Sleep (10)
DoEvents
Next I
End Sub

 

[dixit]

Re : Démarrage d'une macro dans ThisWorkbook

bonjour,
cette sub est vide alors il ne peut rien se passer, mais est-ce le problème ?
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
kénavo

 

[Catrice]

Re : Démarrage d'une macro dans ThisWorkbook

Bonjour,

C'est normal, il y a rien dedans 🙂

Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
Sub Textgrossis()
For I = 1 To 60
Range("D24:L24").Select
Selection.Font.Size = 1
Sleep (10)
DoEvents
Next I
End Sub

Peut etre comme ça :

Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Private Sub Worksheet_Change(ByVal Target As Range)
For I = 1 To 60
Range("D24:L24").Select
Selection.Font.Size = 1
Sleep (10)
DoEvents
Next I
End Sub

EDIT : Bonjour Dixit, plus rapide ...

 

[dixit]

Re : Démarrage d'une macro dans ThisWorkbook

bonjour à tous,
une remarque complémentaire : il me semble que Worksheet_Change est à implanter dans la feuille en Worksheet et non en Thisworkbook.
bye

 

[Jelf]

Re : Démarrage d'une macro dans ThisWorkbook

Bonjour Catrice, bonjour dixit.

J'ai essayé la solution de Catrice, malheureusement ça ne marche pas.
Je voudrais savoir si il ne manquait pas une ligne précisant l'ouvertre de mon fichier du genre "Open. Workbooks"?, car je voudrais que la macro se lance à l'ouverture du fichier.

Si vous avez une idée précise, elle sera la bienvenue.

Cordialement
Jelf

 

[dixit]

Re : Démarrage d'une macro dans ThisWorkbook

re,
si la macro doit être lancée en auto à l'ouverture il faut bien sûr qu'elle soit dans Thisworkbook
Private Sub Workbook_Open()

End Sub
mais je ne comprends toujours pas pourquoi cette partie est vide :
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
qui d'ailleurs n'a rien à voir avec Workbook_Open
pour moi, tout cela n'est pas clair.
bye

 

[Dan]

Re : Démarrage d'une macro dans ThisWorkbook

Bonjour,

essaie ceci :

dans THISWORKBOOK : tu mets cette macro -->

 Private Sub Workbook_Open()
Call textgrossi
End Sub

dans un module : tu mets cette macro -->

 Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Sub textgrossi()
Dim i As Byte
For i = 1 To 60
Sheets("feuille").Range("D24:L24").Font.Size = 1
Sleep (10)
DoEvents
Next i
End Sub

- Remplace "feuille" par le nom de la feuille où se trouve les données D24:L24.
- Enregistre ton fichier et ferme le.

Juste une remarque, je ne vois pas à quoi sert le i = 1 to 60 ? Tu peux expliquer là ?

A te lire

Dan

 

[Jelf]

Re : Démarrage d'une macro dans ThisWorkbook

Rebonjour à tous, je vous remercie de vous êtes donnés tout se mal pour m'aider. Pour Dan le "i = 1 to 60" si j'ai bien tout compris, donne le gossissement du text. Maintenant cette définition n'angage que moi, je suis loin d'être un pro.

Merci pour toutes vos lumières.

Cordialement
Jelf

 

[Dan]

Re : Démarrage d'une macro dans ThisWorkbook

Re,

La variable i est utilisée pour faire une boucle et ne sert à rien si ton but est de mettre une taille de police sur la plage D24 à L24. Est-ce bien cela que tu veux faire ?

PAr contre, le 1 devrait passer au moins à 10 si tu veux voir encore queelque chose sur ta feuille.

Explique ce que tu veux faire afin d'adapter ta macro au mieux.

A te lire

Dan