(résolu) caption dans un commandbutton

[pascal21]

bonjour le forum
je cherche comment faire pour afficher le contenu de la derniere ligne d'un tableau à l'inizialise de l'usf dans un commandbutton

commandbutton4.caption =
Sheets("table").Range("A" & Range("A65536").End(xlUp).Row + 0).Select
ActiveCell.Offset(0, 1).Select

ActiveCell.Offset(0, 1).Select

ActiveCell.Offset(0, 8).Select

voila ce que je souhaite recopier
mais je ne sais pas comment assembler tout ça
merci de votre aide

 

[13GIBE59]

Bonjour pascal21,

Ca ne devrait pas être trop dur à faire, mais joins plutôt un fichier qu'on puisse voir de quoi il s'agit...

A plus.

 

[pascal21]

bonjour
c'est bon j'ai trouvé une astuce
j'ai mis dans une cellule en haut de tableau, une formule recherche de la dernière valeur de chaque colonne

=RECHERCHE("zzz";A10:A1000)
pour le texte
=DECALER(B10;EQUIV(9^9;B10:B1000;1)-1;;)
et ça pour la date

et je recopie ces cellules dans le caption du bouton
plus simple en faite

 

[ERIC S]

Bonjour
simple ?

peut-être que :

commandbutton4.caption =
Sheets("table").Range("A" & Range("A65536").End(xlUp).Row + 0).value

serait plus joli

 

[pascal21]

Mais ton code recopie toutes les cellules de la dernière ligne alors que je n'en veux que 3

 

[ERIC S]

Re

regarde l'intitulé de ton post, que demandes-tu ?

regarde la remarque de 13GIBE59

Conclusion : il nous est difficile d'être dans ta tête. pour une demande imprécise tu recevras (ou pas) des réponses de principe, car on ne peut souvent pas faire d'essai, à adapter. Ce qui est d'ailleurs la meilleure façon de progresser.

d'ailleurs depuis 2007 le nb de lignes a augmenté et j'utiliserais plutôt ;

Sheets("table").Range("A" & rows.count).End(xlUp).Row

toujours sans essai ...

 

[laetitia90]

bonjour tous
comme d'habitude un fichier exemple bien plus simple

 

[13GIBE59]

"je cherche comment faire pour afficher le contenu de la derniere ligne"
et
"Mais ton code recopie toutes les cellules de la dernière ligne alors que je n'en veux que 3"

le tout sans fichier...

= grosse incompréhension

 

[laetitia90]

re
un exemple basique sans fichier au depart pas de caption sur le boton

Private Sub UserForm_Initialize()
  With Sheets("table")
   i = .Cells(Columns(1).Cells.Count, 1).End(3).Row
   CommandButton1.Caption = .Cells(i, 1).Value & .Cells(i, 2).Value & .Cells(i, 8).Value
End With
End Sub