Excel défilement automatique
Résolu/Fermé
sofienexcel
Messages postés
70
Date d'inscription
vendredi 2 janvier 2015
Statut
Membre
Dernière intervention
20 février 2021
-
19 mars 2015 à 15:37
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 24 mars 2015 à 11:25
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 24 mars 2015 à 11:25
A voir également:
- Défilement automatique excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Message automatique thunderbird - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
4 réponses
lanetmel
Messages postés
200
Date d'inscription
mercredi 24 août 2011
Statut
Membre
Dernière intervention
15 mars 2018
4
19 mars 2015 à 15:54
19 mars 2015 à 15:54
Tu n'as pas nécessairement à le mettre sur un bouton. Je ne suis pas experte mais si tu mets le code dans ThisWorkbook
sub Workbook_open ()
ton code
end sub
ça se fera automatiquement à l'ouverture
sub Workbook_open ()
ton code
end sub
ça se fera automatiquement à l'ouverture
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
19 mars 2015 à 15:55
19 mars 2015 à 15:55
Bonjour,
Mettre ceci dans un module:
https://www.excel-downloads.com/threads/defiler-un-petit-texte-dans-une-cellule.98252/
Mettre ceci dans un module:
Sub auto_open()
t = "ceci est texte défilant dans une cellule......"
n = 0
Do While n < 500
t = Right(t, 1) & Left(t, Len(t) - 1)
[A1] = t
w = 0.2
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop
End Sub
https://www.excel-downloads.com/threads/defiler-un-petit-texte-dans-une-cellule.98252/
sofienexcel
Messages postés
70
Date d'inscription
vendredi 2 janvier 2015
Statut
Membre
Dernière intervention
20 février 2021
19 mars 2015 à 16:27
19 mars 2015 à 16:27
Merci, mais ca n'a pas fonctionné à l'ouverture, je dois rafraichir le code avec f5 pour que ca fonctionne, il est à noter que ma feuille est protegée.
Merci cs le Pivert
Merci cs le Pivert
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
19 mars 2015 à 18:27
19 mars 2015 à 18:27
Si ta feuille est protégée, il est normal que cela ne fonctionne pas. Déprotège ta feuille au début de la macro auto_open et ensuite à la fin de la macro auto_open protège la à nouveau.
sofienexcel
Messages postés
70
Date d'inscription
vendredi 2 janvier 2015
Statut
Membre
Dernière intervention
20 février 2021
23 mars 2015 à 09:00
23 mars 2015 à 09:00
Merci mais pouvez vous m'aider comment ajouter la protection / déprotection dans un tel code
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
23 mars 2015 à 10:29
23 mars 2015 à 10:29
J'attendais ta réponse!
Voilà:
Voilà:
Option Explicit
Sub auto_open()
Dim t, n, w, temp
Déprotégertouslesongletsenmêmetemps
t = "ceci est texte défilant dans une cellule......"
n = 0
Do While n < 50 'durée a adapter
t = Right(t, 1) & Left(t, Len(t) - 1)
[A1] = t
w = 0.2
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop
Protegertouslesongletsenmêmetemps
End Sub
Sub Protegertouslesongletsenmêmetemps()
' Protection automatique de toutes les feuilles d'un classeur
Dim Motdepasse As String
Dim wSheet As Worksheet
'Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "*****")
Motdepasse = "*****" 'mot de passe à adapter
If Motdepasse = "" Then Exit Sub
For Each wSheet In Worksheets
wSheet.Protect Password:=Motdepasse, _
UserInterFaceOnly:=True, _
DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True
Next wSheet
End Sub
Sub Déprotégertouslesongletsenmêmetemps()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim wSheet As Worksheet
Dim Motdepasse As String
'Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de toutes les feuilles", "*****")
Motdepasse = "*****" 'mot de passe à adapter
If Motdepasse = "" Then Exit Sub
On Error Resume Next
For Each wSheet In Worksheets
wSheet.Unprotect Password:=Motdepasse
Next wSheet
End Sub
sofienexcel
Messages postés
70
Date d'inscription
vendredi 2 janvier 2015
Statut
Membre
Dernière intervention
20 février 2021
24 mars 2015 à 10:55
24 mars 2015 à 10:55
Merci Infiniment le Pivert, mais le code ne fonctionne qu'après éxécution et non à l'ouverture. les macros sont activés: voici le code que j'ai mis après adaptation:
Sub auto_open()
Application.DisplayFullScreen = True
Dim t, n, w, temp
Déprotégertouslesongletsenmêmetemps
t = "...Bulletin de Suivi 2015..."
n = 0
Do While n < 50 'durée a adapter
t = Right(t, 1) & Left(t, Len(t) - 1)
[D5] = t
w = 0.2
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop
Protegertouslesongletsenmêmetemps
End Sub
Sub Protegertouslesongletsenmêmetemps()
' Protection automatique de toutes les feuilles d'un classeur
Dim Motdepasse As String
Dim wSheet As Worksheet
'Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "aaa")
Motdepasse = "aaa" 'mot de passe à adapter
If Motdepasse = "" Then Exit Sub
For Each wSheet In Worksheets
wSheet.Protect Password:=Motdepasse, _
UserInterFaceOnly:=True, _
DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True
Next wSheet
End Sub
Sub Déprotégertouslesongletsenmêmetemps()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim wSheet As Worksheet
Dim Motdepasse As String
'Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de toutes les feuilles", "aaa")
Motdepasse = "aaa" 'mot de passe à adapter
If Motdepasse = "" Then Exit Sub
On Error Resume Next
For Each wSheet In Worksheets
wSheet.Unprotect Password:=Motdepasse
Next wSheet
End Sub
Sub auto_open()
Application.DisplayFullScreen = True
Dim t, n, w, temp
Déprotégertouslesongletsenmêmetemps
t = "...Bulletin de Suivi 2015..."
n = 0
Do While n < 50 'durée a adapter
t = Right(t, 1) & Left(t, Len(t) - 1)
[D5] = t
w = 0.2
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop
Protegertouslesongletsenmêmetemps
End Sub
Sub Protegertouslesongletsenmêmetemps()
' Protection automatique de toutes les feuilles d'un classeur
Dim Motdepasse As String
Dim wSheet As Worksheet
'Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "aaa")
Motdepasse = "aaa" 'mot de passe à adapter
If Motdepasse = "" Then Exit Sub
For Each wSheet In Worksheets
wSheet.Protect Password:=Motdepasse, _
UserInterFaceOnly:=True, _
DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True
Next wSheet
End Sub
Sub Déprotégertouslesongletsenmêmetemps()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim wSheet As Worksheet
Dim Motdepasse As String
'Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de toutes les feuilles", "aaa")
Motdepasse = "aaa" 'mot de passe à adapter
If Motdepasse = "" Then Exit Sub
On Error Resume Next
For Each wSheet In Worksheets
wSheet.Unprotect Password:=Motdepasse
Next wSheet
End Sub
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
24 mars 2015 à 11:25
24 mars 2015 à 11:25
Chez moi cela fonctionne à l'ouverture du classeur!
Le principal c'est que ça fonctionne pour toi
Le principal c'est que ça fonctionne pour toi