Supprimer des lignes sur une autres feuille du classeur
Bonjour,
j'aimerai a partie de la feuille 2 du classeur que la macro se lance avec un bouton et me supprime les lignes que je souhaite
et sans limite de taille des lignes
mais cela ne fonctionne pas
Private Sub CommandButton2_Click()
Dim i As Integer
Sheets("feuille1").Select
ActiveCell.Offset(i, 1).Rows("1:1").EntireRow.Select
For i = [A65000].End(xlUp).Row To 1 Step -1
If Not Cells(i, 1).Find("Total") Is Nothing Or _
Not Cells(i, 1).Find("Dénomination Professionnel") Is Nothing Or _
Not Cells(i, 1).Find("test") Is Nothing Then Rows(i).Delete
Next i
End Sub
d'avance merci
Bonjour,
OULALA...Ça pique les yeux !
Ma boule de cristal elle aussi est un peu opaque d'un seul coup, mais si j'ai bien compris, essaie :
Private Sub CommandButton2_Click()
Dim i As Integer, iLR As Integer
Sheets("Feuil1").Select
iLR = [A65000].End(xlUp).Row
For i = iLR To 1 Step -1
If Not (Cells(i, 1) = "Total" Or _
Cells(i, 1) = "Dénomination Professionnel" Or _
Cells(i, 1) = "test") Then
Rows(i).Delete
End If
Next i
End SubA+
Merci galopin
cela ne donne rien
je veux aller de la feuille 2 vers la feuille 1 (données en question) et sur cette feuille et sur cette feuille je veux supprimer toutes les lignes contenant les mots Total etc...
merci
Sorry comme ton code ne me disais rien, j'ai fait au hasard !
Il suffit de supprimer le "not"
Private Sub CommandButton2_Click()
Dim i As Integer, iLR As Integer
Sheets("Feuil1").Select
iLR = [A65000].End(xlUp).Row
For i = iLR To 1 Step -1
If Cells(i, 1) = "Total" Or _
Cells(i, 1) = "Dénomination Professionnel" Or _
Cells(i, 1) = "test" Then
Rows(i).Delete
End If
Next i
End SubA+