Espace pile insuffisant

Résolu

JCB40 Messages postés 3012 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3012 Date d'inscription Statut Membre Dernière intervention - 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 html - Astuces et Solutions

4 réponses

Réponse 1 / 4

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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 3012 Date d'inscription Statut Membre Dernière intervention 463

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

JCB40 Messages postés 3012 Date d'inscription Statut Membre Dernière intervention 463

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

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780 > JCB40 Messages postés 3012 Date d'inscription Statut Membre Dernière intervention

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

JCB40 Messages postés 3012 Date d'inscription Statut Membre Dernière intervention 463 > Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention

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

Réponse 3 / 4

JCB40 Messages postés 3012 Date d'inscription Statut Membre Dernière intervention 463

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 3012 Date d'inscription Statut Membre Dernière intervention 463

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

Crdlt

Discussions similaires

quelle piles mettre dans la wiimote ?

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

ESPACE DISQUE INSUFFISANT A TORT

piles de la manette wii

Piles manetttes de Wii

Votre réponse

Discussions similaires