compression de macro

[liloo23]

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

 

[Charly2]

Bonsoir Liloo23, bonsoir à toutes et à tous

Liloo, ce n'est peut-être pas utile d'ouvrir un second fil pour une même question :angry:

Ceci étant dit, la réponse de Bebere sur Lien supprimé ne te convient-elle pas ?

Dans la négative, il vaudrait mieux que tu expliques exactement ce que tu souhaites faire. Ce n'est déjà pas toujours facile de se faire comprendre quand on s'exprime en français, mais si on ne s'exprime qu'en macro qui, de surcroît, ne fonctionne pas, c'est carrément impossible...

Vas donc voir la réponse sur ton premier fil et si cela ne répond pas à ta demande, reviens expliquer ce que ta macro est censée faire sur ce fil.

A+

Message édité par: Charly2, à: 25/05/2006 20:40

 

[Gorfael]

Salut liloo23

If Range('H14') <= 8 Then
For ligne = 1 To [A65535].End(xlUp).Row
If UCase(Cells(ligne, 1)) = 'COMMANDE' or UCase(Cells(ligne, 1)) = 'LIVRAISON' Then
For Each WS In Worksheets WS.Rows(ligne).EntireRow.Delete
Next WS
End If
Next ligne
End If

A+