VBA commandes

[barth66]

bonjour quelqu'un peut me dire pourquoi la commande VBA ne fonctionne pas ??


Sub Supprime()
For Each cellule In Range("D1:T3000")
If cellule.Value = "480074" = "470440" = "470440" = "510257" = "520344" = "540030" Then Rows(cellule.Row).Delete
If cellule.Value = "470440" = "510257" = "540030" = "550006" = "480065" = "460583" = "450024" = "460036" = "530030" = "450042" = "500010" = "530050" = "530046" = "460035" = "500011" = "500007" = "530037" = "453973" = "110288" = "454032" = "440081" = "440063" = "490849" = "490853" = "490850" = "560055" Then Rows(cellule.Row).Delete
If cellule.Value = "450040" = "460033" = "530029" = "500012" = "460032" = "430547" = "410142" = "550909" = "470448" = "540026" = "510262" = "471765" = "471757" = "470444" = "430519" = "510263" = "430009" = "520348" = "510258" = "220179" = "440089" = "440080" = "441596" Then Rows(cellule.Row).Delete
If cellule.Value = "110101" = "150126" = "180524" = "200145" = "220152" = "240145" = "690004" = "710064" = "740041" = "410141" = "141044" = "160173" = "190531" = "210155" = "230152" = "250517" = "700005" = "720068" = "740042" = "141055" = "160278" = "190542" = "210249" = "240176" = "710138" = "150322" Then Rows(cellule.Row).Delete
If cellule.Value = "141047" = "180528" = "200149" = "220156" = "240149" = "411365" = "710068" = "730021" = "180529" = "110107" Then Rows(cellule.Row).Delet
If cellule.Value = "690010" = "710070" = "740047" = "421879" = "110104" = "180527" = "150132" = "180530" = "200151" = "220158" = "240151" Then Rows(cellule.Row).Delete

Next

End Sub

Quand je la lance cela marche au départ mais pas sur la fin !!

 

[Staple1600]

Re : VBA commandes

Bonsoir à tous

barth66
Aurai-je oublié de mentionner le filtre élaboré ?
Non mais c'était pas ici
mais dans mon message de ce matin (1h32)
Cette heure presque matinale expliquerait-elle que tu n'ai pas essayé cette piste ?

Merci encore et si quelqu'un a une commande "providentielle" lol quelle n'hésite pas .

je n'ai pas hésité une seconde toc tout suite j'ai pensé filtre élaboré

Toi à ton tour , n'hésites pas à lire toutes les réponses qui te sont faites 😉