Boucle tant que

Bonjour, je voudrais effectuer une boucle tant que celle ci ne remplie pas une certaine condition. Néanmoins, je n'arrive pas à utiliser la boucle While...Wend

Il faudrait par exmple, dans mon Cas 1 qui se trouve dans le module 1, que lorsque la boucle se fasse, qu'il ne reste plus aucune cellule non vide dans la colonne 17("Fette").

Merci d'avance.

Cordialement,

U_goffu

Bonjour,

que signifie cette ligne ?

WsA.Cells(i, 17).Value = Fetten(1) ' ????

vu que fetten(1) n'est défini nulle part

En attendant, fais un test avec ceci:

Sub Cas1b()
'Si le "pri" est 10, 9, 8 ou "32858-00" ou "32871-00"

Dim i&, iA&, iB&, iC&, Y1&  '"&" = As Long
Dim Y
Dim Y2
Dim Desti
Dim WsA As Worksheet, WsB As Worksheet, WsC As Worksheet
Dim j As Integer, k As Integer
Set WsA = Sheets("Base de donnée")
Set WsC = Sheets("Fette1")
iA = WsA.Cells(Rows.Count, 1).End(xlUp).Row
iC = WsC.Cells(Rows.Count, 1).End(xlUp).Row
For i = iA To 2 Step -1                            ' on commence par le bas pour effacer des lignes 
  Y = (WsA.Cells(i, 6) = 10 Or _
       WsA.Cells(i, 6) = 9 Or _
       WsA.Cells(i, 6) = 8 Or _
       WsA.Cells(i, 3) = "32858-00" Or _
       WsA.Cells(i, 3) = "32871-00")

  Y2 = WsA.Cells(i, 17).Value = "" ' test colonne Q = ""

  If Y And Y2 Then
    Set Desti = WsC.[A65000].End(xlUp) ' dernière ligne 
    WsA.Cells(i, 17).Value = Fetten(1) ' ????
    WsA.Cells(i, 17).EntireRow.Cut Destination:=Desti(2) ' 
    WsA.Cells(i, 17).EntireRow.Delete Shift:=xlUp
  End If
Next
End Sub

P.

Bonjour patrick1957,

C'est le numéro de la Fette, ce paramètre est définit dans le Module 1 en variable Public au dessus du Sub Main()

re,

en effet pas vu...

mais tu peux tester le code déjà et puis tu adaptes

P.

Super, ça fonctionne trop bien.

Merci beaucoup patrick1957.

Rechercher des sujets similaires à "boucle tant que"