Figet volets

[apdf1]

Bonjour tout le monde,

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.

Merci d’avance

Cordialement

Max

 

[Guest]

Re : Figet volets

Bonsoir,

Voilà j essaye de figer deux colonnes et deux lignes en VBA

Le code est où dans le fichier.

A+

 

[phlaurent55]

Re : Figet volets

Bonjour apdf,

avec ce code:

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

à+
Philippe

Edit: Bonjour Hasco

 

[apdf1]

Re : Figet volets

Bonjour Philippe,

Et merci beaucoup pour la rapidité.
Si je peu abusé, peut on supprimer la ligne noir qui est vraiment pas très joli.

Merci d’avance

Max

 

[phlaurent55]

Re : Figet volets

Re,

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

 

[apdf1]

Re : Figet volets

Re Bonsoir,

J'ai bien essayé de le faire je n'y suis pas parvenue il reste toujours une ligne noir verticale et une horizontale.

@+

Max

 

[Mrexcel]

Re : Figet volets

Bonsoir le forum


Voila une version finale qui correspond à ta demande

a+

 

[apdf1]

Re : Figet volets

Bonjour,

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

Bien sur si possible

@+
Max

 

[apdf1]

Re : Figet volets

Bonjour,

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.

Cordialement
Max

 

[apdf1]

Re : Figet volets

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

Cordialement

Max

 

[Cousinhub]

Re : Figet volets

Bonjour,

Tu nous as mis un code, qui fonctionne....

Quelle est ta question?

@ te relire

 

[JNP]

Re : Figet volets

Bonjour le fil ,

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

Cordialement

Max

Euhhhhhhhh, ton code fonctionne, tu attends quoi exactement ?
Bon dimanche
Ajout : Salut Bh²

 

[Cousinhub]

Re : Figet volets

Re-,

Salut J-N

Ben oui, toujours peur d'essayer un code....

Au plaisir

 

[apdf1]

Re : Figet volets

Re bonjour,

Je tiens à m'excuser, il ne marcher pas, et du fait que j'ai fermé et rallumer l'ordi sa marche a rien y comprendre.

Merci et excuser moi

Bon Dimanche à tous.

Max