Si cellule contient x ou y ou z, alors
Bonjour à tous,
je viens vers vous parce que je me demandais s'il était possible d'utiliser "ou" dans une macro.
Je m'explique : la macro que j'utilise est la suivante :
Sub Clear_total()
Dim J As Long
For J = 50000 To 4 Step -1
If Range("B" & J) = "Total Janvier" Then Range("A" & J & ":G" & J).Rows.Delete
Next J
End Sub
Mais je souhaiterai supprimer toutes les lignes contenant des totaux soit : Total Janvier/Février/Mars/...
J'ai tenté de mettre uniquement "Total" mais cela ne fonctionne pas, d'où ma question : est ce qu'on peut faire une formule de type
If Range("B" & J) = "Total Janvier" or "Total Février" or ... Then Range("A" & J & ":G" & J).Rows.Delete
J'ai tenté mais sans success.
J'ai essayé de mettre entre parentheses, de mettre des virgules, etc mais rien.
Est ce que quelqu'un aurait la solution ?
D'avance mille merci !
Bonjour,
Voici un exemple qui fonctionne, si cela peut vous avancer.
Sub Macro1()
'
' Macro1 Macro
'
'
Dim texte1, texte2 As String
texte1 = Range("D1")
texte2 = Range("E1")
If (texte1 = "a" Or texte2 = "b") Then
Range("A1") = "OUI"
Else
Range("A1") = "NON"
End If
End Sub
bonjour,
tu peux aussi te baser sur les 5 premiers caractères de la cellule pour comparer avec "Total"
Sub Clear_total()
Dim J As Long
For J = 50000 To 4 Step -1
If left(Range("B" & J),5) = "Total" Then Range("A" & J & ":G" & J).Rows.Delete
Next J
End SubTrop genial merci infiniment cela fonctionne parfaitement !