Pourquoi avec 1 end(xldown).row il me selecionne les lignes blanches ?

[Creepy]

Bonjour à tous,

Situation : Je récupére dans un tableau des données de diferérentes cellules (formule : =$A$5 par exemple), puis je fais un tri par ordre décroissant.

Deja j'ai remarqué que si je ne faisais pas un copier/coller valeur, mon tri décroissant était anarchique j'ai donc ajouté dans ma macro
un copier/coller valeur (Cf 1) et mon tri est OK.

Ensuite je ne voudrais selectionner que les cases remplie, car le nombre de cellule remplie dans le tableau peux aller de 5 à 20. J'ai me suis donc dit pour récuperer ma dernière ligne avec du texte fait un beau :

L = Range("A35").End(xlDown).Row

Et là au malheur !! Il me selectionne aussi les lignes vierges en dessous et je ne sais pas pourquoi !! ?? !!

Merci de votre aide

Creepy

--------------------------------------------------------------------------
Private Sub GenGraph_Click()
Dim L As Integer
Dim I As Byte

Range("a35").Select

Range("A35:B55").Select

Selection.Copy <--- 1
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Range("A35").Select

L = Range("A35").End(xlDown).Row

Range("A35:B" & L).Select
Selection.Sort Key1:=Range("B37"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

If InfosContrib.BtnPositif.Value = True Then
Range("A34").Value = "TOTAL FRANCE"
Range("B34").Value = "100"

ElseIf InfosContrib.BtnNegatif.Value = False Then
Range("a" & L + 1).Value = "TOTAL FRANCE"
Range("b" & L + 1).Value = "-100"

End If
End Sub

 

[sylvain]

bonsoir,

as-tu essayé a65536-xlup ?

<http://disciplus.simplex.free.fr/xl/debuter.htm#dernierecellule>

A+

 

[zon]

Bonsoir à tous,



Creepy,

Pourquoi ce copier collage special sur la meme Range ?

A+++

 

[Creepy]

Lo all,

Parce que sinon mon tri decroissant se faisait de facon anrchique, dans le désordre et je ne sais pas pkoa !! ?? !!

C la seule solution que jai trouvé !!

++

Creepy

 

[Valérie]

Salut à tous,

salut Creepy,
Es-tu sur que tes cellules ne contiennent rien du tout... Genre un espace par exemple...

Est ce qu'à la main cela fait tout pareil en te plaçant sur A35 et Ctrl flèche vers le bas il va où?

@+
Valérie