L
liloo23
Guest
Bonjour à tous
J'ai un petit problème sous VBA, j'aimerai compresser les écritures suivantes, mais je n'ai pas réussi à arriver à mes fins. Si quelqu'un pouvait se pencher sur mon problème. Merci par avance.
Dim lettre As String
If Range('H14') <= 8 Then
lettre = 'Commande'
For ligne = 1 To [A65000].End(xlUp).Row
If UCase(Cells(ligne, 1)) = UCase(lettre) Then
For Each WS In Worksheets WS.Rows(ligne).EntireRow.Delete
Next WS
End If
Next ligne
End If
If Range('H14') <= 8 Then
lettre = 'Livraison'
For ligne = 1 To [A65000].End(xlUp).Row
If UCase(Cells(ligne, 1)) = UCase(lettre) Then
For Each WS In Worksheets WS.Rows(ligne).EntireRow.Delete
Next WS
End If
Next ligne
End If
J'ai un petit problème sous VBA, j'aimerai compresser les écritures suivantes, mais je n'ai pas réussi à arriver à mes fins. Si quelqu'un pouvait se pencher sur mon problème. Merci par avance.
Dim lettre As String
If Range('H14') <= 8 Then
lettre = 'Commande'
For ligne = 1 To [A65000].End(xlUp).Row
If UCase(Cells(ligne, 1)) = UCase(lettre) Then
For Each WS In Worksheets WS.Rows(ligne).EntireRow.Delete
Next WS
End If
Next ligne
End If
If Range('H14') <= 8 Then
lettre = 'Livraison'
For ligne = 1 To [A65000].End(xlUp).Row
If UCase(Cells(ligne, 1)) = UCase(lettre) Then
For Each WS In Worksheets WS.Rows(ligne).EntireRow.Delete
Next WS
End If
Next ligne
End If