un seul bouton pour afficher ou masquer

[PGPC]

Bonjour à tous , gens du Forum

j'espère que vous avez tous passez un excellent Week end?
mais ce n'est pas tout , il faut vous remettre au boulot!....

Voilà mon problème qui est simple

je voudrai qu'a partir d'un seul bouton ,et du (code que j'ai trouvé SUR XLD ) que vous puissier modifier LE BOUTON ET LE CODE par exemple un double clic sur celui-ci pour pouvoir masquer ou afficher les colonnes et ligne en jaune qui se trouve dans le fichier joint

A l'avance je vous remercie pour votre aide

PGPC

 

[LaurentTBT]

Bonjour,

Tu mets, dans ta propriété "Caption" de ton Bouton, par exemple, "Masquer" (Clic droit sur le bouton pour afficher les propriétés) et tu mets ce code:
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Masquer" Then
Columns("D😀").EntireColumn.Hidden = True
CommandButton1.Caption = "Afficher"
Else
Columns("D😀").EntireColumn.Hidden = False
CommandButton1.Caption = "Masquer"
End If
End Sub

Bon dimanche.

 

[PGPC]

Salut Laurent ,salut le forum.

pour afficher et masquer c'est ok par contre je voudrai que tu me modifies ,ou que quelqu'un puissee me modifier la formule ...

Je souhaiterais par exemple
masquer la colonne D
" F
et la ligne A7
et "" "" A13

MERCI beaucoup a tous....

à l'origine , j'avais trouvé cela sur le forum

Private Sub CommandButton1_Click()
Columns("D😀").EntireColumn.Hidden = True
End Sub

 

[PGPC]

Rebonsoir le Forum,

1/Voilà je voudrai que quelqu'un puisse me dire s'il n'y à pas une meilleur façon d'ecrire le code ci dessous "c'est le code de laurent que j'ai adapté"
SI OUI? COMMENT

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Masquer" Then
Columns("D😀").EntireColumn.Hidden = True
Columns("H:H").EntireColumn.Hidden = True
Columns("I:I").EntireColumn.Hidden = True

CommandButton1.Caption = "Afficher"
Else
Columns("D😀").EntireColumn.Hidden = False
Columns("H:H").EntireColumn.Hidden = False
Columns("I:I").EntireColumn.Hidden = False
CommandButton1.Caption = "Masquer"
End If
End Sub

2/ Est-ce que quelqu'un pourrait m'écrire un code pour supprimer juste des lignes
par exemple ligne A5 _Ligne A6 et ligne A9

(Cà c'est pour sauvegarder et utiliser le jour ou je vais en avoir besoin)


3/Est -i possible d'associer à un seul bouton la supression de ces colonnes
D__H__ I___

ET de ces ligne A5 _Ligne A6 et ligne A9

Si quelqu'un avait la gentillesse de me faire profiter de ses connaissances ce serait sympa

bonne fin de soirée à tous

CORDIALEMENT

 

[LaurentTBT]

Bonjour à tous,

1- PGPC, tu peux écrire en une seule ligne les 3 actions sur tes colonnes ainsi:
Range("D😀, H:H, I:I").EntireColumn.Hidden = True (ou false)

2- Pour supprimer des lignes:
Range("A6,A7,A9").EntireRow.Delete

3- Pour supprimer des lignes ET des colonnes, tu peux le faire dans une même macro, mais il faudra 2 lignes:
Range("D😀, H:H, I:I").EntireColumn.Delete
Range("A6,A7,A9").EntireRow.Delete
(Lignes à mettre dans la procédure CommandButon_Click

Bonne journée…