XL 2016 Problème Exit For

Maxime26 · 10 Octobre 2022

Bonjour a tous ,
j'ai une problématique sur mon bout de code , problématique que je n'arrive pas a résoudre d'où cette appel a l'aide

Je ne comprend pas pourquoi lorsque je mets une condition avec Exit For celle ci n'est pas prise en compte .

Le but est de parcourir la colonne 14 est d'arrêter la boucle si il rencontre une ligne vide cela permettra notamment de ne pas parcourir les ligne de 10 a 300 inutilement

Merci

VB:

Private Sub Worksheet_Change(ByVal Target As Range)


        Dim i As Integer
         Dim j As Integer


 
 
    If (Range("P1")) = "" Then


  
    If Not Intersect(Target, Range("N10:Z200")) Is Nothing Then
  
  
 Range("A10:L240").Interior.ColorIndex = 0

 Range("E10:I240") = ""




For i = 10 To 300
For j = 1 To 150


If Cells(i, 14) = "" Then

Exit For

End If

 If Cells(i, 24) = ("AA") Then
      
     Range(Cells(i, 1), Cells(i, 12)).Interior.Color = RGB(188, 121, 255)
  
       ElseIf Cells(i, 24) = ("BB") Then
  
     Range(Cells(i, 1), Cells(i, 12)).Interior.Color = RGB(248, 203, 173)
  
      ElseIf Cells(i, 12) = ("CC") Then
 
 Range(Cells(i, 1), Cells(i, 12)).Interior.Color = RGB(255, 45, 0)
End If
 


  

 
  If Cells(i, 20) <> Worksheets(2).Cells(j, 2) And Cells(i, 20) <> "" Then
  
     Cells(i, 5) = 7

   Cells(i, 7) = 21
  
    Cells(i, 9) = 21
  

  
End If
 


Next j
Next i

End If

Else
End If

End Sub

dysorthographie · 10 Octobre 2022

Bonjour,
Le existe for concerne la boucle j
Et ça fonctionne sans doute !

Si tu veux quitter également la boucle i il te faut instencier une variable pour indiquer le existe de la boucle i!

Compte Supprimé 979 · 10 Octobre 2022

Bonjour Maxime26

Vous indenteriez votre code correctement, ce serait plus lisible et facile à voir ou se trouve le problème

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Integer
  Dim j As Integer
  If (Range("P1")) = "" Then
    If Not Intersect(Target, Range("N10:Z200")) Is Nothing Then
      Range("A10:L240").Interior.ColorIndex = 0
      Range("E10:I240") = ""
      For i = 10 To 300
        For j = 1 To 150
          If Cells(i, 14) = "" Then Exit For  ' Sortie de la boucle J
          If Cells(i, 24) = ("AA") Then
            Range(Cells(i, 1), Cells(i, 12)).Interior.Color = RGB(188, 121, 255)
          ElseIf Cells(i, 24) = ("BB") Then
            Range(Cells(i, 1), Cells(i, 12)).Interior.Color = RGB(248, 203, 173)
          ElseIf Cells(i, 12) = ("CC") Then
            Range(Cells(i, 1), Cells(i, 12)).Interior.Color = RGB(255, 45, 0)
          End If
          If Cells(i, 20) <> Worksheets(2).Cells(j, 2) And Cells(i, 20) <> "" Then
            Cells(i, 5) = 7
            Cells(i, 7) = 21
            Cells(i, 9) = 21
          End If
        Next j
      Next i
    End If
  End If
End Sub

Dans ce cas avec 2 boucles, c'est "Exit Sub

A+

Edit : bonjour @dysorthographie

xUpsilon · 10 Octobre 2022

Bonjour,

Par pitié, faites attention à l'indentation, pour la lisibilité
Sinon, le Exit For te sort du For dans lequel tu es, sauf que tu as deux For imbriqués l'un dans l'autre, donc il sort de l'un pour retourner dans l'autre.
Ton code devrait ressembler à ça :

VB:

For i = 10 To 300
    If Cells(i, 14) = "" Then
        Exit For
    For j = 1 To 150

Ou sinon si tu veux arrêter la macro tu peux utiliser Exit Sub, qui mettra fin à l'exécution de toute la macro plutôt que juste sortir de la boucle.

Bonne journée,

Edit : Bonjour @dysorthographie , @BrunoM45

patricktoulon · 10 Octobre 2022

