Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

espace pile insuffisant sur excel 2007 mais pas sur excel 2010

  • Initiateur de la discussion Initiateur de la discussion aje17
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

aje17

XLDnaute Nouveau
espace pile insuffisant sur excel 2007 mais pas sur excel 2010

bonjour
voici mon souci ,j'ai un programme qui fonctione sur excel 2010 mais pas sur excel 2007,je me tire les cheveux
il me marque "espace de pile insuffisant" erreur d'execution '28'
je vous envoie ma maco

Sub datejour()
Dim PlageActive As Range
Dim FeuilleActive As Worksheet
Set FeuilleActive = ActiveSheet
Set PlageActive = ActiveCell
If Range("n1") = 1 Then
Range("b1").Select
ActiveCell.FormulaR1C1 = Date
End If
Range("b1").Select
If Range("n1") = 0 Then
ActiveCell.FormulaR1C1 = Date - 1
End If
FeuilleActive.Activate
PlageActive.Activate

Application.OnTime Now + TimeValue("00:10:10"), "datejour"

End Sub

si quelqu'un pourrait m'aider ça m'enleverais une grosse épine du pied
merci encore
 
Re : espace pile insuffisant sur excel 2007 mais pas sur excel 2010

Bonjour à tous

aje17[highlight] [Bienvenue sur le forum][/code]

EDITION: En me relisant, j'opte plutôt pour cette écriture
Code:
Sub dateduJourTer()
If ActiveCell.Row > 1 Then ActiveCell = Date + (Range("n1") = 0)
End Sub

Je me suis permis de réécrire ta macro ainsi
Code:
Sub datejourBis()
Select Case Range("n1")
Case 1
Range("b1") = Date
Case 0
Range("b1") = Date - 1
End Select
End Sub

PS: Pourquoi tu utilises ceci : Application.OnTime Now + TimeValue("00:10:10"), "datejour" ?
 
Dernière édition:
Re : espace pile insuffisant sur excel 2007 mais pas sur excel 2010

merci pour ta reponse
je vais essayer ca ce soir au boulot car ca beug au taf mais pas sur mon pc
j'utilise Application.OnTime Now + TimeValue("00:10:10"), "datejour" car j'ai besoin que la macro se mette a jour toutes les 10 minutes
car je fait les 3*8 et que les journée ce finissent a 5h00 du matin et pas a 0h00
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
11
Affichages
784
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
872
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…