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
Daniel
Bonsoir. Utilise un filtre automatique, puis, par Edition/Atteindre/Cellules/"Cellules visibles seulement", tu sélectionnes uniquement les cellules contenant les zéros et tu supprimes ces lignes. Cordialement. Daniel "romeo" a écrit dans le message de news:
bonsoir, je dispose de trois colonnes: A / B / C 12 / agadir / 03-05 0 / agde / 03-05 100/aix /03-05 etc
je souhaiterais supprimer les lignes contenant la valeur 0 dans la colonne A les lignes commencant par un 0 sont aléatoires.
merci pour votre aide
Bonsoir.
Utilise un filtre automatique, puis, par
Edition/Atteindre/Cellules/"Cellules visibles seulement", tu sélectionnes
uniquement les cellules contenant les zéros et tu supprimes ces lignes.
Cordialement.
Daniel
"romeo" <romeo@discussions.microsoft.com> a écrit dans le message de news:
E184C4D6-91AB-44CE-88CC-2F6D80B955B5@microsoft.com...
bonsoir,
je dispose de trois colonnes:
A / B / C
12 / agadir / 03-05
0 / agde / 03-05
100/aix /03-05
etc
je souhaiterais supprimer les lignes contenant la valeur 0 dans la colonne
A
les lignes commencant par un 0 sont aléatoires.
Bonsoir. Utilise un filtre automatique, puis, par Edition/Atteindre/Cellules/"Cellules visibles seulement", tu sélectionnes uniquement les cellules contenant les zéros et tu supprimes ces lignes. Cordialement. Daniel "romeo" a écrit dans le message de news:
bonsoir, je dispose de trois colonnes: A / B / C 12 / agadir / 03-05 0 / agde / 03-05 100/aix /03-05 etc
je souhaiterais supprimer les lignes contenant la valeur 0 dans la colonne A les lignes commencant par un 0 sont aléatoires.
merci pour votre aide
MichDenis
Bonjour Romeo,
Tu devrais être capable d'adapter ceci à ta réalité
Nom de la feuille et de la plage de cellules à adapter ...
'----------------------------- Sub SupprimerLesLignes()
Dim Rg As Range, A As Integer With Worksheets("Feuil1") Set Rg = .Range("a5:A" & .Range("A65536").End(xlUp).Row) nb = Rg.Rows.Count End With
For A = nb To 1 Step -1 If Rg(A) = 0 Then Rg(A).EntireRow.Delete (xlUp) Next Set Rg = Nothing
End Sub '-----------------------------
Salutations!
"romeo" a écrit dans le message de news:
bonsoir, je dispose de trois colonnes: A / B / C 12 / agadir / 03-05 0 / agde / 03-05 100/aix /03-05 etc
je souhaiterais supprimer les lignes contenant la valeur 0 dans la colonne A les lignes commencant par un 0 sont aléatoires.
merci pour votre aide
Bonjour Romeo,
Tu devrais être capable d'adapter ceci à ta réalité
Nom de la feuille et de la plage de cellules à adapter ...
'-----------------------------
Sub SupprimerLesLignes()
Dim Rg As Range, A As Integer
With Worksheets("Feuil1")
Set Rg = .Range("a5:A" & .Range("A65536").End(xlUp).Row)
nb = Rg.Rows.Count
End With
For A = nb To 1 Step -1
If Rg(A) = 0 Then Rg(A).EntireRow.Delete (xlUp)
Next
Set Rg = Nothing
End Sub
'-----------------------------
Salutations!
"romeo" <romeo@discussions.microsoft.com> a écrit dans le message de news:
E184C4D6-91AB-44CE-88CC-2F6D80B955B5@microsoft.com...
bonsoir,
je dispose de trois colonnes:
A / B / C
12 / agadir / 03-05
0 / agde / 03-05
100/aix /03-05
etc
je souhaiterais supprimer les lignes contenant la valeur 0 dans la colonne A
les lignes commencant par un 0 sont aléatoires.
Tu devrais être capable d'adapter ceci à ta réalité
Nom de la feuille et de la plage de cellules à adapter ...
'----------------------------- Sub SupprimerLesLignes()
Dim Rg As Range, A As Integer With Worksheets("Feuil1") Set Rg = .Range("a5:A" & .Range("A65536").End(xlUp).Row) nb = Rg.Rows.Count End With
For A = nb To 1 Step -1 If Rg(A) = 0 Then Rg(A).EntireRow.Delete (xlUp) Next Set Rg = Nothing
End Sub '-----------------------------
Salutations!
"romeo" a écrit dans le message de news:
bonsoir, je dispose de trois colonnes: A / B / C 12 / agadir / 03-05 0 / agde / 03-05 100/aix /03-05 etc
je souhaiterais supprimer les lignes contenant la valeur 0 dans la colonne A les lignes commencant par un 0 sont aléatoires.
merci pour votre aide
romeo
Un grand merci pour votre contribution Sincèrement Roméo
Bonjour Romeo,
Tu devrais être capable d'adapter ceci à ta réalité
Nom de la feuille et de la plage de cellules à adapter ...
'----------------------------- Sub SupprimerLesLignes()
Dim Rg As Range, A As Integer With Worksheets("Ecr") Set Rg = .Range("a5:A" & .Range("A65536").End(xlUp).Row) nb = Rg.Rows.Count End With
For A = nb To 1 Step -1 If Rg(A) = 0 Then Rg(A).EntireRow.Delete (xlUp) Next Set Rg = Nothing
End Sub '-----------------------------
Salutations!
"romeo" a écrit dans le message de news:
bonsoir, je dispose de trois colonnes: A / B / C 12 / agadir / 03-05 0 / agde / 03-05 100/aix /03-05 etc
je souhaiterais supprimer les lignes contenant la valeur 0 dans la colonne A les lignes commencant par un 0 sont aléatoires.
merci pour votre aide
Un grand merci pour votre contribution
Sincèrement Roméo
Bonjour Romeo,
Tu devrais être capable d'adapter ceci à ta réalité
Nom de la feuille et de la plage de cellules à adapter ...
'-----------------------------
Sub SupprimerLesLignes()
Dim Rg As Range, A As Integer
With Worksheets("Ecr")
Set Rg = .Range("a5:A" & .Range("A65536").End(xlUp).Row)
nb = Rg.Rows.Count
End With
For A = nb To 1 Step -1
If Rg(A) = 0 Then Rg(A).EntireRow.Delete (xlUp)
Next
Set Rg = Nothing
End Sub
'-----------------------------
Salutations!
"romeo" <romeo@discussions.microsoft.com> a écrit dans le message de news:
E184C4D6-91AB-44CE-88CC-2F6D80B955B5@microsoft.com...
bonsoir,
je dispose de trois colonnes:
A / B / C
12 / agadir / 03-05
0 / agde / 03-05
100/aix /03-05
etc
je souhaiterais supprimer les lignes contenant la valeur 0 dans la colonne A
les lignes commencant par un 0 sont aléatoires.
