A partir d'un usf, je place un commentaire comme le montre le code suivant :
Code:
Sub test()
Set temp = CreateObject("WScript.Network")
Range("A1").AddComment
Range("A1").Comment.Visible = False
Range("A1").Comment.Text Text:=temp.UserName & " :" & Chr(10) & TextBox1.Value & Chr(10) & TextBox2.Value
End Sub
Maintenant, j'aimerais pouvoir extraire de ce commentaire, les valeurs (textbox1 et 2) pour pouvoir les remettre dans un autre usf lorsque j'initialise celui-ci.
Je n'ai aucun début de piste, ne connaissant pas réellement la position des valeurs dans le commentaire.
Cela devrait faire l'affaire. je n'ai pas le temps de regarder en détail le calcul auquel tu te livres pour comm1 et comm2, je regarderais en détail des que j'ai le temps.
Par contre pourquoi démarrer à 12 dans ton instruction pour x2 ?