Pb commandes VBA
Re 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 !!
Can you help me please ?
merci
Bonjour Barth le forum
bah oui c'est normal que cela ne marche pas , du moins je pense!!
essayes plutôt comme ci dessous
a+
Papou
if cellule.value=480074 or cellule.value=480440 etc etc then Rows(cellule.Row).Delete
ou si c'est des chiffres au format texte
if cellule.value="480074"or cellule.value="480440" etc etc then Rows(cellule.Row).Delete
Re Barth le forum
Maintenant tu aurais joint le fichier avec la liste des nombres à évincer, je pense qu'il y a d'autre moyen que ce que tu as fait pour réaliser le travail.
a+
Papou
Ben ecoute je te joint le fichier parceque meme avec ta formule cela ne marche pas tout les codes sont dans la commande VBA
Merci encore
Avec le fichier c'est mieu lol
Le fichier est trop gros mais voila commande que j'ai rentré
if cellule.value="470440" or cellule.value= "510257" or cellule.value= "520344" or cellule.value= "540030" or cellule.value= "550006" or cellule.value= "480065" or cellule.value= "460583" or cellule.value= "450024" or cellule.value= "460036" or cellule.value= "530030" or cellule.value= "450042" or cellule.value= "500010" or cellule.value= "530026" or cellule.value= "530050" or cellule.value= "500969" or cellule.value= "530046" or cellule.value= "453413" or cellule.value= "460035" or cellule.value= "450043" or cellule.value= "500011" or cellule.value= "530027" or cellule.value= "500007" or cellule.value= "500923" or cellule.value= "530037" or cellule.value= "530054" or cellule.value= "453973" or cellule.value= "450259" or cellule.value= "110288" or cellule.value= "180576" or cellule.value= "454032" or cellule.value= "530045" or cellule.value= "450040" or cellule.value= "530031" or cellule.value= "460033" or cellule.value= "500028" or cellule.value= "530029" or cellule.value
= "453974" or cellule.value= "500012" or cellule.value= "460307" or cellule.value= "460032" or cellule.value= "510268" or cellule.value= "430547" or cellule.value= "470447" or cellule.value= "410142" or cellule.value= "430566" or cellule.value= "550909" or cellule.value= "510269" or cellule.value= "470448" or cellule.value= "430545" or cellule.value= "540026" or cellule.value= "550167" or cellule.value= "510262" or cellule.value= "470442" or cellule.value= "471765" or cellule.value= "480082" or cellule.value= "471757" or cellule.value= "520770" or cellule.value= "470444" or cellule.value= "520345" or cellule.value= "430519" or cellule.value= "470443" or cellule.value= "510263" or cellule.value= "540033" or cellule.value= "430009" or cellule.value= "470433" or cellule.value= "520348" or cellule.value= "540027" or cellule.value= "510258" or cellule.value= "180567" or cellule.value= "220179" or cellule.value= "440079" or cellule.value= "440089" or cellule.value= "440087" or
cellule.Value = "440080" Or cellule.Value = "150294" Or cellule.Value = "441596" Or cellule.Value = "440512" Or cellule.Value = "440081" Or cellule.Value = "440513" Or cellule.Value = "440063" Or cellule.Value = "440088" Or cellule.Value = "490849" Or cellule.Value = "490852" Or cellule.Value = "490853" Or cellule.Value = "490854" Or cellule.Value = "490850" Or cellule.Value = "421874" Or cellule.Value = "560055" Then Rows(cellule.Row).Delete
Bonjour
A titre de test
Peux-tu essayer cette macro
Sub Suppression()
Dim J As Long
Dim I As Integer
Dim N As Integer
Dim Trouve As Boolean
Dim Tablo
Tablo = Array("480074", "470440", "470440", "510257", "520344", "540030", "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", "450040", "460033", "530029", "500012", _
"460032", "430547", "410142", "550909", "470448", "540026", "510262", "471765", "471757", "470444", "430519", "510263", _
"430009", "520348", "510258", "220179", "440089", "440080", "441596", "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", "141047", "180528", "200149", _
"220156", "240149", "411365", "710068", "730021", "180529", "110107", "690010", "710070", "740047", "421879", "110104", _
"180527", "150132", "180530", "200151", "220158", "240151")
For J = 3000 To 1 Step -1
Trouve = False
For I = 4 To 20
For N = 0 To UBound(Tablo)
If Cells(J, I) = Tablo(N) Then
Rows(J).Delete
Trouve = True
Exit For
End If
Next N
If Trouve = True Then Exit For
Next I
Next J
End Sub
Pas besoin d'avoir le fichier complet
Seulement une cinquantaine de ligne fera l'affaire
bonsoir,
une autre possibilité :
Sub Supprime()
For i = 3000 To 1 Step -1
For k = 4 To 20
Var = Cells(i, k)
Select Case Var
Case Is = 110101: Y = True
Case Is = 110104: Y = True
Case Is = 110107: Y = True
Case Is = 110288: Y = True
Case Is = 141044: Y = True
Case Is = 141047: Y = True
Case Is = 141055: Y = True
Case Is = 150126: Y = True
Case Is = 150132: Y = True
Case Is = 150322: Y = True
Case Is = 160173: Y = True
Case Is = 160278: Y = True
Case Is = 180524: Y = True
Case Is = 180527: Y = True
Case Is = 180528: Y = True
Case Is = 180529: Y = True
Case Is = 180530: Y = True
Case Is = 190531: Y = True
Case Is = 190542: Y = True
Case Is = 200145: Y = True
Case Is = 200149: Y = True
Case Is = 200151: Y = True
Case Is = 210155: Y = True
Case Is = 220158: Y = True
Case Is = 210249: Y = True
Case Is = 220152: Y = True
Case Is = 220156: Y = True
Case Is = 220179: Y = True
Case Is = 230152: Y = True
Case Is = 240145: Y = True
Case Is = 240149: Y = True
Case Is = 240151: Y = True
Case Is = 240176: Y = True
Case Is = 250517: Y = True
Case Is = 410141: Y = True
Case Is = 410142: Y = True
Case Is = 411365: Y = True
Case Is = 421879: Y = True
Case Is = 430009: Y = True
Case Is = 430519: Y = True
Case Is = 430547: Y = True
Case Is = 440063: Y = True
Case Is = 440080: Y = True
Case Is = 440081: Y = True
Case Is = 440089: Y = True
Case Is = 441596: Y = True
Case Is = 450024: Y = True
Case Is = 450040: Y = True
Case Is = 450042: Y = True
Case Is = 453973: Y = True
Case Is = 454032: Y = True
Case Is = 460032: Y = True
Case Is = 460033: Y = True
Case Is = 460035: Y = True
Case Is = 460036: Y = True
Case Is = 460583: Y = True
Case Is = 470440: Y = True
Case Is = 470444: Y = True
Case Is = 470448: Y = True
Case Is = 471757: Y = True
Case Is = 471765: Y = True
Case Is = 480065: Y = True
Case Is = 480074: Y = True
Case Is = 490849: Y = True
Case Is = 490850: Y = True
Case Is = 490853: Y = True
Case Is = 500007: Y = True
Case Is = 500010: Y = True
Case Is = 500011: Y = True
Case Is = 500012: Y = True
Case Is = 510257: Y = True
Case Is = 510258: Y = True
Case Is = 510262: Y = True
Case Is = 510263: Y = True
Case Is = 520344: Y = True
Case Is = 520348: Y = True
Case Is = 530029: Y = True
Case Is = 530030: Y = True
Case Is = 530037: Y = True
Case Is = 530046: Y = True
Case Is = 530050: Y = True
Case Is = 540026: Y = True
Case Is = 540030: Y = True
Case Is = 550006: Y = True
Case Is = 550909: Y = True
Case Is = 560055: Y = True
Case Is = 690004: Y = True
Case Is = 690010: Y = True
Case Is = 700005: Y = True
Case Is = 740041: Y = True
Case Is = 710064: Y = True
Case Is = 710068: Y = True
Case Is = 710070: Y = True
Case Is = 710138: Y = True
Case Is = 720068: Y = True
Case Is = 730021: Y = True
Case Is = 740042: Y = True
Case Is = 740047: Y = True
End Select
If Y Then
Rows(i).Delete
Y = False
End If
Next
Next
End Sub
A+