Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Comment effacer une ligne ds une feuille a partir de VBA

1,515 views
Skip to first unread message

David BORDAS

unread,
Sep 6, 2000, 9:08:40 AM9/6/00
to
Voila

mon developpement touche à sa fin mais
il me reste a regler un pb : je voudrais supprimer totalement une ligne de
la feuille 1 et bien sure faire remonter les autres pour ne pas laisser de
lignes vides

Merci

--
David BORDAS / JEUXVIDEO.COM
---------------------------------------------------------------------------
http://www.jeuxvideo.com : Le site numéro 1 des jeux video en français
http://boutique.jeuxvideo.com : Pour acheter tous ses jeux sur le net
---------------------------------------------------------------------------


AV

unread,
Sep 6, 2000, 10:00:21 AM9/6/00
to
simplement :
Rows(10).Delete
pour la ligne 10
AV
David BORDAS <jv...@wanadoo.fr> a écrit dans le message :
39b6...@feednews.internext.fr...

David BORDAS

unread,
Sep 6, 2000, 10:37:40 AM9/6/00
to
Cool merci
j'ai chercher plein de trucs ds l'aide mais
j'ai rien trouvé de bien

je tente
merci encore

--
David BORDAS / JEUXVIDEO.COM
---------------------------------------------------------------------------
http://www.jeuxvideo.com : Le site numéro 1 des jeux video en français
http://boutique.jeuxvideo.com : Pour acheter tous ses jeux sur le net
---------------------------------------------------------------------------

"AV" <alain....@wanadoo.fr> a écrit dans le message news:
8p5iqg$2ih$1...@wanadoo.fr...

Eric SURIN

unread,
Sep 6, 2000, 10:31:35 AM9/6/00
to
Voici la ligne de code pour effacer une ligne et faire remonter les autres :

Sheets("Ma_Feuille").Rows(y).Delete Shift:=xlUp

où tu peux remplacer y par un numéro de ligne ou une variable indiquant un
numéro de ligne.
Remplace Ma_Feuille par le nom de ta feuille de données.


> De : "AV" <alain....@wanadoo.fr>
> Société : Wanadoo, l'internet avec France Telecom
> Groupes : microsoft.public.fr.excel
> Date : Wed, 6 Sep 2000 16:00:21 +0200
> Objet : Re: Comment effacer une ligne ds une feuille a partir de VBA

David BORDAS

unread,
Sep 6, 2000, 10:51:45 AM9/6/00
to
ben ca marche pas :(

y me dit la methode delete de la classe range a echoué :(

j'ai essayé me.rows(10).delete => marche pas non +

Help
j'ai cherché ds l'aide excel et j'ai rien faut que dire qu'avoir l'aide en
francais et les commandes en anglais ca aide pas :)

--
David BORDAS / JEUXVIDEO.COM
---------------------------------------------------------------------------
http://www.jeuxvideo.com : Le site numéro 1 des jeux video en français
http://boutique.jeuxvideo.com : Pour acheter tous ses jeux sur le net
---------------------------------------------------------------------------

"David BORDAS" <jv...@wanadoo.fr> a écrit dans le message news:
39b6...@feednews.internext.fr...


> Cool merci
> j'ai chercher plein de trucs ds l'aide mais
> j'ai rien trouvé de bien
>
> je tente
> merci encore
>
> --
> David BORDAS / JEUXVIDEO.COM

Iznogood

unread,
Sep 6, 2000, 10:55:31 AM9/6/00
to
Active ta feuille avant d'effacer la ligne, ça devrait marche mieux

ex :
Feuil1.Activate
Feuil1.Rows("2:2").Select
Selection.Delete Shift:=xlUp

David BORDAS a écrit dans le message <39b6...@feednews.internext.fr>...

Jacques Ghemard

unread,
Sep 6, 2000, 10:04:17 AM9/6/00
to

Tout un développement sans utiliser une seule fois l'enregistreur de Macro
????!!!!!

> mon developpement touche à sa fin mais
> il me reste a regler un pb : je voudrais supprimer totalement une ligne de
> la feuille 1 et bien sure faire remonter les autres pour ne pas laisser de
> lignes vides

Si tu sais faire ça avec Excel, alors fait le en enregistrant une macro et
va voir le code qui a été écrit

Salut
Jacques

ghor...@my-deja.com

unread,
Sep 6, 2000, 11:00:37 AM9/6/00
to
ben comme je le disais
rows(10).delete ne marche pas
et
Sheets("Feuil1").Rows(Indice).Delete Shift:=xlUp non +
et activesheets.Rows(Indice).Delete Shift:=xlUp non +

je recois l'erreur : erreur d'execution 1004


la methode delete de la classe range a echoué

j'ai aussi tester en remplacant indice par 10 par exemple et c'est tjs
pareil ce ne marche pas :(
In article <B5DC21E7.B15%esu...@masters-consultants.com>,


Sent via Deja.com http://www.deja.com/
Before you buy.

David BORDAS

unread,
Sep 6, 2000, 11:28:25 AM9/6/00
to
merci iznogood ca marche

--
David BORDAS / JEUXVIDEO.COM
---------------------------------------------------------------------------
http://www.jeuxvideo.com : Le site numéro 1 des jeux video en français
http://boutique.jeuxvideo.com : Pour acheter tous ses jeux sur le net
---------------------------------------------------------------------------

"Iznogood" <izno...@free.fr> a écrit dans le message news:
8p5lo5$2qt6$1...@news6.isdnet.net...

ghor...@my-deja.com

unread,
Sep 6, 2000, 11:28:53 AM9/6/00
to
ben je programme tout en VB en fait
je ne sais pas faire autrement sous excel desolé

a+
In article <e7Hx2HB...@cppssbbsa02.microsoft.com>,

Jacques Ghemard

unread,
Sep 6, 2000, 1:06:55 PM9/6/00
to
Comment ça en VB ? Pas en VBA ? Pas avec le VB qui est dans Excel ? En VB
sans Excel ?

Donc, si je comprends bien, tu ne sais pas effacer une ligne avec Excel
parce que tu ne l'utilises pas !!!

Ou alors, tu penses que l'enregistreur de macros n'écrit pas du programme en
VBA ?

Parce que chez moi, quand j'efface une ligne, VBA enregistre ça :

Rows("10:10").Select
Selection.Delete Shift:=xlUp

Que je transforme ensuite en :

Rows("10:10").Delete Shift:=xlUp

Ou, si c'est sur une autre feuille que celle affichée :

Sheets("Feuil1").Select
Rows("10:10").Select
Selection.Delete Shift:=xlUp

qui devient :

Sheets("Feuil1").Rows("10:10").Delete Shift:=xlUp

Salut
Jacques

David BORDAS

unread,
Sep 7, 2000, 2:26:59 AM9/7/00
to
ben c'est simple par exemple tu cree un bouton et en mode creation ca
t'ouvre une fenetre de programmation VB ( tout ceci sous excel )
et c'est la que je programme

a+

--
David BORDAS / JEUXVIDEO.COM
---------------------------------------------------------------------------
http://www.jeuxvideo.com : Le site numéro 1 des jeux video en français
http://boutique.jeuxvideo.com : Pour acheter tous ses jeux sur le net
---------------------------------------------------------------------------

"Jacques Ghemard" <JaGh...@wanadoo.fr> a écrit dans le message news:
e7P76oC...@cppssbbsa02.microsoft.com...

0 new messages