Erreur dans ma VBA

Résolu/Fermé

jack2125 Messages postés 332 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 23 avril 2024 - 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

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

A voir également:

Erreur dans ma VBA
Erreur 0x80070643 - Guide
Iptv erreur de lecture - Forum TV & Vidéo
Erreur 1004 vba ✓ - Forum Excel
Vba erreur automation référence future non valide ✓ - Forum Word
Vba range avec variable ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

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

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

Réponse 2 / 2

jack2125 Messages postés 332 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 23 avril 2024
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é

Discussions similaires

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

"L'indice n'appartient à la sélection" + VBA

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Discussions similaires

Newsletters