(résolu) caption dans un commandbutton

13GIBE59

XLDnaute Accro

• 6 Janvier 2017

• #2

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.

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 6 Janvier 2017

• #3

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

Code:

=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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 6 Janvier 2017

• #4

Bonjour
simple ?

peut-être que :

Code:

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

serait plus joli

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 7 Janvier 2017

• #5

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 7 Janvier 2017

• #6

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 ;

Code:

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

toujours sans essai ...

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 7 Janvier 2017

• #7

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

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 7 Janvier 2017

• #8

"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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 7 Janvier 2017

• #9

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

VB:

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

 

Vote positif 0 Vote négatif