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
gérard
salut avec une boucle Dim c as range de A et a descendre for each C in .... si la cellule n'est pas une date : not isdate je supprime la ligne voir avec Delete : Range("A3").EntireRow.Delete
voila les piste
"astalavista" a écrit dans le message de news: 44390048$0$18283$
Bonjour,
Comment supprimer les lignes d'un fichier dont la colonne A n'est pas de la forme JJ/DD/AAAA
Merci d'avance ...
salut
avec une boucle
Dim c as range
de A et a descendre for each C in ....
si la cellule n'est pas une date : not isdate
je supprime la ligne voir avec Delete : Range("A3").EntireRow.Delete
voila les piste
"astalavista" <nobody@nowhere.com> a écrit dans le message de news:
44390048$0$18283$636a55ce@news.free.fr...
Bonjour,
Comment supprimer les lignes d'un fichier dont la
colonne A n'est pas de la forme JJ/DD/AAAA
salut avec une boucle Dim c as range de A et a descendre for each C in .... si la cellule n'est pas une date : not isdate je supprime la ligne voir avec Delete : Range("A3").EntireRow.Delete
voila les piste
"astalavista" a écrit dans le message de news: 44390048$0$18283$
Bonjour,
Comment supprimer les lignes d'un fichier dont la colonne A n'est pas de la forme JJ/DD/AAAA
Merci d'avance ...
Youky
Attention, verifie bien ton format de cellule, car les formats de dates sont grosses galères et beaucoup le confirmeront....... Tu es sur de ton format jj/dd/aaaa ....jour/day/..... For k = [A65536].End(xlUp).Row To 1 Step -1 If Cells(k, 1).NumberFormat <> "m/d/yyyy" Then Rows(k).Delete End If Next corrige le format en conséquence Youky "astalavista" a écrit dans le message de news: 44390048$0$18283$
Bonjour,
Comment supprimer les lignes d'un fichier dont la colonne A n'est pas de la forme JJ/DD/AAAA
Merci d'avance ...
Attention, verifie bien ton format de cellule, car les formats de dates sont
grosses galères
et beaucoup le confirmeront.......
Tu es sur de ton format jj/dd/aaaa ....jour/day/.....
For k = [A65536].End(xlUp).Row To 1 Step -1
If Cells(k, 1).NumberFormat <> "m/d/yyyy" Then
Rows(k).Delete
End If
Next
corrige le format en conséquence
Youky
"astalavista" <nobody@nowhere.com> a écrit dans le message de news:
44390048$0$18283$636a55ce@news.free.fr...
Bonjour,
Comment supprimer les lignes d'un fichier dont la
colonne A n'est pas de la forme JJ/DD/AAAA
Attention, verifie bien ton format de cellule, car les formats de dates sont grosses galères et beaucoup le confirmeront....... Tu es sur de ton format jj/dd/aaaa ....jour/day/..... For k = [A65536].End(xlUp).Row To 1 Step -1 If Cells(k, 1).NumberFormat <> "m/d/yyyy" Then Rows(k).Delete End If Next corrige le format en conséquence Youky "astalavista" a écrit dans le message de news: 44390048$0$18283$
Bonjour,
Comment supprimer les lignes d'un fichier dont la colonne A n'est pas de la forme JJ/DD/AAAA
Merci d'avance ...
astalavista
Attention, verifie bien ton format de cellule, car les formats de dates sont grosses galères et beaucoup le confirmeront....... Tu es sur de ton format jj/dd/aaaa ....jour/day/..... For k = [A65536].End(xlUp).Row To 1 Step -1 If Cells(k, 1).NumberFormat <> "m/d/yyyy" Then Rows(k).Delete End If Next corrige le format en conséquence Merci de l'aide ...
Quand je fais Format de cellule j'ai: Personnalisé jj/mm/aa les données visualisée sous la forme 20/04/2006
j'ai essayé: jj/mm/aa ou jj/mm/aaaa à chaque fois toutes les lignes sont supprimées ...
Quoi faire ?
Attention, verifie bien ton format de cellule, car les formats de dates
sont
grosses galères
et beaucoup le confirmeront.......
Tu es sur de ton format jj/dd/aaaa ....jour/day/.....
For k = [A65536].End(xlUp).Row To 1 Step -1
If Cells(k, 1).NumberFormat <> "m/d/yyyy" Then
Rows(k).Delete
End If
Next
corrige le format en conséquence
Merci de l'aide ...
Quand je fais Format de cellule j'ai:
Personnalisé jj/mm/aa
les données visualisée sous la forme 20/04/2006
j'ai essayé: jj/mm/aa ou jj/mm/aaaa
à chaque fois toutes les lignes sont supprimées ...
Attention, verifie bien ton format de cellule, car les formats de dates sont grosses galères et beaucoup le confirmeront....... Tu es sur de ton format jj/dd/aaaa ....jour/day/..... For k = [A65536].End(xlUp).Row To 1 Step -1 If Cells(k, 1).NumberFormat <> "m/d/yyyy" Then Rows(k).Delete End If Next corrige le format en conséquence Merci de l'aide ...
Quand je fais Format de cellule j'ai: Personnalisé jj/mm/aa les données visualisée sous la forme 20/04/2006
j'ai essayé: jj/mm/aa ou jj/mm/aaaa à chaque fois toutes les lignes sont supprimées ...
Quoi faire ?
gérard
salut
Public Sub la_date() For Each c In Range("a3", [a65536].End(xlUp).Address).Cells c.Select If IsDate(c) Then MsgBox "une date" c.EntireRow.Delete Else MsgBox " pas de date" End If Next End Sub
tu recherche si la cellule est une date et tu supprime la ligne A+
"astalavista" a écrit dans le message de news: 44390048$0$18283$
Bonjour,
Comment supprimer les lignes d'un fichier dont la colonne A n'est pas de la forme JJ/DD/AAAA
Merci d'avance ...
salut
Public Sub la_date()
For Each c In Range("a3", [a65536].End(xlUp).Address).Cells
c.Select
If IsDate(c) Then
MsgBox "une date"
c.EntireRow.Delete
Else
MsgBox " pas de date"
End If
Next
End Sub
tu recherche si la cellule est une date et tu supprime la ligne
A+
"astalavista" <nobody@nowhere.com> a écrit dans le message de news:
44390048$0$18283$636a55ce@news.free.fr...
Bonjour,
Comment supprimer les lignes d'un fichier dont la
colonne A n'est pas de la forme JJ/DD/AAAA
Public Sub la_date() For Each c In Range("a3", [a65536].End(xlUp).Address).Cells c.Select If IsDate(c) Then MsgBox "une date" c.EntireRow.Delete Else MsgBox " pas de date" End If Next End Sub
tu recherche si la cellule est une date et tu supprime la ligne A+
"astalavista" a écrit dans le message de news: 44390048$0$18283$
Bonjour,
Comment supprimer les lignes d'un fichier dont la colonne A n'est pas de la forme JJ/DD/AAAA
Merci d'avance ...
Youky
je viens de re-tester le code, si tu es bien en format personnalisé "jj/mm/aaaa" ça marche, rien n'est effacé tandis que si le format est "jj/mm/aa" là la ligne est effacée.(ou tout autres formats) Youky "astalavista" a écrit dans le message de news: 4439308a$0$2505$
Attention, verifie bien ton format de cellule, car les formats de dates sont grosses galères et beaucoup le confirmeront....... Tu es sur de ton format jj/dd/aaaa ....jour/day/..... For k = [A65536].End(xlUp).Row To 1 Step -1 If Cells(k, 1).NumberFormat <> "m/d/yyyy" Then Rows(k).Delete End If Next corrige le format en conséquence Merci de l'aide ...
Quand je fais Format de cellule j'ai: Personnalisé jj/mm/aa les données visualisée sous la forme 20/04/2006
j'ai essayé: jj/mm/aa ou jj/mm/aaaa à chaque fois toutes les lignes sont supprimées ...
Quoi faire ?
je viens de re-tester le code, si tu es bien en format personnalisé
"jj/mm/aaaa" ça marche, rien n'est effacé
tandis que si le format est "jj/mm/aa" là la ligne est effacée.(ou tout
autres formats)
Youky
"astalavista" <nobody@nowhere.com> a écrit dans le message de news:
4439308a$0$2505$636a55ce@news.free.fr...
Attention, verifie bien ton format de cellule, car les formats de dates
sont
grosses galères
et beaucoup le confirmeront.......
Tu es sur de ton format jj/dd/aaaa ....jour/day/.....
For k = [A65536].End(xlUp).Row To 1 Step -1
If Cells(k, 1).NumberFormat <> "m/d/yyyy" Then
Rows(k).Delete
End If
Next
corrige le format en conséquence
Merci de l'aide ...
Quand je fais Format de cellule j'ai:
Personnalisé jj/mm/aa
les données visualisée sous la forme 20/04/2006
j'ai essayé: jj/mm/aa ou jj/mm/aaaa
à chaque fois toutes les lignes sont supprimées ...
je viens de re-tester le code, si tu es bien en format personnalisé "jj/mm/aaaa" ça marche, rien n'est effacé tandis que si le format est "jj/mm/aa" là la ligne est effacée.(ou tout autres formats) Youky "astalavista" a écrit dans le message de news: 4439308a$0$2505$
Attention, verifie bien ton format de cellule, car les formats de dates sont grosses galères et beaucoup le confirmeront....... Tu es sur de ton format jj/dd/aaaa ....jour/day/..... For k = [A65536].End(xlUp).Row To 1 Step -1 If Cells(k, 1).NumberFormat <> "m/d/yyyy" Then Rows(k).Delete End If Next corrige le format en conséquence Merci de l'aide ...
Quand je fais Format de cellule j'ai: Personnalisé jj/mm/aa les données visualisée sous la forme 20/04/2006
j'ai essayé: jj/mm/aa ou jj/mm/aaaa à chaque fois toutes les lignes sont supprimées ...
