Arrêter un l'exécution d'un code

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion ascal44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

ascal44

XLDnaute Occasionnel
Bonsoir, j'ai un code qui tourne en boucle.
Comment l'arrêter à la fin de l'exécution de ce code ?

Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False

If Target.Address = "$C$6" Then
  Sheets("ROSE").Range("C6") = Target.Value
  Sheets("BLEU").Range("C6") = Target.Value
  Sheets("JAUNE").Range("C6") = Target.Value
End If
If Target.Address = "$C$7" Then
  Sheets("ROSE").Range("C7") = Target.Value
  Sheets("BLEU").Range("C7") = Target.Value
  Sheets("JAUNE").Range("C7") = Target.Value
End If
If Target.Address = "$C$8" Then
  Sheets("ROSE").Range("C8") = Target.Value
  Sheets("BLEU").Range("C8") = Target.Value
  Sheets("JAUNE").Range("C8") = Target.Value
End If
If Target.Address = "$C$9" Then
  Sheets("ROSE").Range("C9") = Target.Value
  Sheets("BLEU").Range("C9") = Target.Value
  Sheets("JAUNE").Range("C9") = Target.Value
End If
If Target.Address = "$C$10" Then
  Sheets("ROSE").Range("C10") = Target.Value
  Sheets("BLEU").Range("C10") = Target.Value
  Sheets("JAUNE").Range("C10") = Target.Value
End If
If Target.Address = "$C$11" Then
  Sheets("ROSE").Range("C11") = Target.Value
  Sheets("BLEU").Range("C11") = Target.Value
  Sheets("JAUNE").Range("C11") = Target.Value
End If
If Target.Address = "$C$12" Then
  Sheets("ROSE").Range("C12") = Target.Value
  Sheets("BLEU").Range("C12") = Target.Value
  Sheets("JAUNE").Range("C12") = Target.Value
End If
If Target.Address = "$C$13" Then
  Sheets("ROSE").Range("C13") = Target.Value
  Sheets("BLEU").Range("C13") = Target.Value
  Sheets("JAUNE").Range("C13") = Target.Value
End If
If Target.Address = "$C$14" Then
  Sheets("ROSE").Range("C14") = Target.Value
  Sheets("BLEU").Range("C14") = Target.Value
  Sheets("JAUNE").Range("C14") = Target.Value
End If
If Target.Address = "$C$15" Then
  Sheets("ROSE").Range("C15") = Target.Value
  Sheets("BLEU").Range("C15") = Target.Value
  Sheets("JAUNE").Range("C15") = Target.Value
End If
If Target.Address = "$C$16" Then
  Sheets("ROSE").Range("C16") = Target.Value
  Sheets("BLEU").Range("C16") = Target.Value
  Sheets("JAUNE").Range("C16") = Target.Value
End If
If Target.Address = "$C$17" Then
  Sheets("ROSE").Range("C17") = Target.Value
  Sheets("BLEU").Range("C17") = Target.Value
  Sheets("JAUNE").Range("C17") = Target.Value
End If
If Target.Address = "$C$18" Then
  Sheets("ROSE").Range("C18") = Target.Value
  Sheets("BLEU").Range("C18") = Target.Value
  Sheets("JAUNE").Range("C18") = Target.Value
End If
If Target.Address = "$C$19" Then
  Sheets("ROSE").Range("C19") = Target.Value
  Sheets("BLEU").Range("C19") = Target.Value
  Sheets("JAUNE").Range("C19") = Target.Value
End If
If Target.Address = "$C$20" Then
  Sheets("ROSE").Range("C20") = Target.Value
  Sheets("BLEU").Range("C20") = Target.Value
  Sheets("JAUNE").Range("C20") = Target.Value
End If
If Target.Address = "$C$21" Then
  Sheets("ROSE").Range("C21") = Target.Value
  Sheets("BLEU").Range("C21") = Target.Value
  Sheets("JAUNE").Range("C21") = Target.Value
End If
If Target.Address = "$C$22" Then
  Sheets("ROSE").Range("C22") = Target.Value
  Sheets("BLEU").Range("C22") = Target.Value
  Sheets("JAUNE").Range("C22") = Target.Value
End If
If Target.Address = "$C$23" Then
  Sheets("ROSE").Range("C23") = Target.Value
  Sheets("BLEU").Range("C23") = Target.Value
  Sheets("JAUNE").Range("C23") = Target.Value
End If
If Target.Address = "$C$24" Then
  Sheets("ROSE").Range("C24") = Target.Value
  Sheets("BLEU").Range("C24") = Target.Value
  Sheets("JAUNE").Range("C24") = Target.Value
End If
If Target.Address = "$C$26" Then
  Sheets("ROSE").Range("C26") = Target.Value
  Sheets("BLEU").Range("C26") = Target.Value
  Sheets("JAUNE").Range("C26") = Target.Value
