Par Macro, épurer une feuille

Staple1600

XLDnaute Barbatruc

• 13 Septembre 2010

• #16

Re : Par Macro, épurer une feuille

Re


Je ne comprends pas en quoi ceci est la solution 😕

Code:

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 13 Septembre 2010

• #17

Re : Par Macro, épurer une feuille

Bonsoir,

Staple1600 à dit:

Je ne comprends pas en quoi ceci est la solution

Cliquez pour agrandir...

On avait pas le problème, mais on a la solution, c'est déjà ça ! 😀
A+
kjin

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 13 Septembre 2010

• #18

Re : Par Macro, épurer une feuille

Faites l'essai en remplissant 20 lignes et 10 collones
de données

Ensuite, supprimez 10 lignes et 5 colonnes

Si vous faites un control + fin, cela va pointer
sur la cellule I:20

Maintenant si vous appiquez la Macro :

Code:

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

Maintenant,
Si vous faites un control + fin, cela va pointer
sur la cellule D:10

Testez cela et tenez-moi informé

Bonne nuit à tous

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Septembre 2010

• #19

Re : Par Macro, épurer une feuille

Re


Tu peux aussi faire cela

Code:

Sub a()
MsgBox ActiveSheet.UsedRange.SpecialCells([B]11[/B]).Address(0, 0)
End Sub

xlCellTypeLastCell. Dernière cellule dans la plage utilisée => 11

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 13 Septembre 2010

• #20

Re : Par Macro, épurer une feuille

Ok Staple1600,

Oui, cela fonctionne mais je n'ai pas
besoin du message.

La solution dont je vous ai fait part,
est transparante !!!

Et ne fait appel a aucune intervention...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Septembre 2010

• #21

Re : Par Macro, épurer une feuille

Re

Bah comme cela alors

Code:

Sub a()
ActiveSheet.UsedRange.SpecialCells([B]11[/B]).Select
End Sub

Il faut bien exécuter la macro non ? (que ce soit la tienne ou la mienne)

Donc faire appel à une intervention.

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 14 Septembre 2010

• #22

Re : Par Macro, épurer une feuille

Non,

En premier : SpecialCells(11)
Pourquoi la cells(11) ?

On ne peut pas savoir d'avance ou va ce situer
cette cellule !

Les supressions des col's et des lig's étant différentes
a chaque fois !

Oui, le code est dans une Macro, mais, c'est
une des nombreuses instructions quelle contiens.

Avez-vous testé le code ?

Code:

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

La, pas besoin de spécifier une cells...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Septembre 2010

• #23

Re : Par Macro, épurer une feuille

Re


Tu devrais lire correctement mes messages, jeune padawan (cf celui 23h53) 🙄

Ou faire un tour dans l'aide de VBA à propos de SpecialCells

Le 11 veut dire : xlCellTypeLastCell



Donc en version longue

Code:

Sub a()
ActiveSheet.UsedRange.SpecialCells([B]xlCellTypeLastCell[/B]).Select
End Sub

 

Dernière édition: 14 Septembre 2010

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 14 Septembre 2010

• #24

Re : Par Macro, épurer une feuille

Autant pour moi...

Je vais demain, enfin tout a l'heure étudier vos propos

Pour ma défense dans l'éditeur Visual Basic en faisant
F1 et en ayant sélectionné un môt clé, Excel me demande
d'insèrer le CD d'install afin d'installer un composant,
mais mème en fouillant le CD, le fichier n'a jamais été trouvé !

Donc, pas d'aide...

Pour le code 11, je ne pouvais pas l'inventer.

Par contre, si vous avez une solution pour que je
puisse installer l'aide du Visual Basic (Excel 2003),
je suis preneur.

Question anexe, quelle est la différence entre :
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Select
et :
ActiveSheet.UsedRange.Select ?

A vous lire

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Septembre 2010

• #25

Re : Par Macro, épurer une feuille

Re


Pour découvrir l'aide VBA sur le net
Ce lien n'existe plus

Tu as quelle version d'Excel ?


Pour le 11, j'étais pourtant explicite dès 23h53, non 🙄

xlCellTypeLastCell. Dernière cellule dans la plage utilisée => 11

Cliquez pour agrandir...

Pour ta question annexe, testes les deux codes, et tu devrais voir la différence.

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 14 Septembre 2010

• #26

Re : Par Macro, épurer une feuille

Version d'Excel (2003) précisé dans le post précédent.

Pour le 11, je n'avais pas capté !

Actuellement, je ne peut pas tester la différence
entre les deux codes, car la feuille n'est plus accessible
car la connection avec le FTP est coupée et
je n'avais pas enregistré le fichier.

Dès que la connection est rétablie, je vais tester les
deux codes.

Après manip, je vous informe des résultats.

Sur ce, je vous souhaite une bonne nuit.

 

Vote positif 0 Vote négatif