Voilà j essaye de figer deux colonnes et deux lignes en VBA avec un bouton pour figer et un bouton pour libérer.
Je m’en remets à vous pourriez-vous m’aider.
Sub Bouton1_Clic()
' figer les volets (Bouton ON)
Range("C3").Select
ActiveWindow.FreezePanes = True
End Sub
Sub Bouton2_Clic()
' libérer les volets (Bouton OFF)
ActiveWindow.FreezePanes = False
End Sub
la ligne noire n'est qu'un remplissage de cellule
il suffit de sélectionner les lignes 1 & 2 ensuite clic-droit et "format de cellules"
ensuite " Remplissage", sélectionner "Aucune couleur"
il serait peut-être utile de cocher "Ne pas déplacer et dimensionner ........"
dans les propriétés des boutons
à+
Philippe
Et merci je vois que je ne suis pas seul à se lever de bonne heure.
Figer les lignes et colonnes sa marche très bien mais quand on fige les colonnes et les lignes il reste toujours une ligne noir verticale et une horizontale et ses cette ligne que je voudrais éliminé.
Ce que vous dite et certainement vrai mais je pensé qu’il était possible de soit les supprimer totalement soit de changer de couleur, ont voit tellement de géni dans se domaine que plus rien ne m’étonne.
Mais si non sa ne fait rien.
Merci beaucoup.
Toujours à la recherche de formules je m'en remets à vous les experts
Peut on figer les volets avec le même bouton soit:
"Figer les volets " libérer les volets"
Voila mon code
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Figer les volets" Then
Range("C3").Select
ActiveWindow.FreezePanes = True
CommandButton1.Caption = "Libérer les volets"
Else
ActiveWindow.FreezePanes = False
CommandButton1.Caption = "Figer les volets"
End If
End Sub
Toujours à la recherche de formules je m'en remets à vous les experts
Peut on figer les volets avec le même bouton soit:
"Figer les volets " libérer les volets"
Voila mon code
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Figer les volets" Then
Range("C3").Select
ActiveWindow.FreezePanes = True
CommandButton1.Caption = "Libérer les volets"
Else
ActiveWindow.FreezePanes = False
CommandButton1.Caption = "Figer les volets"
End If
End Sub