Erreur dans ma VBA
Résolu
jack2125
Messages postés
457
Date d'inscription
Statut
Membre
Dernière intervention
-
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
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
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 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Dans la table des matières du document à télécharger, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
- J'aime par erreur facebook notification - Forum Facebook
2 réponses
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...
