Sujet Précédent Sujet Suivant

Espace pile insuffisant

Résolu/Fermé
JCB40 Messages postés 2708 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 18 mars 2023 - Modifié le 17 mars 2020 à 18:55
JCB40 Messages postés 2708 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 18 mars 2023 - 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


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 762
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
1
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 762
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



Cordialement
Patrice

Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.
1
JCB40 Messages postés 2708 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 18 mars 2023 460
18 mars 2020 à 11:18
Bonjour Patrice,
Merci effectivement beaucoup plus simple.
Bonne journée
0
JCB40 Messages postés 2708 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 18 mars 2023 460
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
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 762 > JCB40 Messages postés 2708 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 18 mars 2023
Modifié le 18 mars 2020 à 11:38
Oups ..
En 9 c'est End Sub (au lieu de End If)
0
JCB40 Messages postés 2708 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 18 mars 2023 460 > 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
0
Réponse 3 / 4
JCB40 Messages postés 2708 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 18 mars 2023 460
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


0
Réponse 4 / 4
JCB40 Messages postés 2708 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 18 mars 2023 460
Modifié le 18 mars 2020 à 11:37
J'ai trouvé il faut supprimer le End If et mettre End Sub

Crdlt

0