Autres Commentaire

VIARD · 23 Octobre 2023

Salut à toutes et tous

Voici un petit utilitaire que j’ai réalisé par nécessité.
J’ai un dossier avec plein de commentaire à déplacer
A des positions toutes différentes, comme je n’avais pas envie
De tout me retaper, j’ai fait ce petit bout de programme.
De plus les commentaires sont plus jolis.
Vous pouvez modifier comme il vous semble les paramètres.
Ici c’est au plus simple, il y a quelques exemples.

Jean-Paul

Lolote83 · 23 Octobre 2023

Salut VIARD,
L'outil est pas mal, mais à la place du textbox2 (celui ou on doit remplir la cellule de destination) pourquoi ne pas utiliser le contrôle RefEdit.
Cela te permet de piocher directement la cellule souhaitée voir même sur un autre onglet.
De plus, le formulaire ne se ferme pas une fois la validation faite.
Voir le fichier joint.
@+ Lolote83

sylvanu · 23 Octobre 2023

Bonjour Viard, Lolote,
Petit utilitaire sympa.

Cependant, si le commentaire est vide dans Textbox3 alors Valider donne une erreur sur "Range(Adr).AddComment Info"
Donc un test "si non vide" ou un "On error goto" permettrait de l'éviter.

Ensuite on pourrait changer la forme du commentaire avec le .AutoShapeType :

Vous pourriez l'intégrer comme commentaire en fin de macro pour celui qui voudrait modifier l'apparence :

Code:

' Formes possibles des commentaires pour le paramètre AutoShapeType
' Rectangle arrondi:                                msoShapeRoundedRectangle
' Biseau:                                           msoShapeBevel
' Symbole d’organigramme de processus prédéfini  :  msoShapeFlowchartPredefinedProcess
' Défilement horizontal:                            msoShapeHorizontalScroll
' Défilement vertical:                              msoShapeVerticalScroll
' Symbole d’organigramme à bandes perforées  :      msoShapeFlowchartPunchedTape
' Étoile à 24 points  :                             msoShape24pointStar
' Légende avec flèche pointant vers la gauche  :    msoShapeLeftArrowCallout

VIARD · 23 Octobre 2023

bonjour @Lolote83, @sylvanu

j'ai fait ça en vitesse le matin donc je ne me suis pas attardé.
Et vos solutions d'améliorations me plaise bien, je vais les appliquer.
merci pour ce retour.
Jean-Paul

VIARD · 28 Octobre 2023

bonjour @Lolote83, @sylvanu et à tous

Après une petite coupure je reviens sur le sujet
Dans un premier temps j’ai appliqué les évolutions de @sylvanu,
Là pas de soucis, sinon ça alourdi légèrement le fichier
J’en ai profité pour rendre la couleur de fond modifiable.
Pour RefEdit, proposé par @Lolote83.
Gros problème, sur excel2007, ça ne fonctionne pas.
Je l’ai bien dans ma boîte à outils. Je veux le coller, un message « Manquant »
Sur un deuxième ordi excel2007 idem, avec les contrôles supplémentaires
Il n’est pas dans la liste.
Donc j’ai cherché à contourner le problème, en utilisant INPUTBOX type=8
Faisant référence au range ou plage de cellules.
Et là ça marche, bon c’est un peu tordu, moins élégant,
mais ça fonctionne. Voir le fichier.

Jean-Paul

sylvanu · 28 Octobre 2023

Bonjour,

VIARD à dit:
Gros problème, sur excel2007, ça ne fonctionne pas.

Je suis sous XL2007 et le fichier de Lolote fonctionne correctement.
Donc le souci ne vient pas de la version d'XL, mais certainement d'un paramétrage.
Peut être ceci :

Impossible d’ajouter le contrôle refedit à la forme utilisateur VBA - Microsoft 365 Apps

Résout le problème selon lequel vous ne pouvez pas ajouter de contrôle refedit sur un formulaire utilisateur VBA.

learn.microsoft.com

Lolote83 · 28 Octobre 2023

Re bonjour
J'ai vu ta nouvelle version.
Je suis dessus pour quelques améliorations.
Prochainement, une nouvelle version si cela t’intéresse
Voilà ce que j'ai imaginé pour le moment. Encore des trucs à faire avant diffusion

@+ Lolote83

VIARD · 28 Octobre 2023

Bonjour @sylvanu, @Lolote83 et à tous

