Erreur dans ma VBA
Résolu/Fermé
jack2125
Messages postés
450
Date d'inscription
jeudi 5 septembre 2019
Statut
Membre
Dernière intervention
21 février 2025
-
24 févr. 2020 à 09:26
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 24 févr. 2020 à 09:45
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 24 févr. 2020 à 09:45
A voir également:
- Erreur dans ma VBA
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 1001 outlook - Accueil - Bureautique
- Erreur 5000 france tv - Forum iPhone
- Erreur 1004 vba ✓ - Forum Excel
2 réponses
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
24 févr. 2020 à 09:45
24 févr. 2020 à 09:45
Bonjour Jack, bonjour le forum,
Ta macro n'étant pas l'événementielle Change les : Application.EnableEvents = False/True sont inutiles...
Essaie comme ça : Sub aujourdhui() Dim r As Range Dim c As Range Set r = Range("A10:A28") For Each c In r.Cells If c.Font.Bold Then c.Offset(0, 69) = Format(Date, "dddd dd mmmm yyyy") End If Next c End Sub
Ta macro n'étant pas l'événementielle Change les : Application.EnableEvents = False/True sont inutiles...
jack2125
Messages postés
450
Date d'inscription
jeudi 5 septembre 2019
Statut
Membre
Dernière intervention
21 février 2025
24 févr. 2020 à 09:41
24 févr. 2020 à 09:41
Sub aujourdhui()
Dim r As Range
Dim c As Range
Set r = Range("A10:A28")
For Each c In r.Cells
If c.Font.Bold Then
Application.EnableEvents = False
c.Offset(0, 69) = "=TODAY()"
Application.EnableEvents = True
End If
Next c
End Sub
voilà J'ai trouvé
Dim r As Range
Dim c As Range
Set r = Range("A10:A28")
For Each c In r.Cells
If c.Font.Bold Then
Application.EnableEvents = False
c.Offset(0, 69) = "=TODAY()"
Application.EnableEvents = True
End If
Next c
End Sub
voilà J'ai trouvé