bonjour
mais bon sang de bon soir
pourquoi mettre un exit for sur une condition
pourquoi ne pas (faire ou pas faire)avec cette simple condition

VB:

Private Sub Worksheet_Change(ByVal Target As Range)


    Dim i As Integer
    Dim j As Integer
    Dim sortir_de_J As Boolean



    If (Range("P1")) = "" Then



        If Not Intersect(Target, Range("N10:Z200")) Is Nothing Then


            Range("A10:L240").Interior.ColorIndex = 0

            Range("E10:I240") = ""




            For i = 10 To 300
                For j = 1 To 150


                    If Cells(i, 14) <> "" Then

                        If Cells(i, 24) = ("AA") Then

                            Range(Cells(i, 1), Cells(i, 12)).Interior.Color = RGB(188, 121, 255)

                        ElseIf Cells(i, 24) = ("BB") Then

                            Range(Cells(i, 1), Cells(i, 12)).Interior.Color = RGB(248, 203, 173)

                        ElseIf Cells(i, 12) = ("CC") Then

                            Range(Cells(i, 1), Cells(i, 12)).Interior.Color = RGB(255, 45, 0)
                        End If
                        If Cells(i, 20) <> Worksheets(2).Cells(j, 2) And Cells(i, 20) <> "" Then

                            Cells(i, 5) = 7

                            Cells(i, 7) = 21

                            Cells(i, 9) = 21
                        End If
                    End If
                Next j
            Next i
        End If
    Else 'et ce else aussi il sert a quoi  ?????
    End If
End Sub

Compte Supprimé 979 · 11 Octobre 2022

Salut Patrick

Parce que... on n'aime ou pas

patricktoulon à dit:

bonjour
mais bon sang de bon soir
pourquoi mettre un exit for sur une condition
pourquoi ne pas (faire ou pas faire)avec cette simple condition

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    Dim j As Integer
    Dim sortir_de_J As Boolean
    If (Range("P1")) = "" Then
        If Not Intersect(Target, Range("N10:Z200")) Is Nothing Then
            Range("A10:L240").Interior.ColorIndex = 0
            Range("E10:I240") = ""
            For i = 10 To 300
                For j = 1 To 150
                    If Cells(i, 14) <> "" Then
                        If Cells(i, 24) = ("AA") Then
                            Range(Cells(i, 1), Cells(i, 12)).Interior.Color = RGB(188, 121, 255)
                        ElseIf Cells(i, 24) = ("BB") Then
                            Range(Cells(i, 1), Cells(i, 12)).Interior.Color = RGB(248, 203, 173)
                        ElseIf Cells(i, 12) = ("CC") Then
                            Range(Cells(i, 1), Cells(i, 12)).Interior.Color = RGB(255, 45, 0)
                        End If
                        If Cells(i, 20) <> Worksheets(2).Cells(j, 2) And Cells(i, 20) <> "" Then
                            Cells(i, 5) = 7
                            Cells(i, 7) = 21
                            Cells(i, 9) = 21
                        End If
                    End If
                Next j
            Next i
        End If
    Else 'et ce else aussi il sert a quoi  ?????
    End If
End Sub

Chacun sa façon de développer

patricktoulon · 11 Octobre 2022

re
Bonjour bruno
l'exit est radical
utiliser la condition pour l'execution du code (ou pas), te permet de faire du else ou même elseIf et de paramétrer de différente manière

xUpsilon · 11 Octobre 2022

Bonjour,

Après le Exit permet aussi de gagner du temps d'exécution quand tu travailles avec beaucoup de données (ici ce n'est pas forcément nécessaire j'en conviens )

Bonne journée,

dysorthographie · 11 Octobre 2022

Bonjour Maxime, Bruno,xUpislon, Patrick,Moi
Bonjour tout le monde !

Le Elseif rend le code illisible et complique sa maintenance curative et évolutive.

Ce n'est pas un outrage que d'utiliser des instructions autorisée par VBA sous prétexte d'une déontologie incompressible !

J'échange volontier tous ces Elseif part un Exit !

XL 2016 Problème Exit For

Maxime26

XLDnaute Nouveau

dysorthographie

XLDnaute Accro

Compte Supprimé 979

Guest

xUpsilon

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Compte Supprimé 979

Guest

patricktoulon

XLDnaute Barbatruc

xUpsilon

XLDnaute Accro

dysorthographie

XLDnaute Accro

Discussions similaires