problème de sélection

Version 1
'----------------------------------
Dim DerLig As Lon

'DerLig représente la dernière ligne occupée
'dans ta feuille active (à l'écran)

Derlig = ActiveSheet.Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row

With Range("I2:I" & Derlig)
.NumberFormat = "d/m/yy;@"
.Value = Date
.FillDown
End With
'------------------------------

Version 2
Dans cette version, remplace ceci:
Range("I65536") (colonne i ) Par une colonne
où tu voudrais que ta plage se remplisse jusqu'à
sa hauteur...(qui contient déjà des données)

With Range("I2:I" & Range("I65536").End(xlUp).Row)
.NumberFormat = "d/m/yy;@"
.Value = Date
.FillDown
End With






"andrea" <andrea.parker@laposte.net> a écrit dans le message de news:
%232feqR%23CHHA.4292@TK2MSFTNGP06.phx.gbl...
Re bonjour

Encore besoin d'un petit coup de pouce

j'ai donc dans ma macro
========== Range("I2").Select
Selection.NumberFormat = "d/m/yy;@"
Selection.AutoFill Destination:=Range("I2:I273")
Range("I2:I273").Select
==========
le problème c'est que si d'une semaine sur l'autre
mon tableau à plus ou moins de lignes je suis coincée

donc comment lui dire de prendre le tableau complet et
de ne pas s'arreter à la ligne 273

merci d'avance

Une idée :

dest = Range("I2").Resize _
(Application.CountA(Range("I:I")) - 1, 1).Address(external:úlse)
Range("I2").Select
Selection.NumberFormat = "d/m/yy;@"
Selection.AutoFill Destination:=Range(dest)
Range(dest).Select

Gazelle

"andrea" <andrea.parker@laposte.net> a écrit dans le message de news:
%232feqR%23CHHA.4292@TK2MSFTNGP06.phx.gbl...

Re bonjour

Encore besoin d'un petit coup de pouce

j'ai donc dans ma macro
========== > Range("I2").Select
Selection.NumberFormat = "d/m/yy;@"
Selection.AutoFill Destination:=Range("I2:I273")
Range("I2:I273").Select
========== >
le problème c'est que si d'une semaine sur l'autre
mon tableau à plus ou moins de lignes je suis coincée

donc comment lui dire de prendre le tableau complet et
de ne pas s'arreter à la ligne 273

merci d'avance

c'est bon j'ai trouvé



andrea a écrit:

Re bonjour

Encore besoin d'un petit coup de pouce

j'ai donc dans ma macro
========== > Range("I2").Select
Selection.NumberFormat = "d/m/yy;@"
Selection.AutoFill Destination:=Range("I2:I273")
Range("I2:I273").Select
========== >
le problème c'est que si d'une semaine sur l'autre
mon tableau à plus ou moins de lignes je suis coincée

donc comment lui dire de prendre le tableau complet et
de ne pas s'arreter à la ligne 273

merci d'avance

en fait j'ai mis cela

'recopie la formule jusqu'en bas du tableau
Dim Ligne As Long
Ligne = Range("A2").End(xlDown).Row
Range("E2").AutoFill Destination:=Range("E2:E" & Ligne)

cela va pas mal


gazelle a écrit:

Une idée :

dest = Range("I2").Resize _
(Application.CountA(Range("I:I")) - 1, 1).Address(external:úlse)
Range("I2").Select
Selection.NumberFormat = "d/m/yy;@"
Selection.AutoFill Destination:=Range(dest)
Range(dest).Select

Gazelle

"andrea" <andrea.parker@laposte.net> a écrit dans le message de news:
%232feqR%23CHHA.4292@TK2MSFTNGP06.phx.gbl...

Re bonjour

Encore besoin d'un petit coup de pouce

j'ai donc dans ma macro
========== >>Range("I2").Select
Selection.NumberFormat = "d/m/yy;@"
Selection.AutoFill Destination:=Range("I2:I273")
Range("I2:I273").Select
========== >>
le problème c'est que si d'une semaine sur l'autre
mon tableau à plus ou moins de lignes je suis coincée

donc comment lui dire de prendre le tableau complet et
de ne pas s'arreter à la ligne 273

merci d'avance

'recopie la formule jusqu'en bas du tableau

Range("E2:E" & [A2].End(xlDown).Row) = [E2].Formula

AV