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

JulienB

XLDnaute Junior
Rebonjour le forum;

J'ai fait ce bout de code

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

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

Code:
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

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

DAns la même optique que Pierrot

Code:
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
 

JulienB

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

Et encore une fois ... tout bon !

Merci a tous !
 

Discussions similaires


Haut Bas