Selection.End(xlUp) et lignes masquées

[alfazoulou]

bonjour le forum,
j'ai le code suivant qui me sert à remplir un tableau par l'intermédiaire d'un userform:
Range("B57").Select
Selection.End(xlUp)(4).Select
[param_piece].Copy
ActiveSheet.Paste
Application.CutCopyMode = False
donc la valeur contenue dans [param_piece] sera copiée en dessous de la dernière cellule renseignée en laissant un intervalle de 2 lignes.
Il se peut que j'ai des lignes masquées dans le tableau.
Si mon code s'exécute alors que la dernière cellule renseignée est masquée je n'ai pas mes deux lignes entre les deux.
Pouvez vous m'aider SVP?

 

[ledzepfred]

Re : Selection.End(xlUp) et lignes masquées

dans ce cas donne un nom à cette dernière cellule renseignée
ActiveWorkbook.Names.Add Name:="etiquette", RefersToR1C1:=ActiveCell
puis colle parampiece à etiquette +2 lignes
[etiquette].Offset(2, 0).select
activeshhet.paste

ou [etiquette].Offset(2, 0).pastespecial

que certaines cellules soit affichées ou masquées l'intervalle de deux lignes sera toujours respecté
a+

 

[alfazoulou]

Re : Selection.End(xlUp) et lignes masquées

dans ce cas donne un nom à cette dernière cellule renseignée
ActiveWorkbook.Names.Add Name:="etiquette", RefersToR1C1:=ActiveCell
puis colle parampiece à etiquette +2 lignes
[etiquette].Offset(2, 0).select
activeshhet.paste

ou [etiquette].Offset(2, 0).pastespecial

que certaines cellules soit affichées ou masquées l'intervalle de deux lignes sera toujours respecté
a+

c'est à dire que je ne sait pas à l'avance quelle sera la dernière cellule renseignée, donc... problème.

 

[alfazoulou]

Re : Selection.End(xlUp) et lignes masquées

j'ai bien trouvé une manière détournée de régler ce probleme dans le code qui masque les ligne j'ajoute une ligne en dessous en police blanche donc invisible, mais j'aurais voulu savoir s'il existait un moyen VBA pour que les lignes masquées soient prises en compte.

 

[ledzepfred]

Re : Selection.End(xlUp) et lignes masquées

comment sont masquées tes lignes (hauteur=0 ou filtre)
essayes de mettre ton fichier sur le post je regarderai demain matin pour trouver une soluce.

a+