macro excel Fermé

Question

bonjour,
SVP j'ai un tableau EXCEL avec en colonne C des valeurs (négatives, nulles ou positives).
Je voudrais par une macro :
pouvoir supprimer automatiquement les lignes où la valeur en cellule C est : positive ou nulle.

Merci à celui ou celle qui m'apportera la solution

KdTcA · Answer

'lut

DerniereCellule = Application.Workbooks("ton_fichier.xls").Worksheets("Nom_de_ta_feuille").Range("C65536").End(xlUp).Row
For i = 1 To DerniereCellule
If Range("C" & i & "").value >= 0 then
Range("C" & i & "").delete
end if
next i

non?

richard.rda · Answer

bien recu réponse si prompte et merci,
mais, je ne suis pas expert et ne sais pas :
- où saisir cette macro ?
- où doit débuter la saisie ?
- comment la lancer ?

sachant que je veux l'inclure dans une autre macro obtenue avec excel "macro, nouvelle macro

encore merci pour votre patience et votre aide

KdTcA · Answer

Tu crées un bouton et tu double clic dessus et tu inséres ce code dedans...

Richard.RdA · Answer

vous êtes trop calé pour moi,
je ne comprends pas ce que vous me demandez:

je souhaite inclure "votre petit programme"

dans une macro ique j'ai établie dans mon fichier Excel en utilisant dans EXCEL :OUTILS-MACROS-NOUVELLE MACRO..."

et la votre devrait me permettre de :

dans une feuille de n lignes
avec sur chaque ligne, en cellule C, des valeurs : négatives, ou nulles, ou positives.
de supprimer les lignes entières où la valeur dans C est >=0

encore une fois merci pour votre aide et soyez indulgent, je n'ai pas votre connaissance en la matière.

KdTcA · Answer

'lutQuand veux tu lancer cette macro??. Par le biais de quelle action?

Richard.RdA · Answer

en allant dans OUTILS, MACRO et nom de ma macroje n'ai pas besoin de créer un boutonmerci

KdTcA · Answer

code = kida argh je vais bien tomber sur mon pseudo un jour!!!

un bouton c'est plus beau quand même! :S

bon ben mais le code que j'ai dit à l'intérieur de çà:

sub macro1()

end sun()

et tout ce code tu le mets dans la page vba d'excel pour cela :
1/ clic droit dans barre des taches > Visual Basic
2/ clic sur l'icone visual basic editor de la barre d'outils Visual Basic

Richard.RdA · Answer

j'ai copié votre 1er envoi ainsi, et ca bugge
mon fichier : macrosupprimerligne
ma feuille : essai

Sub une( )
'
' une Macro
' Macro enregistrée le 02/08/2005 par AUDIBERT.R

DerniereCellule = Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("C65536").End(xlUp).Row

For i = 1 To 20
If Range("C" & i & "").Value >= 0 Then
Range("c" & i & "").Delete

End If
Next i

End Sub

que faut-il corriger ?
merci encore par avance

KdTcA · Answer

Il te met quoi comme bug?

Richard.RdA · Answer

"erreur d'exécution 40036erreur definie par l'application ou l'objet"et c'est tout

KdTcA · Answer

Sub une( ) 
' 
' une Macro 
' Macro enregistrée le 02/08/2005 par AUDIBERT.R 


DerniereCellule = Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("C65536").End(xlUp).Row 

For i = 1 To DerniereCellule 
If Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("C" & i & "").Value >= 0 Then 
Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("c" & i & "").Select
Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("c" & i & "").Delete 

End If 
Next i 

End Sub

Et avec çà?

Richard.RdA · Answer

avec un copie coller de ce dernier envoi:
- le message d'erreur à disparu
- seules les cellules C disparaissent (et non les lignes correspondantes)
- il reste beaucoup de cellules C de valeur = 0 ou >=0

j'ai testé dan un petit tableau d'essai à 3 colonnes et 10 lignes
et ça ne marche pas

KdTcA · Answer

ahhhhhhh!!!!!!

C'était les lignes complètes que tu voulais supprimer... lol

Bah remplace

Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("c" & i & "").Select
Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("c" & i & "").Delete

par

Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("c" & i & ":L" & i & "").Select
Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("c" & i & ":L" & i & "").Delete

si la dernière colonne de ta ligne est L sinon tu remplaces le L par la lettre de dernière colonne correspondante...

Richard.RdA · Answer

on progresse:

en remplacant C par A dans la ligne se terminant par delete (sinon on continue à ne supprimer que la celluel C

MAIS
en exécutant la macro : il reste des lignes =0 et >0 pourquoi?

pour arriver à mon résultat il me faut répéter plusieurs fois la macro, une fois devrait pourtant suffire ?

random · Answer

parceque vous vous déplacez dans la boucle et que vous supprimez
des cellules et qu'excel ne sait plus ou il en est
pour eviter cela on va proceder comme suit
j'ajoute deux colonnes
dans la premiere je mets =ligne()
dans la seconde je mets =machintruc>=0
je copie les deux colonnes
je fais collage spécial valeur au même emplacement
je fais un tri sur la colonne vrai faux
je selectionne la zone qui m'interesse (frontière vrai faux)
fin ou début de tableau
je fais une suppression de cette zone
je demande le tri sur la colonne ou j'ai mis numéro de ligne
je supprime cette colonne
j'entonne un pean au mode allegretto

KdTcA · Answer

merci random!j'y avais pensé aussi à ce problème mais plus moyen de me rappelr comment l'éviter...

Richard.RdA · Answer

merci Random,

mais désolé c'est trop compliqué pour moi,
j'ai 1 pb à presque chaque ligne :

a)
1ère colonne :
=ligne( ) faut'il saisir caractère à caractère ? et que mettre entre les parenthèses V

b)
2ème colonne
idem et par qoui dois je remplacer "machintruc" ?

dois-je recopier ces 2 colonnes vers le bas et sur combien de lignes ?

c)
faire un tri sur colonne vrai faux
je ne sais pas faire

d)
et idem pour la suite

KdTcA · Answer

'lut

C'est peut être plus simple par macro de :

1/ copier chaque ligne dont la cellule C a une valeur inférieure à 0
2/ supprimer le premier tableau
3/ couper / coller au bon endroit le nouveau tableau

non?

Richard.RdA · Answer

plus simple comme ça ?mais je ne sais pas faire cette macromerci

KdTcA · Answer

je te la ramène dès que c'est fait!En même temps moi aussi j'ai du boulot mine de rien! ;)

KdTcA · Answer

Ce code marche:*si ton tableau de recherche débute en A1 et fini en Cn*si rien n'existe en Z1 jusque ABnSub une()'' une Macro' Macro enregistrée le 02/08/2005 par AUDIBERT.RDerniereCellule = Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("C65536").End(xlUp).Rowk = 1For i = 1 To DerniereCelluleIf Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("C" & i & "").Value < 0 ThenApplication.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("A" & i & ":C" & i & "").CopyApplication.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("Z" & k & "").SelectActiveSheet.Pastek = k + 1End IfNext iApplication.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("A1:C" & DerniereCellule & "").DeleteApplication.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("Z1:AB" & k & "").Cut ("A1")End SubA tester...

Richard.RdA · Answer

c'est presque çà:encore un dernier bug à la fin dans la derniere ligne avand End sub :message d'erreur :erreur d'exécution 10004la méthode cut de la classe range à échouéet il reste 2 colonnes U et V avant mon nouveau tableau recopié et conforme de W à AB

KdTcA · Answer

Y'a ptet un espace de trop entre Cut et (Sinon pas compris ta dernière phrase...

Richard.RdA · Answer

j'enlève l'espace et il revient le têtuet toujours même message d'erreur.(la methode cut de la clase range à échoué)je disais qu'après que mon tableau ait été recopié en colonnes W à ABil reste 2 colonnes vides inutiles U eu V (c'est peut-être en rapport avec le message d'erreur)(autrement dit je voudrais que ma feuille débute en colonne W)

KdTcA · Answer

En fait mon cut sert à couper le tableau écrit de W à AB pour le coller à la place de l'ancien...mais apparemment il veut pas le couper! :Sessayes çà :Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("Z1:AB" & k & "").SelectSelection.cut("A1")ouApplication.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("Z1:AB" & k & "").SelectSelection.cutApplication.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("A1").Paste

Richard.RdA · Answer

marche avec ni l'une ni l'autre des codes.et nouveau message avec le second code : erreur 438propriété ou méthode non gérée par l'objetpetite suggestion :pourquoi ne teste tu pas sur un petit excel avant de répondre ?on gagnerait du temps tous les  2Merci encore et à très bientôt avec ta solution finale.

KdTcA · Answer

code = bewi .... que je suis bêteeeeeeeeeeeeSub une()'' une Macro' Macro enregistrée le 02/08/2005 par AUDIBERT.RDerniereCellule = Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("C65536").End(xlUp).Rowk = 1For i = 1 To DerniereCelluleIf Application.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("C" & i & "").Value < 0 ThenApplication.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("A" & i & ":C" & i & "").CopyApplication.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("Z" & k & "").SelectActiveSheet.Pastek = k + 1End IfNext iApplication.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("A1:C" & DerniereCellule & "").DeleteApplication.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("w1:Y" & k & "").CopyApplication.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("A1").SelectActiveSheet.PasteApplication.Workbooks("macrosupprimerligne.xls").Worksheets("essai").Range("w1:Y" & k & "").DeleteEnd Sub@+ Problème résolu!

Richard.RdA · Answer

Youpi, ça marche !Un grand merci pour ton aide et 1000 excuses pour le temps que je t'ai fais perdreRichard

KdTcA · Answer

Je ne perds pas mon temps vu que j'apprends en même temps!:)

Macro excel

29 réponses

Discussions similaires