Boucle tant que ... Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
U
U_goffu
Membre habitué
Membre habitué
Messages : 78
Appréciation reçue : 1
Inscrit le : 8 avril 2016
Version d'Excel : 2010/2013

Message par U_goffu » 26 avril 2016, 08:11

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
Ordonnacement_essai.xlsm
(174.26 Kio) Téléchargé 19 fois
p
patrick1957
Passionné d'Excel
Passionné d'Excel
Messages : 3'121
Appréciations reçues : 33
Inscrit le : 24 août 2015
Version d'Excel : 2007-2010-2016 PC

Message par patrick1957 » 26 avril 2016, 10:36

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.
Modifié en dernier par patrick1957 le 26 avril 2016, 10:50, modifié 1 fois.
Je fais du géocaching et vous ?
Indentez vos codes VBA, ---> http://www.oaltd.co.uk/Indenter/Default.htm
A lire pour les débutants: http://www.xlerateur.com/divers/2010/05 ... nnees-612/
U
U_goffu
Membre habitué
Membre habitué
Messages : 78
Appréciation reçue : 1
Inscrit le : 8 avril 2016
Version d'Excel : 2010/2013

Message par U_goffu » 26 avril 2016, 10:49

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() :)
p
patrick1957
Passionné d'Excel
Passionné d'Excel
Messages : 3'121
Appréciations reçues : 33
Inscrit le : 24 août 2015
Version d'Excel : 2007-2010-2016 PC

Message par patrick1957 » 26 avril 2016, 10:59

re,

en effet pas vu...

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

P.
Je fais du géocaching et vous ?
Indentez vos codes VBA, ---> http://www.oaltd.co.uk/Indenter/Default.htm
A lire pour les débutants: http://www.xlerateur.com/divers/2010/05 ... nnees-612/
U
U_goffu
Membre habitué
Membre habitué
Messages : 78
Appréciation reçue : 1
Inscrit le : 8 avril 2016
Version d'Excel : 2010/2013

Message par U_goffu » 26 avril 2016, 11:00

Super, ça fonctionne trop bien.


Merci beaucoup patrick1957.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message