Comment mettre plusieurs valeurs pour la fonction VALUE

Bonjour à tous,

J'ai crée une VBA qui supprime les lignes en fonction d'une valeur sur une colonne :

Sub DelThyro()

Application.ScreenUpdating = False

For i = 1000 To 11 Step -1

If Not Cells(i, 11).Value = "EPOX-MA-HEURE-THYRO" Then Rows(i).Delete

Next

End Sub

Elle me permet de supprimer les lignes entières où se trouve "EPOX-MA-HEURE-THYRO" dans la colonne K.

J'aimerai rajouter un argument qui est "EPOX-MA-HEURE-MAKITA", j'ai déjà essayé ce code là :

Sub DelThyro()

Application.ScreenUpdating = False

For i = 1000 To 11 Step -1

If Not Cells(i, 11).Value = "EPOX-MA-HEURE-THYRO""EPOX-MA-HEURE-MAKITA" Then Rows(i).Delete

Next

End Sub

Mais ça me supprime toutes les lignes... Pouvez-vous me renseigner? Merci d'avance.

Je vous ai mis en pièce jointe un fichier EXCEL avec mes deux VBA.

16fichier-vba.xlsm (60.49 Ko)

bonjour,

essaie

If (Not Cells(i, 11).Value = "EPOX-MA-HEURE-THYRO") Or (Not Cells(i, 11).Value = ("EPOX-MA-HEURE-MAKITA")) Then Rows(i).Delete

Merci pour ta réponse, malheureusement j'ai essayé et ça ne fonctionne pas, il ne garde que les EPOX-MA-HEURE-THYRO..

Je vais continuer à chercher de mon côté

Bonjour,

avec If Not Cells(i, 11).Value =

c'est normal qu'il supprime les lignes qui ne sont pas ta chaine.

eric

Bonjour,

Essaie ainsi.

Cdlt.

Public Sub DelThyro()
Dim ws As Worksheet
Dim lRow As Long, I As Long

    Set ws = ActiveSheet
    Application.ScreenUpdating = False
    With ws
        lRow = .Cells(Rows.Count, "K").End(xlUp).Row
        For I = lRow To 11 Step -1
            Select Case Cells(I, 11).Value
                Case "EPOX-MA-HEURE-THYRO", "EPOX-MA-HEURE-MAKITA"
                    '
                Case Else
                    .Rows(I).Delete
            End Select
        Next
    End With

    Set ws = Nothing

End Sub

Merci beaucoup pour vos réponses, ça fonctionne à merveille.

Rechercher des sujets similaires à "comment mettre valeurs fonction value"