[XLS 2003] : Bug dans une Selection.End(xlDown).Select

[JulienB]

Rebonjour le forum;

J'ai fait ce bout de code

      Sheets("Y").Select
        Range("A3").Select
        Selection.End(xlDown).Select
        i = ActiveCell.Row + 1
        Range("A" & i).Value = Range("A" & i - 1).Value + 1
        Range("B" & i).Value = PROJET

Il me permet de me placer dans un onglet y de me placer sur la derniere ligne vide(A5), d'incrementer la cellule A5 par rapport a la cellule superieur et de placer la valeur de la variable PROJET dans la cellule B5

Cela fonctionne, si ..si !

Sauf que :

Je suis obligé d'avoir déjà un point de départ numérique (c'est à dire "1") en A4... alors qu'en A3 j'ai une entete de colonne.. donc une cellule non vide...

C'est n'est pas bloquant mais c'est pas propre...

A vos avis !

++

 

[Pierrot93]

Re : [XLS 2003] : Bug dans une Selection.End(xlDown).Select

Bonjour Julien,

essaye ceci, à noter qu'en vba il est rarement nécessaire de sélectionner les objets...

With Sheets("Y")
    .Range("A65536").End(xlUp)(2).Value = .Range("A65536").End(xlUp)(1)
    .Range("A65536").End(xlUp)(1).Offset(0, 1).Value = PROJET
End With

bon après midi
@+

 

[Habitude]

Re : [XLS 2003] : Bug dans une Selection.End(xlDown).Select

DAns la même optique que Pierrot

With Sheets("Y")
    .Range("A65536").End(xlUp)(2).Value = IIf(IsNumeric(.Range("A65536").End(xlUp)(1)), .Range("A65536").End(xlUp)(1), 0) + 1
    .Range("A65536").End(xlUp)(1).Offset(0, 1).Value = PROJET
End With

 

[Pierrot93]

Re : [XLS 2003] : Bug dans une Selection.End(xlDown).Select

Re,

Aarf, perso avais zappé le +1....

 

[JulienB]

Re : [XLS 2003] : Bug dans une Selection.End(xlDown).Select

Et encore une fois ... tout bon !

Merci a tous !