Fixer une zone texte sr ma feuille

Bonjour

J'ai une zone de texte nommé Groupe_Num_Dept est j'aimerais la fixer sur la feuille de façon quelle ne puise plus se déplacer en sachant que je peux la masquer a l'aide d'un CheckBox.

J'avais commencé ceci mais BON !!!

'  CheckBox Département et Préfecture
Private Sub CheckBox_Num_Dept_Click()

Dim L!, T!, H!, W!
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, L, T, W, H).Select
   CheckBox_Num_Dept.Caption = IIf(CheckBox_Num_Dept, "Avec  N° de Département", "Sans  N° de Département")

     With Selection

     .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    If CheckBox_Num_Dept.Value = -1 Then ActiveSheet.Shapes("Groupe_Num_Dept").Visible = True
    If CheckBox_Num_Dept.Value = 0 Then ActiveSheet.Shapes("Groupe_Num_Dept").Visible = False

    H = 350    ' hauteur,Height
    W = 200    ' largeur,Width
    L = 100    ' position horizontale,Left
    T = 100   ' position verticale,Top
End Sub

Pour illustrer ma demande, je joins un fichier.

Je vous remercie de votre aide

Cordialement

Max

Bonsoir

Que ce soit avec celui-ci ou avec celui de ce post https://forum.excel-pratique.com/excel/changer-de-couleur-de-police-t30269.html, j'ai des difficultés à le lire (surtout à le faire fonctionner)

Serait-il possible de les mettre au format xls

merci

Bonjour Banzai

Merci d'avoir répondu

Voila en XLS

@+

Max

Bonjour

Je ne sais pas si cela va t'aider

J'ai affecter une macro au groupe

Sub Groupe_Num_Dept_QuandClic()
  ActiveSheet.Shapes("Groupe_Num_Dept").Left = 42
  ActiveSheet.Shapes("Groupe_Num_Dept").Top = 45.75
End Sub

Ou peut-être mettre ce code en début de la macro hihihi

Re,

Oui déjà on a la position sur la feuille qui n'est pas négligeable.

Maintenant est possible de bloquer la zone texte de ne pas pouvoir la déplacer sur la feuille ?

Private Sub CheckBox_Num_Dept_Click()
   CheckBox_Num_Dept.Caption = IIf(CheckBox_Num_Dept, "Avec  N° de Département", "Sans  N° de Département")

    If CheckBox_Num_Dept.Value = -1 Then ActiveSheet.Shapes("Groupe_Num_Dept").Visible = True
    If CheckBox_Num_Dept.Value = 0 Then ActiveSheet.Shapes("Groupe_Num_Dept").Visible = False

  ActiveSheet.Shapes("Groupe_Num_Dept").Left = 142
  ActiveSheet.Shapes("Groupe_Num_Dept").Top = 45.75
End Sub

@+

max

Bonjour

Je n'aurai pas mis ce code dans cette macro, parce que cela n'empêchera pas le déplacement

Max18 a écrit :

Maintenant est possible de bloquer la zone texte de ne pas pouvoir la déplacer sur la feuille ?

Quelle zone de texte ?

Re,

La zone texte se nomme "Groupe_Num_Dept" une zone de texte que sur Excel 2007..... Insertion/Zone de texte

Comment tu aurais mis les deux code séparer ?

@+

max

Bonjour

Il me semble que tu as une macro hihihi ?

J'aurais mis ce code en début, comme cela en cliquant sur le numéro du département tu positionnais chaque fois le groupe

Ou alors j'aurais affecté une macro à ce groupe comme dans l'exemple que j'ai posté

Re,

OK !

Peut tu me dire comment est possible de bloquer la zone texte de ne pas pouvoir la déplacer sur la feuille ?

@+

Bonjour

On se comprend mal

Regardes le fichier et essayes de bouger les numéros

Je me suis peut-être planté

Si c'est le cas, je n'ai pas d'autre idée