Par Macro, épurer une feuille

youky(BJ)

XLDnaute Barbatruc

• 13 Septembre 2010

• #2

Re : Par Macro, épurer une feuille

Bonjour malabarbe
Dans la fenêtre exécution de VBA copie ceci
[A98:IV300].Clear
et tape Entrée
Si cela reviens il faudrait voir la page copiée
Bruno

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 13 Septembre 2010

• #3

Re : Par Macro, épurer une feuille

bonsoir,

Code:

Rows("98:65536").Delete

A+
kjin

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 13 Septembre 2010

• #4

Re : Par Macro, épurer une feuille

Bonsoir 🙂,
A tester

Code:

Range("98:270").Delete
Range("B:Z").Delete

Bonne soirée 😎
Ajout : Salut Kjin et Youki

 

Dernière édition: 13 Septembre 2010

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 13 Septembre 2010

• #5

Re : Par Macro, épurer une feuille

Bonsoir,

Aucune de vos 3 réponses ne tourne !

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 13 Septembre 2010

• #6

Re : Par Macro, épurer une feuille

Bonsoir ,
Devant autant d'explications . . .pas facile
Mets
Sheets("nom de l'onglet").[A98:IV300].Clear

Bruno

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 13 Septembre 2010

• #7

Re : Par Macro, épurer une feuille

Désolé youky(BJ),

Cela ne tourne pas !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Septembre 2010

• #8

Re : Par Macro, épurer une feuille

Bonsoir à tous

Je m'explique :
- Je copie une feuille dans une autre
où dans la feuille se fait la copie : en A1 ?
- Dans la nouvelle feuille, j'efface des lignes et des colonnes
quelles lignes? quelles colonnes ?

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 13 Septembre 2010

• #9

Re : Par Macro, épurer une feuille

Bonsoir Staple1600,

Oui, la copie se fait en A:1

Ce que j'efface peut varier selon ce
que je veut récupérer !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Septembre 2010

• #10

Re : Par Macro, épurer une feuille

Re


Etudies et testes ce code (dans un classeur vierge)

Code:

Sub a()
Dim mon_bazar As Range, tcheba&, wizz&, dans_mon_tiroir As Range
Set mon_bazar = Sheets(1).[A1]
Set dans_mon_tiroir = Sheets(2).[A1]
tcheba = 100: wizz = tcheba

mon_bazar.Resize(tcheba, wizz) = Rnd
mon_bazar.CurrentRegion.Copy dans_mon_tiroir

Sheets(2).Rows("98:65536").Clear
Sheets(2).Range("E:IV").Clear
End Sub

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 13 Septembre 2010

• #11

Re : Par Macro, épurer une feuille

Bonsoir,
Euh, pourquoi copier toute la feuille pour garder 97 cellules sur 16 000 000 ?
(j'ai pas mis le %...c'est moins impressionnant)
A+
kjin

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Septembre 2010

• #12

Re : Par Macro, épurer une feuille

Re

Bonsoir kjin

J'illustre juste mes questions rouges de 20h19

avec un exemple sans queue ni tête 😉

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 13 Septembre 2010

• #13

Re : Par Macro, épurer une feuille

Pour kjin,

Quand je copie toute la feuille par Macro, et, je ne sait
pas d'avance ou la dernière cellule active esst plaçée !

Le soucis reste là...

Solutions :
1 - Détecter la dernière cellule active
2 - effacer tout le reste a partir de la cellule active.

Toujours pas de solutions...

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 13 Septembre 2010

• #14

Re : Par Macro, épurer une feuille

Bonsoir, sieur Staple 🙂,
Regarde le message #6 de bruno
C'est quoi la dernière cellule active ?!
Fais passer un fichier et un mot d'explication, histoire que de ce fil on ne fasse pas une pelote (elle n'est pas de moi)
A+
kjin

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 13 Septembre 2010

• #15

Re : Par Macro, épurer une feuille

Bonsoir à tous,

En fouillant partout, j'ai enfin trouvé la solution

Code:

ActiveSheet.UsedRange.Select
Range("A1").Select

Non seulement cela tourne, mais c'est instantanné !

Merci aussi a :
- kjin
- Staple1600
- youky(BJ)
- JNP

Pour m'avoir aiguillé vers des solutions

Bonne soirée à tous
Et au plaisir de vous retrouver sur le Forum.

 

Vote positif 0 Vote négatif