Espace pile insuffisant

Résolu/Fermé

JCB40 Messages postés 2980 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 9 mars 2025 - Modifié le 17 mars 2020 à 18:55
JCB40 Messages postés 2980 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 9 mars 2025 - 18 mars 2020 à 11:44

Bonjour,

Avec le code ci-dessous j'ai un message qui s'affiche( Espace pile insuffisant)
ou se trouve l’erreur
Avec mes remerciements pour votre aide

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B2") = "aa" Then
Range("G2") = "bien"
End If
End Sub

Configuration: Windows / Firefox 74.0

A voir également:

Espace pile insuffisant
Pile carte mere - Guide
Espace insécable - Guide
Gmail espace de stockage insuffisant - Guide
Espace stockage google - Guide
Espace insuffisant alors que j'ai de la place - Forum Windows 7

4 réponses

Réponse 1 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
17 mars 2020 à 18:53

Bonjour,

Attention à la récursivité !

Private Sub Worksheet_Change(ByVal Target As Range)
  If Range("B2") = "aa" Then
    Application.EnableEvents = False
    Range("G2") = "bien"
    Application.EnableEvents = True
  End If
End Sub

Réponse 2 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
Modifié le 18 mars 2020 à 12:09

Bonjour,

Par exemple EDIT : ligne 9 corrigée :

Private Sub Worksheet_Change(ByVal Target As Range)

  Application.EnableEvents = False
  If Range("A1") = "AA" Then Range("G2") = "bien"
  If Range("B1") = "BB" Then Range("G3") = "trés bien"
  If Range("C1") = "CC" Then Range("G4") = "Félicitations"
  Application.EnableEvents = True

End Sub

JCB40 Messages postés 2980 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 9 mars 2025 464
18 mars 2020 à 11:18

Bonjour Patrice,
Merci effectivement beaucoup plus simple.
Bonne journée

JCB40 Messages postés 2980 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 9 mars 2025 464
18 mars 2020 à 11:24

Je viens de faire un essai avec ton code j'ai une erreur de compilation End If sans bloc If

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779 > JCB40 Messages postés 2980 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 9 mars 2025
Modifié le 18 mars 2020 à 11:38

Oups ..
En 9 c'est End Sub (au lieu de End If)

JCB40 Messages postés 2980 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 9 mars 2025 464 > Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023
18 mars 2020 à 11:44

J'avais trouvé l'erreur voir post 6
Merci

Réponse 3 / 4

JCB40 Messages postés 2980 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 9 mars 2025 464
Modifié le 18 mars 2020 à 11:05

Bonjour
Merci pour ta solution cela fonctionne
pour plusieurs conditions comment pratiquer?
Le code que j'ai créé surement a simplifier

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "AA" Then
Application.EnableEvents = False
Range("G2") = "bien"
Application.EnableEvents = True
End If

If Range("B1") = "BB" Then
Application.EnableEvents = False
Range("G3") = "trés bien"
Application.EnableEvents = True
End If

If Range("C1") = "CC" Then
Application.EnableEvents = True
Range("G4") = "Félicitations"
Application.EnableEvents = True
End If

End Sub

Réponse 4 / 4

JCB40 Messages postés 2980 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 9 mars 2025 464
Modifié le 18 mars 2020 à 11:37

J'ai trouvé il faut supprimer le End If et mettre End Sub

Crdlt

Discussions similaires

ESPACE DISQUE INSUFFISANT A TORT

Mon PC ne démarre pas; écran noir: pensez à la pile

combien d'espace memoire occupe un entier ...

"Mémoire insuffisante" alors que ma SD est vide !

quelle piles mettre dans la wiimote ?