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 !