Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel référence d'une cellule sur un bouton

référence d'une cellule sur un bouton

3 réponses
Avatar
Daniel
Bonsoir à tous

Peut t'on avoir comme texte d'un bouton le contenue d'une cellule ?
Dans cette cellule j'ai une somme de ligne visible après un filtre.
Merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Yann
Salut Daniel,
Tu peux utiliser ce code...

Sub ChangeButtonName
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = Evaluate("=SUBTOTAL
(9,B2:B10)")
End Sub

Yann

-----Message d'origine-----
Bonsoir à tous

Peut t'on avoir comme texte d'un bouton le contenue
d'une cellule ?

Dans cette cellule j'ai une somme de ligne visible après
un filtre.

Merci


.



Avatar
Daniel
Bonsoir Yann
Je n'arrive pas a faire fonctionner cette macro.

Ces le mot "imprimer" qui est dans le bouton que je veut remplacer par ce
qui"il y a dans la cellule "N1" de la feuille "Base".

Voici la macro qui est sous le bouton avec le texte "Imprimer" dans la
feuille "Base"

Sub imp_défault()
'
' imp_défault Macro
' Macro recorded 2003/09/06 by pellet15
' pour imprimer les défaut sélectionner
Windows("Insp_RDP.xls:3").Activate
ActiveWindow.SmallScroll ToRight:=5
Range("L1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToLeft)).Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Selection.PrintOut Copies:=1, Collate:=True
Range("B1").Select
End Sub


"Yann" a écrit dans le message de
news:1c0701c485c3$814bec50$
Salut Daniel,
Tu peux utiliser ce code...

Sub ChangeButtonName
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = Evaluate("=SUBTOTAL
(9,B2:B10)")
End Sub

Yann

-----Message d'origine-----
Bonsoir à tous

Peut t'on avoir comme texte d'un bouton le contenue
d'une cellule ?

Dans cette cellule j'ai une somme de ligne visible après
un filtre.

Merci


.



Avatar
Daniel
Bonsoir Yann
Je n'arrive pas a faire fonctionner cette macro.

Ces le mot "imprimer" qui est dans le bouton que je veut remplacer par ce
qui"il y a dans la cellule "N1" de la feuille "Base".

Voici la macro qui est sous le bouton avec le texte "Imprimer" dans la
feuille "Base"

Sub imp_défault()
'
' imp_défault Macro
' Macro recorded 2003/09/06 by pellet15
' pour imprimer les défaut sélectionner
Windows("Insp_RDP.xls:3").Activate
ActiveWindow.SmallScroll ToRight:=5
Range("L1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToLeft)).Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Selection.PrintOut Copies:=1, Collate:=True
Range("B1").Select
End Sub


"Yann" a écrit dans le message de
news:1c0701c485c3$814bec50$
Salut Daniel,
Tu peux utiliser ce code...

Sub ChangeButtonName
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = Evaluate("=SUBTOTAL
(9,B2:B10)")
End Sub

Yann

-----Message d'origine-----
Bonsoir à tous

Peut t'on avoir comme texte d'un bouton le contenue
d'une cellule ?

Dans cette cellule j'ai une somme de ligne visible après
un filtre.

Merci


.