Espace pile insuffisant

Résolu/Fermé

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - Modifié le 17 mars 2020 à 18:55
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 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
Espace insécable word - Guide
Pile bios - Guide
Comment liberer de l'espace sur gmail - Guide
Debit insuffisant free ✓ - Forum Freebox
Espace de stockage google - Guide

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 775
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 775
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 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
18 mars 2020 à 11:18

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

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
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 775 > JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024
Modifié le 18 mars 2020 à 11:38

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

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461 > 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 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
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 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
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

Espace disque insuffisant alors qu'il y a de la place

Stockage disponible insuffisant

comment donner les droits sur fichier partage

Espace en HTML

Discussions similaires

Newsletters