Bonjour Oui-Ouin
Dis-moi tu es un "vampire" de fil, c'est la troisième fois que tu t'incrustes dans un fil pour répond a une solution proposée. C'est galère pour te suivre.
La réponse de Oui-Ouin au dernier post est ici Lien supprimé
Ton histoire ce complique, je suppose que le message qui doit être "déroulé" peu changer de texte en fonction de la saisie des données.
Les trois lignes et la procédure OuinOuin ci-dessous sont à mettre dans un module, les trois premières sont des déclarations de variable.
Dim vPos As Byte 'La phrase peut contenir 255 caractères
Public vPhrase As String 'variable contenant la phrase brute
Public vNow 'heure du prochain déroulé
Public Sub OuinOuin()
Dim vPhraseCorrigee As String 'phrase contenant la valeur de la cellule
vNow = Now + TimeValue("00:00:02") 'Intervalle d'affichage est de 2 secondes 'Il faut passer par une variable pour permettre l'arrêt dans le thisworkbook
Application.OnTime vNow, "Eclairage"
vPhraseCorrigee = WorksheetFunction.Substitute(vPhrase, "§", Worksheets("récap fb").Range("C59"))
If vPos = Len(vPhraseCorrigee) Then
vPos = 0
End If
vPos = vPos + 1
Worksheets("Feuil1").Range("A1") = Mid(vPhraseCorrigee, Len(vPhraseCorrigee) + 1 - vPos, vPos) & Mid(vPhraseCorrigee, 1, Len(vPhraseCorrigee) - vPos)
End Sub
Pour quelle la procédure OuinOuin puisse ce lancer automatiquement à chaque ouverture du fichier, il faut l'indiquer dans la procédure Workbook_Open(), (double clique sur le ThisWorkbook de ton classeur dans la fenêtre des projets)
Private Sub Workbook_Open()
vPhrase = "XLD le § forum sur Excel " 'il faut mettre 1 espace à la fin de la phrase
OuinOuin
End Sub
Il est impératif d'arrêter la procédure OuinOuin, avant la fermeture du fichier, sinon, VBA va réouvrir le fichier pour exécuter la procédure OuinOuin.
Pour arrêter la répétition de la procédure OuinOuin, il faut le faire dans l'événement de fermeture du classeur.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime EarliestTime:=vNow, Procedure:="Eclairage", Schedule:=False
End Sub
Voilà
@+Jean-Marie
PS si tu veux d'autres renseignements, post sur ce même fil
