Espace pile insuffisant
Résolu
JCB40
Messages postés
3464
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3464 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3464 Date d'inscription Statut Membre Dernière intervention -
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
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
- Pile bios empêche démarrage pc ✓ - Forum Matériel & Système
4 réponses
Bonjour,
Attention à la récursivité !
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
Bonjour,
Par exemple EDIT : ligne 9 corrigée :
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
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
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
