OVH Cloud OVH Cloud

Insertion d'une textbox en automatique

1 réponse
Avatar
denis
Bonjour,

J'ai une textbox nomm=E9e "T1" et un bouton "insertion".

Je souhaite lorsque je clique sur "insertion" qu'une copie de "T1"
nomm=E9e "T2" s'ins=E8re apr=E8s "T1".

J'en suis a :

Private Sub Insertion_Click()
AT.Select
Selection.Copy
........
ActiveSheet.Paste
End Sub

Mon probl=E8me est que je ne sais pas comment indiquer de l'ins=E9rer
apr=E8s T1.

Avez-vous une solution ?

Merci d'avance

1 réponse

Avatar
Geo

Bonjour,

J'ai une textbox nommée "T1" et un bouton "insertion".

Je souhaite lorsque je clique sur "insertion" qu'une copie de "T1"
nommée "T2" s'insère après "T1".

J'en suis a :

Private Sub Insertion_Click()
AT.Select
Selection.Copy
........
ActiveSheet.Paste
End Sub

Mon problème est que je ne sais pas comment indiquer de l'insérer
après T1.


T2.top = T1.top + t1.height

--
A+