bonsoir ! je suis d=E9butant en vba.
on m'a donn=E9 cette macro, or elle bloque sur Step: erreur=20
de compilation sub ou function non d=E9finie.
Sub epuration()
' supprimer les lignes dont les colonnes E et F affichent=20
toutes deux z=E9ro
Dim r As Long
Application.ScreenUpdating =3D False
On Error Resume Next
For r =3D Range("E:F").Find("*", [A1], , , xlByRows,=20
xlPrevious).Row To 1 Step -1
If Cells(r, 3) =3D 0 And Cells(r, 4) =3D 0 Then _
Rows(r).Delete
Next r
End Sub
je n'y comprends rien, l'aide de vba n'est pas vraiment=20
explicite, et je ne trouve de r=E9ponse nulle part
pourriez-vous m'aider ?
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
ChrisV
Re,
Sub epuration() ' supprimer 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("E:F").Find("*", [A1], , , xlByRows, _ xlPrevious).Row To 1 Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Rows(r).Delete Next r End Sub
ChrisV
"gaston" a écrit dans le message de news:17b6201c41996$24894060$ bonsoir ! je suis débutant en vba. on m'a donné cette macro, or elle bloque sur Step: erreur de compilation sub ou function non définie.
Sub epuration() ' supprimer 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("E:F").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1 Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Rows(r).Delete Next r End Sub
je n'y comprends rien, l'aide de vba n'est pas vraiment explicite, et je ne trouve de réponse nulle part pourriez-vous m'aider ?
Re,
Sub epuration()
' supprimer 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("E:F").Find("*", [A1], , , xlByRows, _
xlPrevious).Row To 1 Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _
Rows(r).Delete
Next r
End Sub
ChrisV
"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:17b6201c41996$24894060$a301280a@phx.gbl...
bonsoir ! je suis débutant en vba.
on m'a donné cette macro, or elle bloque sur Step: erreur
de compilation sub ou function non définie.
Sub epuration()
' supprimer 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("E:F").Find("*", [A1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _
Rows(r).Delete
Next r
End Sub
je n'y comprends rien, l'aide de vba n'est pas vraiment
explicite, et je ne trouve de réponse nulle part
pourriez-vous m'aider ?
Sub epuration() ' supprimer 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("E:F").Find("*", [A1], , , xlByRows, _ xlPrevious).Row To 1 Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Rows(r).Delete Next r End Sub
ChrisV
"gaston" a écrit dans le message de news:17b6201c41996$24894060$ bonsoir ! je suis débutant en vba. on m'a donné cette macro, or elle bloque sur Step: erreur de compilation sub ou function non définie.
Sub epuration() ' supprimer 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("E:F").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1 Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Rows(r).Delete Next r End Sub
je n'y comprends rien, l'aide de vba n'est pas vraiment explicite, et je ne trouve de réponse nulle part pourriez-vous m'aider ?
mousnynao
Bonjour,
Ici ça tourne avec un petit ajout :
For r = Range("A:D").Find("*", [A1], , , xlByRows, _ xlPrevious).Row To 1 Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then Range("A" & r).EntireRow.Delete End If Next r
mousnyano!
-----Message d'origine----- bonsoir ! je suis débutant en vba. on m'a donné cette macro, or elle bloque sur Step: erreur
de compilation sub ou function non définie.
Sub epuration() ' supprimer 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("E:F").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1 Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Rows(r).Delete Next r End Sub
je n'y comprends rien, l'aide de vba n'est pas vraiment explicite, et je ne trouve de réponse nulle part pourriez-vous m'aider ? .
Bonjour,
Ici ça tourne avec un petit ajout :
For r = Range("A:D").Find("*", [A1], , , xlByRows, _
xlPrevious).Row To 1 Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then
Range("A" & r).EntireRow.Delete
End If
Next r
mousnyano!
-----Message d'origine-----
bonsoir ! je suis débutant en vba.
on m'a donné cette macro, or elle bloque sur Step:
erreur
de compilation sub ou function non définie.
Sub epuration()
' supprimer 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("E:F").Find("*", [A1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _
Rows(r).Delete
Next r
End Sub
je n'y comprends rien, l'aide de vba n'est pas vraiment
explicite, et je ne trouve de réponse nulle part
pourriez-vous m'aider ?
.
For r = Range("A:D").Find("*", [A1], , , xlByRows, _ xlPrevious).Row To 1 Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then Range("A" & r).EntireRow.Delete End If Next r
mousnyano!
-----Message d'origine----- bonsoir ! je suis débutant en vba. on m'a donné cette macro, or elle bloque sur Step: erreur
de compilation sub ou function non définie.
Sub epuration() ' supprimer 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("E:F").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1 Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Rows(r).Delete Next r End Sub
je n'y comprends rien, l'aide de vba n'est pas vraiment explicite, et je ne trouve de réponse nulle part pourriez-vous m'aider ? .