Vba dernière cellule d'une ligne pleine
Fermé
serial-killer
Messages postés
20
Date d'inscription
mardi 21 août 2007
Statut
Membre
Dernière intervention
22 mai 2009
-
13 mai 2009 à 18:50
timeisrunningout - 1 mars 2010 à 16:17
timeisrunningout - 1 mars 2010 à 16:17
1 réponse
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
17 mai 2009 à 08:53
17 mai 2009 à 08:53
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
ActiveCell.Range("A1:M251").Select
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
1 mars 2010 à 16:17
Ca m'a été très utile à moi...