Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tarouf

XLDnaute Nouveau
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.
 
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.


VB:
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
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 planning 5*8
Réponses
19
Affichages
872
  • Question Question
Power Query Power Query
Réponses
26
Affichages
377
Réponses
2
Affichages
510
Réponses
3
Affichages
248
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
482
Retour