Sylvanu, la première chose je regarde RefEdit pour l'avoir.
Lolote beau travail, au départ c'était un projet pour me facilité la vie, mais bien vu les améliorations.
donc pour l'instant RefEdit.

Salutations à vous deux.
Jean-Paul

sylvanu · 28 Octobre 2023

Re,
Sur mon XL2007 Win10, RefEdit appelle la référence Ref Edit Control.

La dll est : REFEDIT.DLL

Elle est placée en : C:\Program Files (x86)\Microsoft Office\Office12\

VIARD · 30 Octobre 2023

Bonjour @sylvanu, @Lolote83 et à tous

J'ai consulté mon Cardio c'est bon, puis l'Ophtalmo quelques corrections à faire.
Bon dans un premier temps, je me suis orienté vers REGEDIT, là tout est bon.
la vérification à pris un peu de temps, finalement @sylvanu m'apporte la solution
elle était la sous mon nez, j'ai ajouter la référence, tout est bon.
Et puis inputbox est un bon exercice, ça marche mais moins joli.
@Lolote83, oui tu peux envoyer ton amélioration, nul doute ton évolution est plus joli.
Merci à vous deux.
Amicalement jean-Paul

sylvanu · 30 Octobre 2023

VIARD à dit:
@Lolote83, oui tu peux envoyer ton amélioration, nul doute ton évolution est plus joli.

Il manque juste pour être exhaustif la couleur du texte.

Lolote83 · 31 Octobre 2023

Bonjour à tous,
Voici donc la version3 (a tester).
Un onglet explication est présent et donne quelques explications
Merci du retour
Voici vite fait a quoi cela ressemble maintenant (formulaire revu)

@+ Lolote83

VIARD · 31 Octobre 2023

Bonjour @sylvanu, @Lolote83 et à tous

Lolote j’ai regardé attentivement, super travail, et bonnes explications.
Cependant, J’ai pointé 2 petites anomalies dans "CDM_Valider_Click()"
1) lorsque la cellule active (vide) est la même que la cellule destination
Il supprime un commentaire qui n’existe pas.
2) la récupération d’un commentaire d’une cellule, la couleur de fond est différente
Je pense, que la on sort des 56 couleurs conventionnelles.
Et souligné est systématiquement appliqué, et le gras n’apparaît pas s’il a été appliqué.
Autrement je te tire mon chapeau. Très joli beau travail.

Bien amicalement
Jean-Paul

Lolote83 · 1 Novembre 2023

Bonjour à tous,

VIARD à dit:
1) lorsque la cellule active (vide)

@VIARD , il ne peut pas y avoir de cellule active vide. Il y a toujours au moins une cellule de sectionnée dans excel. Si effectivement dans le textbox, tu supprimes le contenu !!!! Dans ce cas, on pourra remplacer le textbox par un label.

VIARD à dit:
2) la récupération d’un commentaire d’une cellule, la couleur de fond est différente

Peux tu donner un exemple. Soit par le bais d'un retour de fichier, soit par une copie d'écran

VIARD à dit:
Et souligné est systématiquement appliqué, et le gras n’apparaît pas s’il a été appliqué.

Idem que pour le 2)
Je regarde de mon coté et essaye de corriger les quelques buggs.
Merci de ton retour
@+ Lolote83

Lolote83 · 1 Novembre 2023

Re bonjour à tous.
Suite aux remarques de @VIARD , voici la version4
Quelques modifications:
- Le TextBox de la cellule active a été remplacé par un Label
- Les couleurs par défaut ont été revues
- Si un commentaire existe déjà dans la cellule active et que la cellule de destination est la même, la case à cocher "Effacer commentaire cellule active" sera automatiquement active et non modifiable
- Le problème évoqué par @VIARD concernant le Gras, Italique et ou Soulignement est maintenant corrigé

Tout ceci demande toutefois d'être encore testé car je n'ai peut être pas pensé à tout.
Merci pour vos retours
@+ Lolote83

Autres Commentaire

VIARD

XLDnaute Impliqué

Pièces jointes

Lolote83

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

VIARD

XLDnaute Impliqué

VIARD

XLDnaute Impliqué

Pièces jointes

sylvanu

XLDnaute Barbatruc

Impossible d’ajouter le contrôle refedit à la forme utilisateur VBA - Microsoft 365 Apps

Lolote83

XLDnaute Barbatruc

Pièces jointes

VIARD

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

VIARD

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Pièces jointes

VIARD

XLDnaute Impliqué

Lolote83

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Pièces jointes

Discussions similaires