Espace pile insuffisant
Résolu
JCB40
Messages postés
3070
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3070 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3070 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
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
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
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
A voir également:
- Espace pile insuffisant
- Pile carte mere - Guide
- Gmail espace de stockage insuffisant - Guide
- Espace insécable word - Guide
- Espace de stockage - Guide
- Pile qui chauffe que faire - Forum Mobile
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
