OVH Cloud OVH Cloud

Positionner une "Text Box" pr rapport à une cellule

6 réponses
Avatar
Max du Vuache
Bonjour,

Est-il possible de positionner une Text Box par rapport à une cellule?

Je voudrais la placer quelques lignes plus bas que la dernière cellule non
vide d'une colonne qui contient des écritures, et qu'elle se déplace au fur
et à mesure que cette colonne est remplie. En plus, si une ou plusieurs
lignes de la colonne sont éffacées, la Text Box devrait remonter vers le
haut.

Merci de votre aide.

Max

6 réponses

Avatar
Youky
Salut Max,
Le plus simple est de faire un userform, dedans un textbox.
Mettre la propriétée de l'userform ShowModaleúlse
Voir avec la propriétée Top et Left
StartupPosition=0
Youky
"Max du Vuache" <nospam du a écrit dans le message de
news: #
Bonjour,

Est-il possible de positionner une Text Box par rapport à une cellule?

Je voudrais la placer quelques lignes plus bas que la dernière cellule non
vide d'une colonne qui contient des écritures, et qu'elle se déplace au
fur

et à mesure que cette colonne est remplie. En plus, si une ou plusieurs
lignes de la colonne sont éffacées, la Text Box devrait remonter vers le
haut.

Merci de votre aide.

Max




Avatar
Max du Vuache
Merci Youky,

Merci de ton message, mais comment dois-je faire pour positionner la boîte?

Je pensais à un code du genre:
"Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
UserForm1 [A65537].End(xlUp).Offset(4, 0).Show
End Sub"

tel quel, ça ne marche pas, mais comment faire pour positionner la boîte
quelques lignes sous la dernière cellule de la colonne A ?

Merci d'avance pour ta lumière

Max

"Youky" a écrit dans le message de news:

Salut Max,
Le plus simple est de faire un userform, dedans un textbox.
Mettre la propriétée de l'userform ShowModaleúlse
Voir avec la propriétée Top et Left
StartupPosition=0
Youky
"Max du Vuache" <nospam du a écrit dans le message de
news: #
Bonjour,

Est-il possible de positionner une Text Box par rapport à une cellule?

Je voudrais la placer quelques lignes plus bas que la dernière cellule
non
vide d'une colonne qui contient des écritures, et qu'elle se déplace au
fur

et à mesure que cette colonne est remplie. En plus, si une ou plusieurs
lignes de la colonne sont éffacées, la Text Box devrait remonter vers le
haut.

Merci de votre aide.

Max








Avatar
Youky
ShowModaleúlse
ceci va faire que tu peux cliquer soit dans l'userform ou soit dans une
cellule
et faire défiler la page en haut ou en bas ou de gauche à droite, l'userform
reste là ou tu l'as mis,
tu peux aussi le déplacer à la souris comme une fenetre normale
tu fais un tout petit userform et tu pourras le mettre à ta guise
Pas besoin de le placer avec la macro il reste là ou tu le mets et tu as
Excel derriere.
Je t'encourage à faire des tests
Youky
"Max du Vuache" <nospam du a écrit dans le message de
news:
Merci Youky,

Merci de ton message, mais comment dois-je faire pour positionner la
boîte?


Je pensais à un code du genre:
"Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)

UserForm1 [A65537].End(xlUp).Offset(4, 0).Show
End Sub"

tel quel, ça ne marche pas, mais comment faire pour positionner la boîte
quelques lignes sous la dernière cellule de la colonne A ?

Merci d'avance pour ta lumière

Max

"Youky" a écrit dans le message de news:

Salut Max,
Le plus simple est de faire un userform, dedans un textbox.
Mettre la propriétée de l'userform ShowModaleúlse
Voir avec la propriétée Top et Left
StartupPosition=0
Youky
"Max du Vuache" <nospam du a écrit dans le message de
news: #
Bonjour,

Est-il possible de positionner une Text Box par rapport à une cellule?

Je voudrais la placer quelques lignes plus bas que la dernière cellule
non
vide d'une colonne qui contient des écritures, et qu'elle se déplace
au



fur
et à mesure que cette colonne est remplie. En plus, si une ou plusieurs
lignes de la colonne sont éffacées, la Text Box devrait remonter vers
le



haut.

Merci de votre aide.

Max












Avatar
anonymousA
bonjour,

