[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 !
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas