Problème VBA - Textbox

Bonjour,

J'ai un petit soucis concernant une macro. En effet, j'aimerais afficher la dernière cellule non vide dans mon textbox.

J'ai dans un premier temps créer un code pour faire mon textbox :

Sub zone_de_texte()

Dim L As Single, T As Single, H As Single, W As Single

H = 50

W = 200

L = 100

T = 100

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, L, T, W, H).Select

Selection.Name = ztxt1

End Sub

et j'aimerais donc associé ce textbox à ma cellule - j'ai donc écrit ce code mais il ne fonctionne pas :

Sub test()

Dim DerLig As Long

With Worksheets("Feuil1")

DerLig = .Range("B30").End(xlUp).Select

txt1 = .Range("B" & DerLig)

End With

End Sub

Je suis débutante en la matière donc désolé ! Merci d'avance pour votre aide !

bonjour

pour trouver la dernière ligne ex:

DerLig = .Range("B" & Rows.Count).End(xlUp).Row

A+

Maurice

Bonjour Maurice,

Cette formule j'ai réussi à la faire.

Je voudrais juste pouvoir l'afficher dans mon textbox (Encadré blanc)

J'ai mit le fichier en lien car je suis sans doute pas très clair dans mon message.

Merci.

Tiphany

bonjour

ses pas une TextBox ses une Shapes

je maitrise pas trop voila un test

Sub test1()
MaVar = "Test Text"
    ActiveSheet.Shapes.Range(Array("ztxt1")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = MaVar
  Range("A1").Select

End Sub

pour UserForm tu veux faire quoi

A+

Maurice

bonjour

j'ais trouve une astuce sur une ligne

ActiveSheet.Shapes("ztxt1").TextFrame.Characters.text = "Mon_Nouveau_Texte_ici!"

a toi de jouer

A+

Maurice