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