Rechercher : dans
Par :

Vba dernière cellule d'une ligne pleine

Dernière réponse le 17 mai 2009 à 08:53:57 serial-killer, le 13 mai 2009 à 18:50:43 
 Signaler ce message aux modérateurs

Bonjour,

je travail en ce moment sur un fichier excel où j'importe des données et je me suis bloqué sur des fonctions qui me permettent de détecter:
1- la dernière cellule remplie de la ligne par exemple ("A1:M1")
2-la zone replie c.à.d ligne et colonne par exemple ("A1:Z200")
afin qu'elle soient sélectionner et qu'elle subissent des transformations merci de m'aider


mon début de code et:
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
( ActiveCell.Offset(-1, 0).Range("A1:M1").Select) là où j'ai le problème au lieu de la plage ("A1:M1") je veu que la cellule "M1" soit détecter automatiquement

et la meme chose pour
ActiveCell.Range("A1:M251").Select je veu que la cellule "M251" soit détecter automatiquement

merci d'avance

Configuration: Windows XP
Safari 525.19

Meilleures réponses pour « vba dernière cellule d'une ligne pleine » dans :
Tableur - La sélection des cellules VoirSélection de cellules Le tableur est un formidable outil pour manipuler des données. Ainsi, pour pouvoir manipuler les données il est nécessaire de disposer d'outils permettant de sélectionner rapidement toutes les cellules dont on a...
Tableur - Les cellules VoirLa notion de cellule On appelle "cellule" l'intersection entre une ligne (horizontale) et une colonne (verticale) de la feuille de calcul. Ainsi le nom de la ligne combiné au nom de la colonne donne les coordonnées d'une cellule (le terme d'adresse...

1

 gbinforme, le 17 mai 2009 à 08:53:57
  • +1

Bonjour

ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp


Ton code est assez fantaisiste et mélange un peu tout
Rows(1).delete
doit faire la même chose.

( ActiveCell.Offset(-1, 0).Range("A1:M1").Select) là où j'ai le problème au lieu de la plage ("A1:M1") je veu que la cellule "M1" soit détecter automatiquement

Range("A1").Resize(1, Cells(1,1).SpecialCells(xlCellTypeLastCell).Column).Select

ActiveCell.Range("A1:M251").Select
Range("A1").Resize(Cells.SpecialCells(xlCellTypeLastCell).Row, Cells.SpecialCells(xlCellTypeLastCell).Column).Select

Toujours zen

Répondre à gbinforme
Collection CommentÇaMarche.net