bonjour !
j'ai la macro suivante que j'utilise sur une liste de 122=20
lignes:
Sub epuration()
' supprime toutes les lignes dont les colonnes E et F=20
affichent toutes deux z=E9ro
=20
Dim r As Long
Application.ScreenUpdating =3D False
On Error Resume Next
For r =3D Range("A:D").Find("*", [A1], , , xlByRows, _
xlPrevious).Row To 1 Step -1
If Cells(r, 5) =3D 0 And Cells(r, 6) =3D 0 Then _
Rows(r).Delete Shift:=3DxlUp
Next r
End Sub
je ne comprend pas: comment se fait-il qu'=E0 la fin j'ai=20
une bordure entre la colonne F et la colonne G, jusqu'=E0 la=20
ligne 140, alors qu'il n'y a aucune bordure au d=E9part ?
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
gaston
arf ! vous allez rire ! c'était pas une bordure, c'était le figeage des volets !!!
-----Message d'origine----- bonjour ! j'ai la macro suivante que j'utilise sur une liste de 122 lignes: Sub epuration() ' supprime toutes les lignes dont les colonnes E et F affichent toutes deux zéro
Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, _ xlPrevious).Row To 1 Step -1 If Cells(r, 5) = 0 And Cells(r, 6) = 0 Then _ Rows(r).Delete Shift:=xlUp Next r End Sub
je ne comprend pas: comment se fait-il qu'à la fin j'ai une bordure entre la colonne F et la colonne G, jusqu'à la
ligne 140, alors qu'il n'y a aucune bordure au départ ? .
arf ! vous allez rire ! c'était pas une bordure, c'était
le figeage des volets !!!
-----Message d'origine-----
bonjour !
j'ai la macro suivante que j'utilise sur une liste de 122
lignes:
Sub epuration()
' supprime toutes les lignes dont les colonnes E et F
affichent toutes deux zéro
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
For r = Range("A:D").Find("*", [A1], , , xlByRows, _
xlPrevious).Row To 1 Step -1
If Cells(r, 5) = 0 And Cells(r, 6) = 0 Then _
Rows(r).Delete Shift:=xlUp
Next r
End Sub
je ne comprend pas: comment se fait-il qu'à la fin j'ai
une bordure entre la colonne F et la colonne G, jusqu'à
la
ligne 140, alors qu'il n'y a aucune bordure au départ ?
.
arf ! vous allez rire ! c'était pas une bordure, c'était le figeage des volets !!!
-----Message d'origine----- bonjour ! j'ai la macro suivante que j'utilise sur une liste de 122 lignes: Sub epuration() ' supprime toutes les lignes dont les colonnes E et F affichent toutes deux zéro
Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, _ xlPrevious).Row To 1 Step -1 If Cells(r, 5) = 0 And Cells(r, 6) = 0 Then _ Rows(r).Delete Shift:=xlUp Next r End Sub
je ne comprend pas: comment se fait-il qu'à la fin j'ai une bordure entre la colonne F et la colonne G, jusqu'à la
ligne 140, alors qu'il n'y a aucune bordure au départ ? .
