Boucle VBA jusqu'à validation condition

Question

Bonjour,  

J'ai un peu besoin de votre aide pour que cette procédure se répète jusqu'à ce que la condition soit réalisée  

Dim Derlig As Long, i As Long  
     
    With Sheets("FTP")  
      Derlig = .Range("F" & Rows.Count).End(xlUp).Row  
      For i = 2 To Derlig  

        If .Cells(i, 8) < .Cells(1, 16) Then  
          .Range("F" & i) = .Range("H" & i) + 1  

          .Range("H" & i) = .Range("F" & i) + .Range("G" & i)  

        End If  
      Next i  
    End With  

End Sub  

Mais je ne sais pas trop comment configurer ma boucle, pourriez-vous m'orienter sur la marche à suivre... 
 Par avance merci

skyzino · Answer

Peut-êtr eque mon post ne traduit pas correctement ce que je souhaite faire. 

Je souhaite que la procédure ne prennent fin que lorsque cells(i,8) soit supérieur à cells(1,16)

Merci pour ceux qui prendront le temps de me donner un coup de main

Freedomsoul · Answer

tu peux utiliser les Exit For pour sortir de tes for quand la condition est réalisée



c'est ça que tu veux ?

michel_m · Answer

Bonjour, 
Si par hasard j'ai compris ta demande 

le test de sortie se fait en arrivant sur la ligne ou se fait il après les calculs? 

si ap^rès les calculs 
.... 
If .Range("H" & i) < .Range("P1") Then 
     .Range("F" & i) = .Range("H" & i) + 1 
     .Range("H" & i) = .Range("F" & i) + .Range("G" & i) 
     If .Range("H" & i) >= .Range("P1") Then Exit Sub 
End If 
 ... 

si "en arrivant" 
... 
If .Range("H" & i) >= .Range("P1") Then 
     Exit For 
Else 
     .Range("F" & i) = .Range("H" & i) + 1 
     .Range("H" & i) = .Range("F" & i) + .Range("G" & i) 
End If
  
 Michel

chossette9 · Answer

Bonjour,  

Dim Derlig As Long, i As Long  

With Sheets("FTP")  
Derlig = .Range("F" & Rows.Count).End(xlUp).Row  
i = 2  
Do Until .Cells(i, 8) >= .Cells(1, 16)
.Range("F" & i) = .Range("H" & i) + 1  

.Range("H" & i) = .Range("F" & i) + .Range("G" & i)  
i = i +1 
Loop 
End With  

End Sub
  
Ce mec la n'était pas une lumière, car il était niais.

skyzino · Answer

Merci à tous,

Pour ma part voici ce que j'avais fait.

Je vais essayer ta procédure chossette car la mienne est bien lente

Dim Derlig As Long, i As Long
   
    With Sheets("FTP")
      Derlig = .Range("F" & Rows.Count).End(xlUp).Row
      For i = 2 To Derlig

While .Cells(i, 8) < .Cells(1, 16)

        If .Cells(i, 8) < .Cells(1, 16) Then
          .Range("F" & i) = .Range("H" & i) + 1

          .Range("H" & i) = .Range("F" & i) + .Range("G" & i)

        End If
        
 Wend
      Next i
    End With

End Sub

skyzino · Answer

Chossette,

Le code que tu m'a communiqué n'agit pas sur les dates.

Merci quand même

Freedomsoul · Answer

houlà, pas sur que ça soit super de faire ça, une double boucle ?, est-ce vraiment utile?  

le plus simple serait :  


Dim Derlig As Long, i As Long  
     
With Sheets("FTP")  
Derlig = .Range("F" & Rows.Count).End(xlUp).Row  
      For i = 2 To Derlig  
            If .Cells(i, 8) < .Cells(1, 16) Then  
                  .Range("F" & i) = .Range("H" & i) + 1 
        ' peut etre mieux avec ça :   =====>>     .Cells(i,6) = .Cells(i,8)+1 
        ' .Cells(i,6) = .Cells(i,8)+1 

                  .Range("H" & i) = .Range("F" & i) + .Range("G" & i)  
        ' peut etre mieux avec ça :   =====>>
        '.Cells(i,8) = .Cells(i,6) + .Cells(i,7) 

                  exit for  
            End If  
      Next i  
End With  

End Sub

Boucle VBA jusqu'à validation condition

7 réponses

Discussions similaires

Newsletters