le positionnement d'un UF exactement à l'endroit où l'on veut en
fonction de la position d'un objet ou d'une cellule réclame de faire
appel à des techniques API. Déjà, imagines comment tu vas définir la
position de la cellule A1 sur ton écran sachant que les écrans de tes
utilisateurs peuvent être de taille diférente, qu'ils peuvent avoir
minimisé l'écran de l'application,que leur nombre de barre de commandes
peut être différent,etc...
Bien sur que ce que tu demandes est possible mais c'est un peu long à
passer par le forum.

A+


Merci Youky,

Merci de ton message, mais comment dois-je faire pour positionner la boîte?

Je pensais à un code du genre:
"Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
UserForm1 [A65537].End(xlUp).Offset(4, 0).Show
End Sub"

tel quel, ça ne marche pas, mais comment faire pour positionner la boîte
quelques lignes sous la dernière cellule de la colonne A ?

Merci d'avance pour ta lumière

Max

"Youky" a écrit dans le message de news:


Salut Max,
Le plus simple est de faire un userform, dedans un textbox.
Mettre la propriétée de l'userform ShowModaleúlse
Voir avec la propriétée Top et Left
StartupPosition=0
Youky
"Max du Vuache" <nospam du a écrit dans le message de
news: #

Bonjour,

Est-il possible de positionner une Text Box par rapport à une cellule?

Je voudrais la placer quelques lignes plus bas que la dernière cellule
non
vide d'une colonne qui contient des écritures, et qu'elle se déplace au


fur

et à mesure que cette colonne est remplie. En plus, si une ou plusieurs
lignes de la colonne sont éffacées, la Text Box devrait remonter vers le
haut.

Merci de votre aide.

Max












Avatar
Salut,
Essaie comme ceci.
Je pense que ça pourrait faire ton bonheur

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fin, Colonne

Colonne = Target.Column
Fin = Cells(65536, Colonne).End(xlUp).Row

TextBox1.Left = Cells(Fin + 4, Colonne).Left
TextBox1.Top = Cells(Fin + 4, Colonne).Top
TextBox1.Width = Cells(Fin + 4, Colonne).Width
TextBox1.Height = Cells(Fin + 4, Colonne).Height

End Sub

Michel

Bonjour,

Est-il possible de positionner une Text Box par rapport à une cellule?

Je voudrais la placer quelques lignes plus bas que la dernière cellule non
vide d'une colonne qui contient des écritures, et qu'elle se déplace au fur
et à mesure que cette colonne est remplie. En plus, si une ou plusieurs
lignes de la colonne sont éffacées, la Text Box devrait remonter vers le
haut.

Merci de votre aide.

Max




Avatar
Max du Vuache
Bonjour Youky et AnonymousA,

Merci de vos conseils, quand j'aurai un peu plus de temps, je vais faire des
tests proposé, et, un jour peut-être, me mettre à étudier les techniques
API.

Max

"anonymousA" a écrit dans le message de news:
42e51aec$0$25018$
bonjour,

le positionnement d'un UF exactement à l'endroit où l'on veut en fonction
de la position d'un objet ou d'une cellule réclame de faire appel à des
techniques API. Déjà, imagines comment tu vas définir la position de la
cellule A1 sur ton écran sachant que les écrans de tes utilisateurs
peuvent être de taille diférente, qu'ils peuvent avoir minimisé l'écran de
l'application,que leur nombre de barre de commandes peut être
différent,etc...
Bien sur que ce que tu demandes est possible mais c'est un peu long à
passer par le forum.

A+


Merci Youky,

Merci de ton message, mais comment dois-je faire pour positionner la
boîte?

Je pensais à un code du genre:
"Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
UserForm1 [A65537].End(xlUp).Offset(4, 0).Show
End Sub"

tel quel, ça ne marche pas, mais comment faire pour positionner la boîte
quelques lignes sous la dernière cellule de la colonne A ?

Merci d'avance pour ta lumière

Max

"Youky" a écrit dans le message de news:


Salut Max,
Le plus simple est de faire un userform, dedans un textbox.
Mettre la propriétée de l'userform ShowModaleúlse
Voir avec la propriétée Top et Left
StartupPosition=0
Youky
"Max du Vuache" <nospam du a écrit dans le message de
news: #

Bonjour,

Est-il possible de positionner une Text Box par rapport à une cellule?

Je voudrais la placer quelques lignes plus bas que la dernière cellule
non
vide d'une colonne qui contient des écritures, et qu'elle se déplace au


fur

et à mesure que cette colonne est remplie. En plus, si une ou plusieurs
lignes de la colonne sont éffacées, la Text Box devrait remonter vers le
haut.

Merci de votre aide.

Max