XL 2010 Bouton qui reste visible alors que les lignes sont masquées

[guegan56]

Bonjour

J'ai fait une macro associée à un bouton.
Lorsque je masque la ligne où se trouve le bouton, le bouton reste visible.
Savez vous comment faire pour que le bouton soit affiché si la ligne est affiché

 

[sylvanu]

C'est pour ça que je posais la question. Sur mon 2007 c'est :

Donc effectivement on en peut pas prendre cette valeur par défaut, si elle change en fonction du contexte/version ...

 

[eriiic]

2007 est sorti un 1er avril, ils ont mis plein de bogues blagues partout

 

[Staple1600]

Bonsoir le fil

Juste pour infos
On peut faire du deux en un

Sub MasqueDemasque()
Rows(7).EntireRow.Hidden = Not Rows(7).EntireRow.Hidden
End Sub

1ère exécution: on masque
2nde exécution: on démasque

 

[guegan56]

Bonjour à tous,
Lorsque je ferme mon fichier, mon bouton disparait.
Vous savez à quoi cela put etre dû ?
@sylvanu : Il s'agit d'un fichier pour le travail, si je l'envoie, faut que je supprime plein de données (et puis vous avez facilement trouvé sans ).

 

[soan]

oui, c'est normal : quand tu fermes le fichier, le bouton disparaît,
la feuille de calcul aussi, et le classeur aussi.

bon, à tout hasard, sans voir le fichier, vérifie dans ThisWorkbook
la sub Workbook_BeforeClose() (s'il y en a une... )

soan

 

[eriiic]

Je pense qu'ils n'ont pas disparus, mais se retrouvent avec une hauteur à 0 lors de l'enregistrement.
Rétabli toutes les hauteurs à l'ouverture du fichier et vois si tu les retrouves.
Pas de proposition vu qu'on ne sait même pas quel type d'objet tu utilises.
Formulaire ou ActiveX...
eric

PS : perso je n'aurais pas mis de boutons mais utilisé l'événement clic-droit sur une colonne. Les objets sur feuilles, 5-6 ça va, plus ça se termine souvent mal en plus d'être ch..t à gérer...

 

[guegan56]

Bonjour Eric,

Effectivement, ce n'est pas simple sans fichier.
Je te joins donc une maquette.
Pour information, il s'agissait de bouton activeX qui comme tu l'indiques sont bien qq part dans le fichier.

Ceci étant, j'aimerai parvenir à faire deux choses :
1) bouton pour coller le copier fait au préalable avec redimensionnement de l'image :
Si clic bouton alors coller image entre C58 et D58
idem pour le carré du dessous (si clic nouveau bouton alors coller image entre C61 et D61
l'image ne doit pas excéder les colonnes C et D et la longueur serait à adapter


2) bouton pour afficher des lignes (cf. précédent sujet / j'ai fait ds clic cellules mais ce n'est pas optimale).
Si clic bouton alors afficage lignes 61 et 62

Mon fichier contient des macros pour afficher / masquer des lignes donc peut etre que le bouton foulaire serait mieux ...

NB : Je ne peux pas charger de fichier sur mon pc.

Pourriez vous svp m'indiquer les deux codes à ajouter ?

Grand merci,

 

[eriiic]

Bonjour,

si tu veux bien, on va s'en tenir à l'objet initial de la demande.
Les autres questions devront être dans un nouveau topic avec un titre en rapport.

Sub affObjFeuil()
    ' restitue la hauteur des CommandButton si ligne non masquée
    Dim Obj As OLEObject
    ' ActiveX
    For Each Obj In ActiveSheet.OLEObjects
        Select Case TypeName(Obj.Object)
        Case "CommandButton"
        If Not Obj.TopLeftCell.EntireRow.Hidden Then Obj.Height = Application.Min(20, Obj.TopLeftCell.Height)
        End Select
    Next Obj
End Sub

Je limite la hauteur, adapte selon ton besoin.
eric

 

[guegan56]

j'ai fait le test mais toujours le meme résultat, il finit par "disparaitre" ...

 

[eriiic]

Il faut appeler cette macro à chaque fois que tu démasques des lignes.