tarouf

[tarouf]

Bonjour,
Je vous remercie d'avance si vous pouvez m'aider.
J'ai une feuille Excel composer de 5 colonnes comme ceci en exemple:

A B C D E
1 2 3 4 5*
1 5 4 3 6
1 4 8 9 2
1 2 4 5 7*
1 8 2 4 5*
1 2 5 9 4*

le but d'aller trouver les chiffres

1 2 4 5
pour supprimer toute les lignes .
Toues proposition est bien venu et encore merci.

 

[soan]

Bonsoir @tarouf,

bienvenue sur le site XLD, et bonne année !

ici, tu es sur "Autres discussions / Présentation des nouveaux membres" ;
donc pour la prochaine fois, ce sera mieux que tu postes ta demande
sur "Questions / Forum Excel".

j'ai quand même fait ton exo : ouvre le fichier joint, et fais Ctrl e

fais Alt F11 pour voir le code VBA, puis pour revenir sur Excel.

Sub Essai()
  Dim dlig&: dlig = Cells(Rows.Count, 1).End(3).Row
  If dlig = 1 And IsEmpty([A1]) Then Exit Sub
  Dim chn$, lig&, col As Byte, k As Byte
  Application.ScreenUpdating = 0
  For lig = dlig To 1 Step -1
    chn = "12345"
    For col = 1 To 5
      k = Cells(lig, col)
      If k < 6 And k <> 3 Then Mid$(chn, k, 1) = "*"
    Next col
    If chn = "**3**" Then Rows(lig).Delete
  Next lig
End Sub

soan

 

[tarouf]

Bonsoir Soan et un grand merci......