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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Novembre 2020

• #16

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 ...

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 2 Novembre 2020

• #17

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Novembre 2020

• #18

Bonsoir le fil

Juste pour infos
On peut faire du deux en un

VB:

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

 

Vote positif 0 Vote négatif

G

guegan56

XLDnaute Nouveau

• 2 Novembre 2020

• #19

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 😉).

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 2 Novembre 2020

• #20

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

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 2 Novembre 2020

• #21

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...

 

Dernière édition: 2 Novembre 2020

Vote positif 0 Vote négatif

G

guegan56

XLDnaute Nouveau

• 4 Novembre 2020

• #22

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,

 

Pièces jointes

• Testtt.xlsm

  41.7 KB · Affichages: 10

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 4 Novembre 2020

• #23

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.

VB:

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

 

Vote positif 0 Vote négatif

G

guegan56

XLDnaute Nouveau

• 4 Novembre 2020

• #24

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

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 4 Novembre 2020

• #25

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

 

Vote positif 0 Vote négatif