Dernière ligne non vide (et non dernière cellule)

Dranreb

XLDnaute Barbatruc

• 19 Avril 2011

• #2

Re : Dernière ligne non vide (et non dernière cellule)

Bonjour.
Utiliser peut être plutôt ActiveSheet.UsedRange
À+

 

Vote positif 0 Vote négatif

P

Pseudoto

XLDnaute Nouveau

• 19 Avril 2011

• #3

Re : Dernière ligne non vide (et non dernière cellule)

Merci Dranreb,

C'était une de mes pistes...mais ensuite, comment sélectionner la ligne juste en dessous de ce range ainsi constitué ?

L'idée est bien de coller (voir même de décaler d'une ligne) un second bloc, à la suite d'un premier ...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Avril 2011

• #4

Re : Dernière ligne non vide (et non dernière cellule)

La ligne en dessous d'une plage définie PlgX peut s'écrire PlgX.Rows(PlgX.Rows.Count+1)

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 19 Avril 2011

• #5

Re : Dernière ligne non vide (et non dernière cellule)

Bonjour,
à tester :

Code:

Sub dernièreligneFeuille()
Dim Derligne&, LigneSuivante&
Derligne = Sheets(1).Cells.Find("*", , , , xlByRows, xlPrevious).Row
LigneSuivante = Derligne + 1
MsgBox LigneSuivante
End Sub

Voir également :

Formation Excel VBA JB

Cliquez pour agrandir...

=>Gestion des cellules=> dernière ligne d'un champ.
A+

 

Vote positif 0 Vote négatif

P

Pseudoto

XLDnaute Nouveau

• 19 Avril 2011

• #6

Re : Dernière ligne non vide (et non dernière cellule)

Merci de cette nouvelle aide...que j'ai aussi testé. Là franchement, y'a des choses que je ne comprends pas.

Pourquoi par exemple :

Code:

Sheets("2011.test").Select
    UsedRange.Select
    Rows(8).EntireRow.Select

marche et

Code:

Sheets("2011.test").Usedrange.select
Rows(8).EntireRow.Select

ne marche pas oO

Par ailleurs, pour le PlgX, comment je peux la définir comme étant l'usedrange de ma feuille ? Est ce une donnée type range que je vais pouvoir utiliser dans mon filtre élaboré ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Avril 2011

• #7

Re : Dernière ligne non vide (et non dernière cellule)

Absolument. Partout ou une méthode attend un Range on peut lui passer une variable de type Range correctement initialisée, ou toute expression de type Range telle que mon exemple. Et elle peut de même servir de qualificateur de toute méthode de l'objet Range.

 

Dernière édition: 19 Avril 2011

Vote positif 0 Vote négatif

P

Pseudoto

XLDnaute Nouveau

• 19 Avril 2011

• #8

Re : Dernière ligne non vide (et non dernière cellule)

Alors :

@david84 : je connaissais le site. Mais hormis si je suis neuneu, la procédure qu'il donne pour une ligne donne bel et bien une cellule (je viens de tester sa macro) et non une ligne, ce qui m'est nécessaire dans le cas d'un filtre élaboré où je vais coller dans une ligne.

@Dranreb : pour définir PlgX, j'essaie de faire

Code:

Dim Plgx
Sheets("2011.test").Select
Plgx = Activesheet.Usedrange

??

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Avril 2011

• #9

Re : Dernière ligne non vide (et non dernière cellule)

Dim Plgx As Range
et oui.

AH NON !!!!!
Set PlgX = Expression range

 

Dernière édition: 19 Avril 2011

Vote positif 0 Vote négatif

P

Pseudoto

XLDnaute Nouveau

• 19 Avril 2011

• #10

Re : Dernière ligne non vide (et non dernière cellule)

Hahem ...

Bon alors, dans l'ordre des tests :

La macro de david 84 permet bien de récup le numéro de la ligne suivant la dernière ligne non vide de la feuille...bon.

Ensuite, j'ai commencé à faire

Code:

   Call dernièreligneFeuille2
    
    Set PlgX = Expression range
    Plgx = Sheets("2011.test").Rows(LigneSuivante)

Mais ça me renvoie ma 34567e erreurs de la journée :/

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Avril 2011

• #11

Re : Dernière ligne non vide (et non dernière cellule)

Toujours affecter par un Set une expression Range à une variable Range:

VB:

Set Plgx = Sheets("2011.test").Rows(LigneSuivante)

sinon il essaie de travailler avec la propriété par défaut de l'objet Range qui est Value.
Bonne soirée.

 

Vote positif 0 Vote négatif

P

Pseudoto

XLDnaute Nouveau

• 19 Avril 2011

• #12

Re : Dernière ligne non vide (et non dernière cellule)

Je ne comprends pas tout Dranreb, je suis vraiment débutant (même si de beaux restes quand même).

Mon soucis est : si j'ai déclaré ce Plgx, pourquoi je ne peux pas ensuite l'utiliser, par exemple avec

Code:

Plgx.Select

Alors que c'est un range ...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Avril 2011

• #13

Re : Dernière ligne non vide (et non dernière cellule)

Boujour
Vous pouvez tout à fait executer Plgx.Select si Plgx est une variable Range correctement initialisée, c'est à dire si elle correspond à une plage de cellules bien définie d'une feuille de calcul. Cette définition se fait en y affectant préalablement par un Set une expression Range qui représente cette plage.
À+

 

Vote positif 0 Vote négatif

P

Pseudoto

XLDnaute Nouveau

• 20 Avril 2011

• #14

Re : Dernière ligne non vide (et non dernière cellule)

Bonjour,

Merci de votre aide et après avoir visionné quelques tutoriaux mode débutant, le problème venait bien de la définition du range.

En utilisant la macro donnée plus haut pour le saut de 2 lignes, j'ai obtenu ça :

Code:

    Sheets("2011.test").Select
    Set plagesuivante = Intersect(ActiveSheet.Range("A:M"), ActiveSheet.Rows(numerosaut2lignes()))
    
    Sheets("Données").Range("A1:M65536").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Sheets("Données").Range("P1:Q2"), CopyToRange:=plagesuivante, Unique:=False

Ce ne fut pas sans transpirer 😱

 

Vote positif 0 Vote négatif