Discussion :

[Damss]

Bonjour à voux tous,

je resollicite votre aide pour une aide dans une prog en VBA.
Dans ma procédure j'ai une sélection active (sélection dont j'ai extrait les infos qui me sont utiles grace à la précieuse aide sur ce forum...^^) et j'aimerais garder cette sélection en y supprimant la dernière ligne.

Malheureusement ou bien évidemment la taille de la sélection est variable ...


merci par avance de vos conseils avisés !

[Krovax]

Un code un peu vieux que j'ai fait à mes début en VBA, surement pas le plus efficace loin de la.
Il te donne aussi la première ligne de la selection.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
bas = 0
haut = 32767  'ou 65536 si tu travail en long
 
For Each rng In Selection
    r = rng.Row
    If r < haut Then
        haut = r
    End If
    If r > bas Then
        bas = r
    End If
Next rng
 
cells(bas,1).EntireRow.Delete

[Qwazerty]

Salut
Je penses que ce que veut Damass ce n'est pas supprimer le contenu mais de modifier la sélection pour garder toute la sélection sauf la dernière ligne de celle ci.
Je te conseil l'utilisation de rezise
[Edit]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Resize(Selection.Rows.Count - 1, Selection.Columns.Count).Select

[/Edit]
A adapter bien sur au besoin
A++
Qwaz

[aalex_38]

Une autre façon de faire, descendre toute en bas de la feuille et remonter jusqu'a la première ligne renseignée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("P1:P" & Range("P65536").End(xlUp)

Ici des exemples précieux par ouskel'n'or