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 11 nov. 2019 à 18:06
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 - 12 nov. 2019 à 10:34

Bonjour,
J'essaie avec ce code d'aller d'une cellule A4 vers G8 si A4 =0 ou G8 versG13 si G8 =0
Cela fonctionne a moitié puisque j'ai un message qui me dit ( espace pile insuffisant) et le programme se ferme .
Où est mon erreur? J'ai trouvé en rajoutant Application.EnableEvents = False et True à la fin
Maintenant j'aimerais savoir comment limiter ce code a 4 cellules dans la même colonne ?
Avec ce code je ne peux plus aller sur aucune cellule de la feuille
Merci pour votre aide

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A4") = 0 Then
Range("G8").Select
End If

If Range("G8") = 0 Then
Range("G13").Select
End If

End Sub

Configuration: Windows / Firefox 70.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

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
11 nov. 2019 à 17:52

bonjour, merci d'utiliser les balises de code.
je n'ai pas compris ce que tu voulais faire et pourquoi tu utilisais selectionchange
si tu veux que le code ne réagisse que quand tu sélectionnes A4, tu peux faire ainsi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 4 And Target.Column = 1 Then
    If Range("A4") = 0 Then
        Range("G8").Select
    End If
    If Range("G8") = 0 Then
        Range("G13").Select
    End If
End If
End Sub

Réponse 2 / 4

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
11 nov. 2019 à 18:02

Bonsoir
Merci pour ton aide
Ce que je souhaite avoir comme code
Si A4=0 le curseur va sur G8 si G8=0 le curseur va sur G13
Crdlt

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
11 nov. 2019 à 18:24

tu n'expliques pas le plus important: à quel moment le curseur doit-il bouger?

Réponse 3 / 4

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 331
11 nov. 2019 à 18:16

Juste pour expliquer l'erreur de base :
Quand la sélection change, tu changes la sélection, donc tu relance un événement de changement de la sélection, d'où ton erreur de base.

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
11 nov. 2019 à 21:43

Bonsoir
Sur mon fichier réel :
Si K40=0 K34 Si K34=0 K28 Si K28=0 K22
Le curseur se place sur la cellule qui correspond en cliquant sur n'importe quelle cellule
Merci pour votre aide

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
12 nov. 2019 à 10:34

il suffit alors d'adapter le code que tu as présenté au départ. évidemment, tant que un des quatre est à zéro, tu ne pourras plus sélectionner une autre cellule.

Discussions similaires

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

ESPACE DISQUE INSUFFISANT A TORT

Stockage disponible insuffisant

comment donner les droits sur fichier partage

Espace en HTML

Discussions similaires

Newsletters