Selection des deux dernières lignes non vide

[Jeremy992]

Bonjour à tous,

Voila, je pense que ce ne doit pas être compliqué mais je n'arrive pas à trouver comment sélectionner les deux dernières lignes non vide de mon tableau...

Ce que j'aimerais faire:

Sélectionner les deux dernières lignes non vide, effacer les données contenu + enlever remplissage (couleur).
Bien sur, la plage de ces deux dernières lignes est variable.

Si vous désirez que je joint un fichier exemple il n'y a pas de soucis

Merci à ceux qui prendrons le temps de me lire et de me répondre.

 

[Pierrot93]

Re : Selection des deux dernières lignes non vide

Bonjour,

peut on se baser sur une colonne précise ?
peut il y avoir une ou des lignes vides entre les 2 non vides ??

plus de questions que de réponses...


bonne journée
@+

 

[clf]

Re : Selection des deux dernières lignes non vide

Bonjour,

Sub Macro3()
Range("a1000000").End(xlUp).Select
ActiveCell.Offset(-1, 0).Range("A1:A2").EntireRow.Delete
Range("a1").Select
End Sub

Cordialement

 

[Jeremy992]

Re : Selection des deux dernières lignes non vide

Bonjour Pierrot93,

Oui effectivement tu as raison.

On peut ce basé sur la colonne A, il n'y as pas de ligne vide entre.
Cette action est permise grâce au bouton "Retour Arrière"

Je joint un fichier exemple, ce sera plus simple et cela te permettra de prendre connaissance du fichier

 

[Jeremy992]

Re : Selection des deux dernières lignes non vide

Bonjour clf,

C'est ce que je veux faire, mais sans supprimer les lignes, simplement en les vidant

 

[clf]

Re : Selection des deux dernières lignes non vide

Ceci efface contenu et formats

ActiveCell.Offset(-1, 0).Range("A1:A2").EntireRow.Delete

 

[Pierrot93]

Re : Selection des deux dernières lignes non vide

Re,

essaye ceci, nom de la feuille à adapter ou à supprimer pour agir sur feuille active :

Sheets("NomFeuille").Cells(Rows.Count, 1).End(xlUp).Offset(-1).Resize(2).Clear

 

[Jeremy992]

Re : Selection des deux dernières lignes non vide

J'ai fait ça

Range("a1000000").End(xlUp).Select
ActiveCell.Offset(-1, 0).Range("A1:J2").EntireRow.ClearContents
ActiveCell.Offset(-1, 0).Range("A1:J2").Interior.Color = xlNone

Et cela fonctionne !

Pierrot93, ton code ne fonctionne pas car j'ai des cellule fusionnées :/

Merci a vous tous

 

[Pierrot93]

Re : Selection des deux dernières lignes non vide

Re,

Aarf testé le mauvais onglet moi... mais le premier était vide de toute donnée...
bizarre ton truc :

ActiveCell.Offset(-1, 0).Range("A1:J2").EntireRow

bon après midi
@+

 

[Jeremy992]

Re : Selection des deux dernières lignes non vide

Ah bon?
Pourquoi étrange?? (je suis curieux désolé ^^)

 

[Pierrot93]

Re : Selection des deux dernières lignes non vide

Re,

Pourquoi étrange??

bah.. le fait de spécifier ces 2 cellules...

Range("A1:J2")

et d'utiliser "activecell"

je pensais que tu voulais la déterminer....

 

[Pierrot93]

Re : Selection des deux dernières lignes non vide

Re,

on doit pouvoir aussi coder ainsi :

With Cells(Rows.Count, 1).End(xlUp).Offset(-1).Resize(2, 3)
    .Value = ""
    .Interior.Color = xlNone
End With