PETIT YANNICK
XLDnaute Occasionnel
Bonjour
Je souhaite supprimer les lignes contenant les textes SOLIDWORKS Drawing Document, STEP File, Foxit PhantomPDF PDF Document dans la colonne T
J'ai écrit adapté ce code mais il ne fonctionne pas et je n'arrive pas a trouver pourquoi.
Quelqu'un aurait une idée?
Sub suppression_ligne()
Dim nbligne As Long
nbligne = Range("B1").CurrentRegion.Rows.Count
For i = nbligne To 1 Step -1
If Cells(20, i).Value = "STEP File" Then
Selection.EntireRow.Delete
ElseIf Cells(20, i).Value = "SOLIDWORKS Drawing Document" Then
Selection.EntireRow.Delete
ElseIf Cells(20, i).Value = "PDF" Then
Selection.EntireRow.Delete
End If
Next i
End Sub
Je souhaite supprimer les lignes contenant les textes SOLIDWORKS Drawing Document, STEP File, Foxit PhantomPDF PDF Document dans la colonne T
J'ai écrit adapté ce code mais il ne fonctionne pas et je n'arrive pas a trouver pourquoi.
Quelqu'un aurait une idée?
Sub suppression_ligne()
Dim nbligne As Long
nbligne = Range("B1").CurrentRegion.Rows.Count
For i = nbligne To 1 Step -1
If Cells(20, i).Value = "STEP File" Then
Selection.EntireRow.Delete
ElseIf Cells(20, i).Value = "SOLIDWORKS Drawing Document" Then
Selection.EntireRow.Delete
ElseIf Cells(20, i).Value = "PDF" Then
Selection.EntireRow.Delete
End If
Next i
End Sub