Autres Boucle qui ne boucle pas ....

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

3tata6111165

XLDnaute Nouveau
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
468
Réponses
2
Affichages
202
Réponses
4
Affichages
177
Réponses
10
Affichages
281
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Retour