[RÉSOLU] Existe -til une Macro pour affecter une macro à ce classeur

[un internaute]

Bonsoir le forum
Tout est dans le titre.
Merci pour d'éventuels retours
Bien cordialement

 

[un internaute]

Re-bonjour Ce lien n'existe plus
Bonjour ce matin à 6:56
Si tel n'est pas le cas Re Re Re-Bonjour!!!
Merci à tous
Ça fonctionne SUPER
Bonne fin de WE

 

[Staple1600]

Re

@un internaute
Tu as aussi testé cette version de ta macro?

Sub AfficherMasquerDistanceMoisPrecedent()
ActiveSheet.Unprotect
With ActiveSheet
.Rows("5:5").Hidden = Not .Rows("5:5").Hidden
End With
End Sub

PS: A 6h56 j'étais encore dans mon lit 😉

 

[Lone-wolf]

Re

@un internaute : Voici la version sans boutons.

@Staple1600: merci pour la simplification.

EDIT @mapomme: 😀😀😀 (LIEN)

 

[un internaute]

Encore un GRAND merci à tous
Bonne fin de WE
Bien cordialement

 

[Si...]

Bon_jour

Toujours allergique aux boutons et partisan du moindre effort, dans ThisWorkbook (clic en A4 avec effet bascule donc plus de bouton !)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
  If R.Address = "$A$4" And R.Count = 1 Then Rows(5).Hidden = Not Rows(5).Hidden: R(1, 2).Select
End Sub

 

[Lone-wolf]

Bonjour Si... 🙂

@Si... : If au partisan du moindre effort il y a des boutons Then Supprime les boutons 😉😀

 

[Staple1600]

Re, Bonjour Si...

Variante de syntaxe, si il s'agit d'éviter l'effort de saisie du If/End if

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
Rows(5).Hidden = Not Rows(5).Hidden = (R.Address = "$A$4" And R.Count = 1)
End Sub

 

[un internaute]

Bonjour Ce lien n'existe plus...
CHAPEAU
Je ferme le micro car je n'en peux!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bonne fin de WE
Bien cordialement

 

[Staple1600]

Re,

Selon l'usage, cette version pourrait peut-être suffire.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
Rows(5).Hidden = (R.Address = "$A$4" And R.Count = 1)
End Sub

 

[Si...]

Re

Lone , pour moi, la macro s'écrit selon le contexte. Je n'ai pas précisé qu'il fallait supprimer cette poussée d'acné car, dès le début, j'aurais évité d'insérer les contrôles 😎.

Re,
Selon l'usage, cette version pourrait peut-être suffire.

Staple, j'ai trouvé dommage de supprimer l'effet de va et vient car j'aime bien basculer dans : «un coup je …, un coup je ne …» (ou vis versa) 😎.

 

[Staple1600]

Re

Juste à titre d'expérience (et sans préoccupation d'éventuels effets de bord)
Ca fonctionne aussi ainsi

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
Rows(5).Hidden = R.Row = 4
End Sub

 

[Si...]

re

PS: ton code amendé dans mon message#22, supprime un effort mais garde la bascule.

J'aime bien aussi m'amender surtout honorablement 😛.

Cela t'a quand même demandé un effort supplémentaire non ?

On ne "bascule" pas de la même façon : avec ton code, il changer de sélection puis revenir basculer alors qu'avec le mien, on se contente de revenir pour le faire. Une étape de moins demande une légère complication du code.

Pour les boutons, on peut aussi didposer de celui dit bascule (ToggleButton)

Private Sub ToggleButton1_Click()
  Rows(5).Hidden = ToggleButton1
End Sub

 

[job75]

Il s'agit de donner à manger à mon VBE pour éviter qu'il ne s'ennuie en ce samedi aprés-midi.

Faut lui donner autre chose que des croquettes, aucune de ces 2 instructions n'est valable :

R.Row.Hidden = R.Row = 4

R.Hidden = R.Row = 4