Bonjour j'ai les 2 macros suivantes, que je voudrais=20
combiner, et je ne sais pas comment faire, pourriez-vous=20
m'aider ?
macro pour supprimer les lignes des cellules concernant un=20
sous total plac=E9 en G12 qui est =E9gal =E0 zero
Function zoneST(x) As Range
Dim f As String
f =3D Range(x).Formula
Set zoneST =3D Range(Mid(f, InStr(f, ",") + 1, Len(f) -=20
InStr(f, ",") -1))
End Function
Sub efface()
zoneST("G12").EntireRow.Delete
Range("G12").Value =3D "0"
End Sub
macro pour supprimer des lignes automatiquement sous=20
condition
Sub epuration()
' supprimer toutes les lignes dont la colonne G affiche=20
z=E9ro
Dim r As Long
Application.ScreenUpdating =3D False
On Error Resume Next
For r =3D Range("G:G").Find("*", [A1], , , xlByRows,=20
xlPrevious).Row To 1
Step -1
If Cells(r, 7) =3D 0 Then _
Rows(r).Delete
Next r
End Sub
Salut, tu devrais les mettre a la suite ds le meme groupe Sub -- EndSub, innocent
@ +
gaston
ca, je sais bien que lorqu'on veut "additionner" les macros, il faut les mettre à la suite !!! j'aurais p'têt du expliquer ce que je voulais obtenir ;-) voilà: la première macro ne permet de supprimer QUE les lignes concernant la cellule G12 la deuxième permet supprimer TOUTES les lignes dont les valeurs de la colonne G sont nulles donc je voudrais arriver à ce que TOUTES les lignes concernant les cellules de la colonne G, cellules dont les valeurs sont égales à zéro, soient supprimées... alors ? toujours innocent le gaston ? ;-)
-----Message d'origine----- Salut, tu devrais les mettre a la suite ds le meme groupe Sub -- EndSub, innocent
@ + .
ca, je sais bien que lorqu'on veut "additionner" les
macros, il faut les mettre à la suite !!!
j'aurais p'têt du expliquer ce que je voulais obtenir ;-)
voilà:
la première macro ne permet de supprimer QUE les lignes
concernant la cellule G12
la deuxième permet supprimer TOUTES les lignes dont les
valeurs de la colonne G sont nulles
donc je voudrais arriver à ce que TOUTES les lignes
concernant les cellules de la colonne G, cellules dont les
valeurs sont égales à zéro, soient supprimées...
alors ? toujours innocent le gaston ? ;-)
-----Message d'origine-----
Salut, tu devrais les mettre a la suite ds le meme groupe
Sub -- EndSub, innocent
ca, je sais bien que lorqu'on veut "additionner" les macros, il faut les mettre à la suite !!! j'aurais p'têt du expliquer ce que je voulais obtenir ;-) voilà: la première macro ne permet de supprimer QUE les lignes concernant la cellule G12 la deuxième permet supprimer TOUTES les lignes dont les valeurs de la colonne G sont nulles donc je voudrais arriver à ce que TOUTES les lignes concernant les cellules de la colonne G, cellules dont les valeurs sont égales à zéro, soient supprimées... alors ? toujours innocent le gaston ? ;-)
-----Message d'origine----- Salut, tu devrais les mettre a la suite ds le meme groupe Sub -- EndSub, innocent
