Autres Boucle qui ne boucle pas ....

[3tata6111165]

bonjour a tous j'ai un petit probleme la macro ci dessous fonctionne mais ne boucle pas il faut que je click sur la souri pour faire effacer les lignes qui reponde au test
merci si vous avez une solutions moi je ne vois pas ou cela bloque

Sub toto()
Sheets("w").Select
With Sheets("w")
v1 = Cells(1, 1).Value
x = Application.WorksheetFunction.Max(Columns(4))
End With

i = 1

Do While Cells(i, 1).Value <> ""

If Cells(i, 1).Value = v1 And Cells(i, 4).Value < x Then
Rows(i).EntireRow.Delete
Cells(12, 1).Value = x 'pour visuel
Cells(12, 2).Value = v1 ' pour visuel
End If

i = i + 1
Loop


End Sub

 

[danielco]

Pas de problème ???

Daniel

 

[3tata6111165]

daniel

par pas de probleme je doit comprendre que le code fonctionne chez vous ?

 

[danielco]

Absolument. Si tu lances la macro depuis Excel, as-tu le même souci ?

Daniel

 

[3tata6111165]

Absolument. Si tu lances la macro depuis Excel, as-tu le même souci ?

Daniel

idem meme avec bouton sur feuille excel

 

[3tata6111165]

versions excel 2007 si ca peut aider

 

[3tata6111165]

moi il faut que je clique deux fois pour que mes deux premieres lignes s'effacent........
afin qu'il ne reste que la ligne contenant 27/03/2019 dans la colonne D

 

[danielco]

Je ne comprends pas. Moi, ce que j'ai testé c'est mon code. tu ne l'a pas recopié dans ton classeur ?

Daniel

 

[danielco]

Si tu veux dire "exécuter deux fois la macro, ça tient à ce que je t'ai expliqué.

Daniel

 

[3tata6111165]

merci daniel

j'ai recopier ton code dans mon classeur et cela fonctionne mais j'ai poster mon code afin de comprendre le Pb du click de souris......

j'ai ta reponse

merci

 

[3tata6111165]

bonsoir a tous

ci dessous un code a 3 conditions dependante de 3 variable v1,v2,v3 v2 et v3 fonctionnent correctement mais cela ne fonctionne pas avec la variable v1 pour info dans la listbox je recupere le nom d'une societe que je stock dans la variable var21 mais avec if cela ne fonctione pas

merci si vous pouvez m'aider

Public v1, v2, v3 As String
' calcul OTD
' ligne livre a lheure et complete
Sub lgllivcomalhparcl()


Sheets("b").Select
i = 1
j = 1
v1 = var21
v2 = UserForm1.TextBox1.Value
v3 = UserForm1.TextBox2.Value
Sheets("n").Cells(1, 10).Value = v1
With Sheets("b")
Do While Cells(i, 1).Value <> ""
If .Cells(i, 7).Value >= .Cells(i, 5).Value And .Cells(i, 3).Value <= .Cells(i, 2).Value And .Cells(i, 2).Value >= CDate(v2) And .Cells(i, 2).Value <= CDate(v3) And .Cells(i, 12).Value = v1 Then
Sheets("b").Cells(i, 1).EntireRow.Copy _
Destination:=Sheets("n").Cells(j, 1)
j = j + 1
End If
i = i + 1
j = j
Loop
End With

End Sub

 

[danielco]

Bonjour,

Je suis occupé, en ce moment. Tu ferais mieux de créer une nouvelle discussion.

Cordialement.

Daniel

 

[3tata6111165]

OK merci