Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA Extraction d'une partie d'un commentaire

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Matt51100

XLDnaute Occasionnel
Bonjour à tous,

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.

Merci d'avance.

A+, Matt.
 
Trier par date Trier par votes
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.

Code: 
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.
 
Dernière édition:
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Re : VBA Extraction d'une partie d'un commentaire

Bonjour Matt51100 , mikachu

Une autre méthode :
VB: 
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
 
Vote positif 0 Vote négatif
Re : VBA Extraction d'une partie d'un commentaire

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

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
642
Francky79
F
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
R
  • Question Question
Microsoft 365 Mise en forme email
Réponses
7
Affichages
871
dysorthographie
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
435
oguruma
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
485
ZiM
Z
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
J
  • Question Question
XL 2016 [RESOLU] Avis Code VBA excel
Réponses
9
Affichages
993
jabenj
J
D
  • Question Question
XL 2019 Ignorer cellule vide liste combobox
Réponses
14
Affichages
1 K
Did25
D
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
  • Résolu(e)
XL 2010 Ranger différentes valeurs dans une cellule
Réponses
13
Affichages
1 K
Eric C
R
  • Question Question
XL 2019 Lire propriété (vidéo) à partir d'une boite de dialogue ?
2 3 4
Réponses
51
Affichages
4 K
re4
R
D
  • Question Question
Microsoft 365 Changer la langue d'un commentaire - VBA
Réponses
2
Affichages
893
Diego-Andres
D
M
  • Question Question
XL 2019 VBA Modifier a partir d'une listbox
Réponses
1
Affichages
1 K
mahaut57
M
N
  • Résolu(e)
XL 2016 Suivi des modifications d'un fichier excel
Réponses
3
Affichages
907
Efgé
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
O
  • Résolu(e)
XL 2019 Moyenne de valeurs par date à partir d'un tableau
Réponses
4
Affichages
1 K
Olocsob
O
B
  • Question Question
XL 2016 Mailing Type à différents groupe de personnes
Réponses
1
Affichages
815
Bullrot
B
P
  • Résolu(e)
Microsoft 365 Passer des lignes quand une condition est remplie en Macro
Réponses
11
Affichages
1 K
sylvanu
S
  • Question Question
Microsoft 365 Copier le contenu d'une colonne dans une autre colonne sous forme de commentaire
Réponses
5
Affichages
1 K
specialiste
S
B
  • Question Question
XL 2016 Send from...Account or Send on behalf
Réponses
0
Affichages
806
Bullrot
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…