bonjour tous le monde,
j'ai besoin d'un macro qui me permet de supprimer des lignes: ex si
D10=0 et E10=0 ET F10=0 je supprime la ligne 10;
Merci de votre aide.
cordailement.
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
Elliac
Bonjour,
Sub Toto() der = Application.Max(Range("d50000").End(xlUp).Row, _ Range("e50000").End(xlUp).Row, Range("f50000").End(xlUp).Row) Range("g" & der).Select While ActiveCell.Row <> 2 If ActiveCell.Offset(, -3) + ActiveCell.Offset(, -2) + _ ActiveCell.Offset(, -1) = 0 Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(-1).Select End If Wend End Sub
Camille
"" wrote:
bonjour tous le monde, j'ai besoin d'un macro qui me permet de supprimer des lignes: ex si D10=0 et E10=0 ET F10=0 je supprime la ligne 10; Merci de votre aide. cordailement.
Bonjour,
Sub Toto()
der = Application.Max(Range("d50000").End(xlUp).Row, _
Range("e50000").End(xlUp).Row, Range("f50000").End(xlUp).Row)
Range("g" & der).Select
While ActiveCell.Row <> 2
If ActiveCell.Offset(, -3) + ActiveCell.Offset(, -2) + _
ActiveCell.Offset(, -1) = 0 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(-1).Select
End If
Wend
End Sub
Camille
"ezzaouini_6@yahoo.fr" wrote:
bonjour tous le monde,
j'ai besoin d'un macro qui me permet de supprimer des lignes: ex si
D10=0 et E10=0 ET F10=0 je supprime la ligne 10;
Merci de votre aide.
cordailement.
Sub Toto() der = Application.Max(Range("d50000").End(xlUp).Row, _ Range("e50000").End(xlUp).Row, Range("f50000").End(xlUp).Row) Range("g" & der).Select While ActiveCell.Row <> 2 If ActiveCell.Offset(, -3) + ActiveCell.Offset(, -2) + _ ActiveCell.Offset(, -1) = 0 Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(-1).Select End If Wend End Sub
Camille
"" wrote:
bonjour tous le monde, j'ai besoin d'un macro qui me permet de supprimer des lignes: ex si D10=0 et E10=0 ET F10=0 je supprime la ligne 10; Merci de votre aide. cordailement.
anonymousA
Bonjour,
Pour des algorithmes de suppression,il est sage de partir du bas du tableau, donc on imagine que ton tableau commende à la ligne 10 et se termine ligne 2 on peut écrire
For I = 10 To 2 Step -1 with cells(I,4) if .value=0 and .offset(0,1).value=0 and .offset(0,2).value=0 then .EntireRow.Delete end with Next
Attention, le logiciel de messagerie renverra peut-être à la ligne le. Entirerow.delete mais il faut qu'il soit sur la mlême ligne que le Then
A+
bonjour tous le monde, j'ai besoin d'un macro qui me permet de supprimer des lignes: ex si D10=0 et E10=0 ET F10=0 je supprime la ligne 10; Merci de votre aide. cordailement.
Bonjour,
Pour des algorithmes de suppression,il est sage de partir du bas du
tableau, donc on imagine que ton tableau commende à la ligne 10 et se
termine ligne 2
on peut écrire
For I = 10 To 2 Step -1
with cells(I,4)
if .value=0 and .offset(0,1).value=0 and .offset(0,2).value=0 then
.EntireRow.Delete
end with
Next
Attention, le logiciel de messagerie renverra peut-être à la ligne le.
Entirerow.delete mais il faut qu'il soit sur la mlême ligne que le Then
A+
bonjour tous le monde,
j'ai besoin d'un macro qui me permet de supprimer des lignes: ex si
D10=0 et E10=0 ET F10=0 je supprime la ligne 10;
Merci de votre aide.
cordailement.
Pour des algorithmes de suppression,il est sage de partir du bas du tableau, donc on imagine que ton tableau commende à la ligne 10 et se termine ligne 2 on peut écrire
For I = 10 To 2 Step -1 with cells(I,4) if .value=0 and .offset(0,1).value=0 and .offset(0,2).value=0 then .EntireRow.Delete end with Next
Attention, le logiciel de messagerie renverra peut-être à la ligne le. Entirerow.delete mais il faut qu'il soit sur la mlême ligne que le Then
A+
bonjour tous le monde, j'ai besoin d'un macro qui me permet de supprimer des lignes: ex si D10=0 et E10=0 ET F10=0 je supprime la ligne 10; Merci de votre aide. cordailement.
ezzaouini_6
On 22 fév, 11:27, anonymousA wrote:
Bonjour,
Pour des algorithmes de suppression,il est sage de partir du bas du tableau, donc on imagine que ton tableau commende à la ligne 10 et se termine ligne 2 on peut écrire
For I = 10 To 2 Step -1 with cells(I,4) if .value=0 and .offset(0,1).value=0 and .offset(0,2).value=0 then .EntireRow.Delete end with Next
Attention, le logiciel de messagerie renverra peut-être à la ligne le. Entirerow.delete mais il faut qu'il soit sur la mlême ligne que le Then
A+
bonjour tous le monde, j'ai besoin d'un macro qui me permet de supprimer des lignes: ex si D10=0 et E10=0 ET F10=0 je supprime la ligne 10; Merci de votre aide. cordailement.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
merciii
On 22 fév, 11:27, anonymousA <anonymo...@wanadoo.fr> wrote:
Bonjour,
Pour des algorithmes de suppression,il est sage de partir du bas du
tableau, donc on imagine que ton tableau commende à la ligne 10 et se
termine ligne 2
on peut écrire
For I = 10 To 2 Step -1
with cells(I,4)
if .value=0 and .offset(0,1).value=0 and .offset(0,2).value=0 then
.EntireRow.Delete
end with
Next
Attention, le logiciel de messagerie renverra peut-être à la ligne le.
Entirerow.delete mais il faut qu'il soit sur la mlême ligne que le Then
A+
bonjour tous le monde,
j'ai besoin d'un macro qui me permet de supprimer des lignes: ex si
D10=0 et E10=0 ET F10=0 je supprime la ligne 10;
Merci de votre aide.
cordailement.- Masquer le texte des messages précédents -
Pour des algorithmes de suppression,il est sage de partir du bas du tableau, donc on imagine que ton tableau commende à la ligne 10 et se termine ligne 2 on peut écrire
For I = 10 To 2 Step -1 with cells(I,4) if .value=0 and .offset(0,1).value=0 and .offset(0,2).value=0 then .EntireRow.Delete end with Next
Attention, le logiciel de messagerie renverra peut-être à la ligne le. Entirerow.delete mais il faut qu'il soit sur la mlême ligne que le Then
A+
bonjour tous le monde, j'ai besoin d'un macro qui me permet de supprimer des lignes: ex si D10=0 et E10=0 ET F10=0 je supprime la ligne 10; Merci de votre aide. cordailement.- Masquer le texte des messages précédents -
