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 Bouton changeant

Bouton changeant

13 réponses
Avatar
Crel
Bonjour à toutes et tous.
Je désire savoir comment faire afin qu'en cliquant sur un bouton, celui-ci
change d'intitulé
par exemple : Ouvrir / Fermé
Merci beaucoup.
Patrick
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
1 2
Avatar
FxM
Laurent M wrote:

change d'intitulé
par exemple : Ouvrir / Fermé



Vérifie voir si ton bouton n'accepterait pas une propriété .Caption
J'ai fait cela il y a quelques temps avec un togglebutton mais je
n'arrive pas à remettre la main dessus.
<snip>

Plus d'une heure pour remettre la main dessus, mais c'est là :
(Le bouton s'appelant Btn_type_verif)

Private Sub Btn_type_verif_Click()
With Btn_type_verif
If .Value = True Then
.Caption = "Complète" & vbCrLf & "(P=6/6, t=6/6)"
Range("x56").Value = Range("AI56").Value
Else
.Caption = "Simplifiée" & vbCrLf & "(P=6/5, t=3/0)"
Range("x56").Value = Range("AJ56").Value
End If
End With
acs = ActiveSheet.Name
Worksheets("Données PTZ").Activate
testcache
Sheets(acs).Activate
End Sub

@+
FxM



Avatar
Crel
Merci beaucoup Laurent, c'est très sympa de ta part.
Patrick.

"Laurent M" a écrit dans le message de news:

Crel wrote:
change d'intitulé
par exemple : Ouvrir / Fermé


Tu crées un bouton, auquel tu associes une macro du genre:

Sub Bouton1_QuandClic()
Dim x As Range
Set x = ActiveCell
ActiveSheet.Shapes(Application.Caller).Select
If Selection.Characters.Text = "Ouvrir" Then
Selection.Characters.Text = "Fermer"
Else
Selection.Characters.Text = "Ouvrir"
End If
x.Select
End Sub


A+

Laurent M.




Avatar
Crel
Mille merci François, c'est vraiment trop sympa, ta gentillesse et ta
compétence m'impressionnent vraiment.
Patrick.

"FxM" a écrit dans le message de news:

Laurent M wrote:

change d'intitulé
par exemple : Ouvrir / Fermé



Vérifie voir si ton bouton n'accepterait pas une propriété .Caption
J'ai fait cela il y a quelques temps avec un togglebutton mais je
n'arrive pas à remettre la main dessus.
<snip>

Plus d'une heure pour remettre la main dessus, mais c'est là :
(Le bouton s'appelant Btn_type_verif)

Private Sub Btn_type_verif_Click()
With Btn_type_verif
If .Value = True Then
.Caption = "Complète" & vbCrLf & "(P=6/6, t=6/6)"
Range("x56").Value = Range("AI56").Value
Else
.Caption = "Simplifiée" & vbCrLf & "(P=6/5, t=3/0)"
Range("x56").Value = Range("AJ56").Value
End If
End With
acs = ActiveSheet.Name
Worksheets("Données PTZ").Activate
testcache
Sheets(acs).Activate
End Sub

@+
FxM






1 2