Discussion :

[DjiLow]

Bonjour à tous après quelques recherche et quelques test non concluant je viens ici pour tenter de résoudre mon problème
Je m'explique:
Dans mon fichier excel j'aimerais par une macro pouvoir supprimer toutes les lignes dont la colonne B ne contient pas le mot ordinateur
J'ai testé quelques codes trouvé sur le net mais ce fut non concluant
Si quelqu'un a une idée pour m'aider je suis preneur
Merci d'avance

[zyhack]

Bonjour

a adapter au nom de ta feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub supprime()
Dim ligne As Long
 
With Worksheets("Feuil1")
  For ligne = .Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
    If Not (InStr(UCase(.Cells(ligne, 2)), "ORDINATEUR") > 0) Then
      .Cells(ligne, 2).EntireRow.Delete Shift:=xlUp
    End If
  Next
End With
End Sub

[DjiLow]

Ben je viens de trouver une solution qui fonctionne à l'instant

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub SupLign()
Dim i As Long
For i = Range("B65536").End(xlUp).Row To 1 Step -1
    If Not UCase(Cells(i, 2).Value) Like UCase("*ordinateur*") Then Rows(i).Delete
Next i
End Sub

Merci quand même zyhack