Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2013Supression de lignes qui ne commencent pas différents critéres
Re : Supression de lignes qui ne commencent pas différents critéres
Re
J'ai oublié de dire la référence de la colonne à prendre en compte est A.
J'ai trouvé ce code mais je n'arrive pas à prendre ne compte les 3 critères :
Sub Suplignes()
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Not Cells(i, 1) Like "*2*" Or Cells(i, 1) Like "5*" Or Cells(i, 1) Like "R*" Then Rows(i).Delete
Next
End Sub
Re : Supression de lignes qui ne commencent pas différents critéres
Merci thebenoit59
En cherchant j'ai trouvé ce code et il fonctionne.
Sub suppression()
Dim z$, i&, k&
k = Cells(3000, 1).Row
For i = k To 2 Step -1
z = Cells(i, 1).Value
If Not (Cells(i, 1) Like ("2*") Or Cells(i, 1) Like ("5*") Or Cells(i, 1) Like ("R*")) Then Rows(i).Delete
Next
ActiveWorkbook.Save
End Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.