Séparer le texte du commentaire

camarchepas

XLDnaute Barbatruc

• 8 Juin 2014

• #2

Re : Séparer le texte du commentaire

Bonjour Fero ,

Un petit fichier joint pour nous servir d'atelier serait super .....

Cordialement ,

 

Vote positif 0 Vote négatif

F

fero7

Guest

• 8 Juin 2014

• #3

Re : Séparer le texte du commentaire

Merciiiii,

voici l'exemple en pièce jointe.

 

Pièces jointes

• exemple 1.xlsx

  10.9 KB · Affichages: 42
• exemple 1.xlsx

  10.9 KB · Affichages: 40
• exemple 1.xlsx

  10.9 KB · Affichages: 40

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 8 Juin 2014

• #4

Re : Séparer le texte du commentaire

Bonjour, fero7, camarchepas 🙂

L'adaptation d'un code de J. Boisgontier :

VB:

Sub ListeCommentaires()
  mafeuille = ActiveSheet.Name
  Application.DisplayAlerts = False
  On Error Resume Next
  Sheets("TempNoms").Delete
  On Error GoTo 0
  Sheets.Add after:=Sheets(Sheets.Count)
  ActiveSheet.Name = "TempNoms"
  Set champ = Range("B3:B10")
  ligne = 2
  For Each c In Sheets(mafeuille).Comments
   If Not Intersect(Range(c.Parent.Address), champ) Is Nothing Then
     Sheets("TempNoms").Cells(ligne, 1) = c.Parent.Address
     Sheets("TempNoms").Cells(ligne, 2) = Right(c.Text, Len(c.Text) - 8)
     ligne = ligne + 1
   End If
  Next c
End Sub

 

Vote positif 0 Vote négatif

F

fero7

Guest

• 8 Juin 2014

• #5

Re : Séparer le texte du commentaire

bonjour,
Super! seulement je m'y connais pas en VBA. je peux appliquer cette solution comment?
merci encore une fois.

 

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 8 Juin 2014

• #6

Re : Séparer le texte du commentaire

Bonsoir Fero7 et Victor21

Voici une autre solution en ayant supprimé l'auteur dans les commentaires d'origine.

 

Pièces jointes

• exemple 1.xlsm

  27.7 KB · Affichages: 49
• exemple 1.xlsm

  27.7 KB · Affichages: 46
• exemple 1.xlsm

  27.7 KB · Affichages: 52

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 8 Juin 2014

• #7

Re : Séparer le texte du commentaire

Re,
Voici une petite macro permettant d'insérer un commentaire sans l'auteur

Code:

Sub Commentaire()
 If ActiveCell.Comment Is Nothing Then
  ActiveCell.AddComment   ' Création commentaire
  ActiveCell.Comment.Shape.OLEFormat.Object.Font.Name = "Arial"
  ActiveCell.Comment.Shape.OLEFormat.Object.Font.Size = 9
  ActiveCell.Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
  SendKeys "+{F2}"
 End If
End Sub

Sélectionner la cellule ou doit se trouver le commentaire et appliquer la macro via un BP ou autre

 

Vote positif 0 Vote négatif

F

fero7

Guest

• 8 Juin 2014

• #8

Re : Séparer le texte du commentaire

Merci Zeltron24,

Malheureusement, il y a un souci avec la macro, elle ne fonctionne pas🙁

 

Vote positif 0 Vote négatif

F

fero7

Guest

• 8 Juin 2014

• #9

Re : Séparer le texte du commentaire

cette solution me permettra d'avoir le texte dans la cellule à coté? Au fait je veux une solution pour extraire carrément le contenu du commentaire mais sans l'auteur.

 

Dernière modification par un modérateur: 8 Juin 2014

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 8 Juin 2014

• #10

Re : Séparer le texte du commentaire

Re, bonjour zeltron.

fero7 à dit:

bonjour,
Super! seulement je m'y connais pas en VBA. je peux appliquer cette solution comment?
merci encore une fois.

Cliquez pour agrandir...

Alt+F11, Insertion, module, copiez le code.
Pour laccer la macro, onglet développeur, macros, exécuter.

 

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 8 Juin 2014

• #11

Re : Séparer le texte du commentaire

Bonsoir à tous,

Malheureusement, il y a un souci avec la macro, elle ne fonctionne pas

Cliquez pour agrandir...

Chez moi cela fonctionne depuis déjà plusieurs mois sur Excel 2007.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 9 Juin 2014

• #12

Re : Séparer le texte du commentaire

Bonsoir fero7, à tous,

Un essai avec une fonction personnalisée VBA: ExtComm(x) où x est la cellule dont on veut extraire le commentaire. Pour éliminer l'auteur, on ne prend pas en compte la première ligne du commentaire si cette dernière comporte le caractère : (deux points).

Exemple d'utilisation en cellule C3: =ExtComm(B3)

Si on modifie un commentaire, appuyez sur la touche de fonction F9 pour actualiser.

Le code de la fonction ExtComm:

VB:

Function ExtComm$(x As Range)
Dim t, n&, i&
Application.Volatile
  If Not x.Comment Is Nothing Then
    t = Split(x.Comment.Text, vbLf)
    If InStr(t(0), ":") > 0 Then n = 1 Else n = 0
    For i = 0 To UBound(t) - 1
      t(i) = Trim$(t(i + n))
    Next i
    ReDim Preserve t(0 To UBound(t) - n)
    ExtComm = Trim$(Join(t, ""))
  End If
End Function

 

Pièces jointes

• fero7 - exemple 1 v1.xlsm

  20.8 KB · Affichages: 48

Dernière édition: 9 Juin 2014

Vote positif 0 Vote négatif

F

fero7

Guest

• 10 Juin 2014

• #13

Re : Séparer le texte du commentaire

bonjour Mapomme;

Merci beaucoup pour ton aide, ça marche super bien et l'exemple est super bien appliqué.
Merci encore une fois.

 

Vote positif 0 Vote négatif

F

fero7

Guest

• 19 Juin 2014

• #14

Re : MFC avec formule

Bonjour à tous,

je n'arrive pas à appliquer une MFC avec jeux d'icone de 3 couleurs différentes à mon tableau, à la 4e colonne j'ai inséré une formule SI(C3="";"";SI($B3-AUJOURDHUI()>5;"Pas encore";SI($B3-AUJOURDHUI()<=0;"Achevé";"A Lancer")))

Je veux appliquer une mise en forme à chaque résultat, de la manière suivante:

mercredi 18/06/2014 A Achevé (indicateur jaune)
dimanche 22/06/2014 B A Lancer (indicateur rouge)
lundi 23/06/2014 C A Lancer (indicateur rouge)
mardi 24/06/2014 D A Lancer (indicateur rouge)
mercredi 25/06/2014 E Pas encore (indicateur vert)
jeudi 26/06/2014 F Pas encore (indicateur vert)
samedi 28/06/2014 G Pas encore (indicateur vert)

Merci beaucoup pour votre précieuse aide.

 

Dernière modification par un modérateur: 19 Juin 2014

Vote positif 0 Vote négatif