Comment faire en VBA pour s=E9lectionner toutes les lignes,=20
sauf la derni=E8re, d'une feuille dont la valeur de la=20
colonne A, est difff=E9rente du format xx:xx et les=20
supprimer.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Avec format = "h:mm:ss" Sub DegageLes() With Feuil1 For i = .Range("A65536").End(xlUp).Row - 1 To 1 Step -1 If .Cells(i, 1).NumberFormat <> "h:mm:ss" Then Cells(i, 1).EntireRow.Delete Next i End With End Sub
Cordialement Pascal
"Serge" a écrit dans le message de news:08eb01c4b28b$d281b290$ Bonjour,
Comment faire en VBA pour sélectionner toutes les lignes, sauf la dernière, d'une feuille dont la valeur de la colonne A, est diffférente du format xx:xx et les supprimer.
(xx:xx représente des heures)
Merci
Serge
Bonjour
Avec format = "h:mm:ss"
Sub DegageLes()
With Feuil1
For i = .Range("A65536").End(xlUp).Row - 1 To 1 Step -1
If .Cells(i, 1).NumberFormat <> "h:mm:ss" Then Cells(i, 1).EntireRow.Delete
Next i
End With
End Sub
Cordialement
Pascal
"Serge" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:08eb01c4b28b$d281b290$a301280a@phx.gbl...
Bonjour,
Comment faire en VBA pour sélectionner toutes les lignes,
sauf la dernière, d'une feuille dont la valeur de la
colonne A, est diffférente du format xx:xx et les
supprimer.
Bonjour Avec format = "h:mm:ss" Sub DegageLes() With Feuil1 For i = .Range("A65536").End(xlUp).Row - 1 To 1 Step -1 If .Cells(i, 1).NumberFormat <> "h:mm:ss" Then Cells(i, 1).EntireRow.Delete Next i End With End Sub
Cordialement Pascal
"Serge" a écrit dans le message de news:08eb01c4b28b$d281b290$ Bonjour,
Comment faire en VBA pour sélectionner toutes les lignes, sauf la dernière, d'une feuille dont la valeur de la colonne A, est diffférente du format xx:xx et les supprimer.
(xx:xx représente des heures)
Merci
Serge
papou
en complément (modif + commentaire) : Sub DegageLes() With Feuil1 'CodeName de la feuille sinon Worksheets("Feuil1") For i = .Range("A65536").End(xlUp).Row - 1 To 1 Step -1 If .Cells(i, 1).NumberFormat <> "h:mm:ss" Then .Cells(i, 1).EntireRow.Delete Next i End With End Sub
Cordialement Pascal
"Serge" a écrit dans le message de news:08eb01c4b28b$d281b290$ Bonjour,
Comment faire en VBA pour sélectionner toutes les lignes, sauf la dernière, d'une feuille dont la valeur de la colonne A, est diffférente du format xx:xx et les supprimer.
(xx:xx représente des heures)
Merci
Serge
en complément (modif + commentaire) :
Sub DegageLes()
With Feuil1 'CodeName de la feuille sinon Worksheets("Feuil1")
For i = .Range("A65536").End(xlUp).Row - 1 To 1 Step -1
If .Cells(i, 1).NumberFormat <> "h:mm:ss" Then .Cells(i, 1).EntireRow.Delete
Next i
End With
End Sub
Cordialement
Pascal
"Serge" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:08eb01c4b28b$d281b290$a301280a@phx.gbl...
Bonjour,
Comment faire en VBA pour sélectionner toutes les lignes,
sauf la dernière, d'une feuille dont la valeur de la
colonne A, est diffférente du format xx:xx et les
supprimer.
en complément (modif + commentaire) : Sub DegageLes() With Feuil1 'CodeName de la feuille sinon Worksheets("Feuil1") For i = .Range("A65536").End(xlUp).Row - 1 To 1 Step -1 If .Cells(i, 1).NumberFormat <> "h:mm:ss" Then .Cells(i, 1).EntireRow.Delete Next i End With End Sub
Cordialement Pascal
"Serge" a écrit dans le message de news:08eb01c4b28b$d281b290$ Bonjour,
Comment faire en VBA pour sélectionner toutes les lignes, sauf la dernière, d'une feuille dont la valeur de la colonne A, est diffférente du format xx:xx et les supprimer.
(xx:xx représente des heures)
Merci
Serge
Gloops
Correct. (Tiens, qui ça me rappelle, ça ?)
Si je peux me permettre, juste pour l'exercice de style, on peut aussi :
For Each R In ActiveWorkbook.Worksheets("Feuil1").UsedRange.Rows If R.Cells(1).NumberFormat <> "h:mm:ss" Then R.Delete Next
papou a écrit, le 15/10/2004 10:15 :
en complément (modif + commentaire) : Sub DegageLes() With Feuil1 'CodeName de la feuille sinon Worksheets("Feuil1") For i = .Range("A65536").End(xlUp).Row - 1 To 1 Step -1 If .Cells(i, 1).NumberFormat <> "h:mm:ss" Then .Cells(i, 1).EntireRow.Delete Next i End With End Sub
Cordialement Pascal
Correct. (Tiens, qui ça me rappelle, ça ?)
Si je peux me permettre, juste pour l'exercice de style, on peut aussi :
For Each R In ActiveWorkbook.Worksheets("Feuil1").UsedRange.Rows
If R.Cells(1).NumberFormat <> "h:mm:ss" Then R.Delete
Next
papou a écrit, le 15/10/2004 10:15 :
en complément (modif + commentaire) :
Sub DegageLes()
With Feuil1 'CodeName de la feuille sinon Worksheets("Feuil1")
For i = .Range("A65536").End(xlUp).Row - 1 To 1 Step -1
If .Cells(i, 1).NumberFormat <> "h:mm:ss" Then .Cells(i, 1).EntireRow.Delete
Next i
End With
End Sub
Si je peux me permettre, juste pour l'exercice de style, on peut aussi :
For Each R In ActiveWorkbook.Worksheets("Feuil1").UsedRange.Rows If R.Cells(1).NumberFormat <> "h:mm:ss" Then R.Delete Next
papou a écrit, le 15/10/2004 10:15 :
en complément (modif + commentaire) : Sub DegageLes() With Feuil1 'CodeName de la feuille sinon Worksheets("Feuil1") For i = .Range("A65536").End(xlUp).Row - 1 To 1 Step -1 If .Cells(i, 1).NumberFormat <> "h:mm:ss" Then .Cells(i, 1).EntireRow.Delete Next i End With End Sub
