macro excel

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

Afficher la suite

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

Votre réponse

Discussions similaires

Newsletters