Erreur dans ma VBA

[Résolu/Fermé]
Signaler
Messages postés
195
Date d'inscription
jeudi 5 septembre 2019
Statut
Membre
Dernière intervention
11 février 2021
-
Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
-
bonjour a tous
qui pourrait m'aider à trouver mon erreur
Ca ne marque pas la date

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)= &TEXTE(AUJOURDHUI();"jjjj jj mmmm aaaa")&"
Application.EnableEvents = True
End If
Next c
End Sub

Si A10:A128 sont gras offset 0,69 et là c'est le problème!
vous êtes super!
merci à tous

2 réponses

Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
154
Bonjour Jack, bonjour le forum,

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...
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 42674 internautes nous ont dit merci ce mois-ci

Messages postés
195
Date d'inscription
jeudi 5 septembre 2019
Statut
Membre
Dernière intervention
11 février 2021

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é