Bouton associé a deux macros

Fermé

ashile - Modifié par pijaku le 19/06/2014 à 13:59
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 19 juin 2014 à 14:12

Bonjour,
j'aimerai bien realiser un bouton qui realise deux fonctions(une fois masquer les ligne et l autre afficher les lignes masquées ) differentes voici la solution que j ai trouvé mais il y a une erreur lors de la compilation apparament un probleme avec la fonction ActiveSheet
voici mon code

Sub masquer_ligne()
Dim cel As Range
For Each cel In Range("G1:G90")
If cel = "0" Then
cel.EntireRow.Hidden = True
End If
Next
ActiveSheet.Shapes("MonBouton").Select
Selection.Characters.Text = "Masquer"
Range("Q2").Select
End Sub
Sub Afficher_ligne()
Dim cel As Range
For Each cel In Range("G1:G90")
If cel = "0" Then
cel.EntireRow.Hidden = False
End If
Next
ActiveSheet.Shapes("MonBouton").Select
Selection.Characters.Text = "Afficher"
Range("Q2").Select
End Sub

merci d'avance

A voir également:

Bouton associé a deux macros
Deux comptes whatsapp - Guide
Bouton shift pc ✓ - Forum Jeux vidéo
Deux ecran pc - Guide
Réinitialiser chromecast sans bouton - Guide
Supprimer une conversation messenger pour les deux personnes ✓ - Forum Facebook

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
19 juin 2014 à 10:15

Bonjour,

Utilise un ToogleButton

Voir ceci à adapter:

http://www.vbaexpress.com/kb/getarticle.php?kb_id=416

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
19 juin 2014 à 14:12

Bonjour,

mais il y a une erreur lors de la compilation apparament un probleme avec la fonction ActiveSheet
Ce n'est pas ActiveSheet qui bloque, mais Characters.Text. Elle ne se rapporte pas au Shape, mais à la propriété TextFrame des Shapes.

Utilise un ToogleButton
Ou alors, utilises un code qui affiche ou masque selon le "caption" de ton bouton :

Sub Afficher_Masquer_ligne()
Dim cel As Range, Test As Boolean

If ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Masquer" Then
    Test = True
    ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Afficher"
Else
    Test = False
    ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Masquer"
End If
For Each cel In Range("G1:G90")
    If cel = "0" Then
        cel.EntireRow.Hidden = Test
    End If
Next
Range("Q2").Select
End Sub

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?

Un seul de mes écouteurs marche. Que faire ?

J'ai 2 comptes le bon coin avec le meme numéro de téléphone.

Bouton ON OFF, O ou I ?

2 comptes facebook avec même mail et même nom

Discussions similaires

Newsletters