End If


If Target.Address = "$H$6" Then
  Sheets("ROSE").Range("H6") = Target.Value
  Sheets("BLEU").Range("H6") = Target.Value
  Sheets("JAUNE").Range("H6") = Target.Value
End If
If Target.Address = "$H$7" Then
  Sheets("ROSE").Range("H7") = Target.Value
  Sheets("BLEU").Range("H7") = Target.Value
  Sheets("JAUNE").Range("H7") = Target.Value
End If
If Target.Address = "$H$8" Then
  Sheets("ROSE").Range("H8") = Target.Value
  Sheets("BLEU").Range("H8") = Target.Value
  Sheets("JAUNE").Range("H8") = Target.Value
End If
If Target.Address = "$H$9" Then
  Sheets("ROSE").Range("H9") = Target.Value
  Sheets("BLEU").Range("H9") = Target.Value
  Sheets("JAUNE").Range("H9") = Target.Value
End If
If Target.Address = "$H$10" Then
  Sheets("ROSE").Range("H10") = Target.Value
  Sheets("BLEU").Range("H10") = Target.Value
  Sheets("JAUNE").Range("H10") = Target.Value
End If
If Target.Address = "$H$11" Then
  Sheets("ROSE").Range("H11") = Target.Value
  Sheets("BLEU").Range("H11") = Target.Value
  Sheets("JAUNE").Range("H11") = Target.Value
End If
If Target.Address = "$H$12" Then
  Sheets("ROSE").Range("H12") = Target.Value
  Sheets("BLEU").Range("H12") = Target.Value
  Sheets("JAUNE").Range("H12") = Target.Value
End If
If Target.Address = "$H$13" Then
  Sheets("ROSE").Range("H13") = Target.Value
  Sheets("BLEU").Range("H13") = Target.Value
  Sheets("JAUNE").Range("H13") = Target.Value
End If
Application.ScreenUpdating = True
End Sub

Merci pour vos conseils
 
Trier par date Trier par votes
Re : Arrêter un l'exécution d'un code

Bonjou

c'est normal, tu untilise l'interruption Worksheet_change dans le module workbook alors des qu'une cellule change quelquesoit la feuille, il relance cette interruption

tu teste $C$6 et tu mets à jour la meme cellule (quelque soit la feuille j'ai dit) or target sera toujours la cellule C6 et ca bouclera

il te faut mettre ton code dans la feuille souhaitée, si c'est une feuille Rose, Bleu, jaune, ca recommencera
donc au debut de la macro :
Code: 
Application.enableevents = false
et en fin de macro
Code: 
Application.enableevents = true
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 Supprimer ligne selon contenu cellule (résolu)
Réponses
7
Affichages
322
job75
job75
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
635
sebastien176
S
M
  • Question Question
Microsoft 365 modifier un code
Réponses
1
Affichages
504
Dranreb
Dranreb
G
  • Résolu(e)
XL 2010 Obliger la validation d'un bouton d'option.
Réponses
8
Affichages
508
gillesda
G
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
841
Zonmé
Z
yojema
  • Question Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
604
Dranreb
Dranreb
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
828
M@xu3L
M
H
  • Question Question
Microsoft 365 Besoin aide : Erreur code macro . Problème est résolu
Réponses
7
Affichages
1 K
heart clean
H
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
631
tactic6
tactic6
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
S
  • Question Question
XL 2019 Problème dans un code vba
Réponses
2
Affichages
648
snoopy07
S
VBA_dev_Anne_Marie
  • Résolu(e)
Microsoft 365 Arrêter l'exécution d'un programme
Réponses
6
Affichages
690
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
L
  • Résolu(e)
Microsoft 365 Ajouter une ligne dans un tableau structuré
Réponses
8
Affichages
3 K
Lune999
L
I
  • Question Question
XL 2016 Mon code VBA me renvoi une erreur
Réponses
6
Affichages
867
INFINITY100
I
D
  • Question Question
XL 2010 Explication code
Réponses
3
Affichages
599
sylvanu
sylvanu
S
  • Question Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
615
souhaib ad
S
chaelie2015
  • Question Question
Autres Optimiser UN CODE très lent
2
Réponses
24
Affichages
1 K
Deadpool_CC
Deadpool_CC
R
  • Résolu(e)
XL 2016 Un petit coup de main pour un code VBA
Réponses
11
Affichages
987
ReneDav14000
R
chinel
  • Question Question
XL 2019 soucis avec un code VBA pour les doublons
2
Réponses
20
Affichages
1 K
chinel
chinel
J
  • Question Question
XL 2016 [RESOLU] Avis Code VBA excel
Réponses
9
Affichages
1 K
jabenj
J
Retour