Deplacer un textbox

Bonjour a tous, y a t-il une facon simple de deplacer en VBA un textbox vers un autre endroit de la feuille. Idealement, l'enligner par dessus une autre cellule.

Bonsoir,

Ci-joint une proposition à tester.

Bonne soirée

Bouben

Desole pour le delais, il a fallu que j'ouvre ton fichier sur un PC qui possede la derniere version d'excel.

C'est pas mal ce que je veux. Par contre, je ne comprend pas ce bout de code. range ( position).value, c'est capable de lire la donnee sur la cellule a cote ?

Bonsoir,

Cette partie de code est fournie juste pour l'exemple :

=> la cellule "C3" en jaune dans le fichier correspond à la cellule vers laquelle on veut déplacer la TextBox (ça, je pense que c'est clair)

=> cette cellule est simplement "nommée", avec le nom "Position"

Dans l'exemple fourni, la case destination est "C8" (on veut déplacer la TextBox en C8)

=> sPosition = Range("Position").Value

Equivalent à

=> sPosition = "C8"

Si on poursuit le détail du code, cela donne :

txtMonTextBox.Left = Range(sPosition).Left

Equivalent à

txtMonTextBox.Left = Range("C8").Left

Dit autrement, tout le code pourrait être remplacé par

    txtMonTextBox.Left = Range("C8").Left
    txtMonTextBox.Top = Range("C8").Top
    txtMonTextBox.Width = Range("C8").Width
    txtMonTextBox.Height = Range("C8").Height

On cale la TextBox sur la position de la cellule C8

Bonne soirée

Bouben

Merci Bouben pour tout ces eclaircissement!