Par Macro, épurer une feuille

[malabarbe]

Bonjour a tous,

Je m'explique :
- Je copie une feuille dans une autre
- Dans la nouvelle feuille, j'efface des lignes et des colonnes

La dernière cellule remplie est A:97
Mais si je fais un control + fin, la cellule Z:270 est sélectionnée.

Comment faire pour épurer la feuille pour
que control + fin pointe sur A:97

J'avais trouvé un code, mais je ne le retrouve plus !

 

[Staple1600]

Re : Par Macro, épurer une feuille

Re


Je ne comprends pas en quoi ceci est la solution 😕

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

 

[kjin]

Re : Par Macro, épurer une feuille

Bonsoir,

Je ne comprends pas en quoi ceci est la solution

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

 

[malabarbe]

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 :

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

 

[Staple1600]

Re : Par Macro, épurer une feuille

Re


Tu peux aussi faire cela

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

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

 

[malabarbe]

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...

 

[Staple1600]

Re : Par Macro, épurer une feuille

Re

Bah comme cela alors

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.

 

[malabarbe]

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 ?

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

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

 

[Staple1600]

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

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

 

[malabarbe]

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

 

[Staple1600]

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

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

 

[malabarbe]

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.