VBA Extraction d'une partie d'un commentaire

[Matt51100]

Bonjour à tous,

A partir d'un usf, je place un commentaire comme le montre le code suivant :

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.

Merci d'avance.

A+, Matt.

 

[mikachu]

Re : VBA Extraction d'une partie d'un commentaire

Bonjour,

en principe, cette petite macro fait le travail

pour le test, je l'ai fait sur la case selectionnée, mais il te suffit de remplacer selection par range("A1") ou autre.

Sub commentaire()

comm = Selection.Comment.Text
x1 = InStr(comm, Chr(10))
x2 = InStr(12, comm, Chr(10))
comm1 = Mid(comm, x1 + 1, x2 - x1 - 1)
comm2 = Right(comm, Len(comm) - x2)


End Sub

mikachu

EDIT: je précise que c'est prévu pour un commentaire sur 3 lignes et pas plus ni moins... aucun verrouillage contre les erreurs ou autre.

 

[Matt51100]

Re : VBA Extraction d'une partie d'un commentaire

Salut et merci,

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 ?

A+, Matt.

 

[Efgé]

Re : VBA Extraction d'une partie d'un commentaire

Bonjour Matt51100 , mikachu

Une autre méthode :

Sub Test3()
Dim Tmp As Variant
Dim TxtBox1$, TxtBox2$
Tmp = Split(Range("$A$1").Comment.Text, Chr(10))
TxtBox1 = Tmp(1)
TxtBox2 = Tmp(2)
MsgBox "TextBox1 : " & TxtBox1 & vbLf & "TextBox2 : " & TxtBox2, 64, "Résultat"
End Sub

Cordialement

 

[mikachu]

Re : VBA Extraction d'une partie d'un commentaire

Oups, il s'agit d'une erreur de ma part:

Sub commentaire()

comm = Selection.Comment.Text
x1 = InStr(comm, Chr(10))
x2 = InStr(x1+1, comm, Chr(10))
comm1 = Mid(comm, x1 + 1, x2 - x1 - 1)
comm2 = Right(comm, Len(comm) - x2)


End Sub

 

[mikachu]

Re : VBA Extraction d'une partie d'un commentaire

Je ne connaissais pas le coup du split, je vais essayer de le retenir... Merci Efgé

 

[Matt51100]

Re : VBA Extraction d'une partie d'un commentaire

Salut,

Merci bien pour ces réponses. je vais les essayer toutes les deux.

A+, Matt.