× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Format commentaire de cellule excelSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Obelix73
  Posté le 24/01/2006 @ 21:04 
Aller en bas de la page 
Petit astucien
Bonsoir à tous, Sur un fichier excel, je voudrai, soit en paramêtrant par défaut, soit par macro, pouvoir définir par défaut le format des commentaires de cellules. d'avance merci [smile] Obélix73
Publicité
galopin01
 Posté le 24/01/2006 à 21:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
bonsoir, Sorry "par défaut" je ne pense pas que ce soit possible. Peux-tu préciser ton problème. A+
pat1545
 Posté le 24/01/2006 à 21:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Salut, moi j'utilise ceci mais par défaut, je ne sais pas si possible de changer d'origine ! Ceci dans un module VBA standard et puis ajouter une icone dans la barre d'outils. Sub Ajust_Commentaires() Dim Wks As Worksheet, Cmt As Comment For Each Wks In Worksheets For Each Cmt In Wks.Comments Cmt.Shape.OLEFormat.Object.AutoSize = True With Cmt.Shape.OLEFormat.Object.Font .Name = "Tahoma" .Size = 12 End With Cmt.Shape.OLEFormat.Object.ShapeRange.Fill _ .ForeColor.SchemeColor = 42 Next Cmt Next Wks End Sub Patrick
Obelix73
 Posté le 24/01/2006 à 22:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bonsoir, je voudrais monter un trombinoscope sur xls et faire apparaître, sur un simple passage de curseur, la photo dans le commentaire de cellule ou se trouve le nom de la personne. Merci à galopin01 je vais tester le module VBA de pat1545 si cela ne marche pas je chercherais une autre solution. je vous remercie pour vos réponses @+ Obelix73
Obelix73
 Posté le 25/01/2006 à 09:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bonjour, cette macro fonctionne bien Mais en modifiant le paramêtre Size je modifie la hauteur du commentaire (.Size = 12 je mets .Size = 72) Comment puis-je faire pour modifier la largeur, qui est disproportionnée par rapport à la hauteur ? Pour que la photo (format:340x370) soit clairement visualisable. d'avance merci [smile] @+ Obelix73
usularrakis
 Posté le 25/01/2006 à 10:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

salut si c'est pour insérer des images/photo dans le commentaire d'une cellule tu fais : clic droit/commentaire ensuite tu cliques sur la bordure du commentaire ensuite clic sur le pot de peinture / motif et texture / onglet "image"/clic sur "image..." et va chercher ta photo le commentaire sera dimensionné en fonction de la taille de ta photo
Obelix73
 Posté le 25/01/2006 à 12:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bonjour, Non, cela ne marche pas, car j'ai environ 200 commentaires de cellules à modifier (manuellement impossible, sachant qu'il y a régulièrement des mise à jour à faire). Je voudrais que cela se fasse, si possible, par macro. un vrai casse-tête [boom] mais on devrait y arriver. @+ Obelix73
usularrakis
 Posté le 25/01/2006 à 12:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Ah ! en fait ce que tu souhaites c'est (par exemple) : si une cellule contient le nom "Toto" la macro doit aller chercher la photo nommée Toto.jpeg dans le dossier Photo et l'insérer dans le commentaire de cette cellule c'est ça ?
Obelix73
 Posté le 25/01/2006 à 13:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bonjour, Oui, exactement cela. [smile] le module VBA de pat1545 marche bien, mais je ne sais pas comment faire dimensionner automatiquement les commentaires. @+ Obelix73

Modifié par Obelix73 le 25/01/2006 19:30
Publicité
Bérylion
 Posté le 25/01/2006 à 21:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

'soir à tous Le module de pat1545 est au poil ! seulement tu ne le modifies pas comme tu voudrais [clindoeil] . rajoute les lignes en rouge : Sub Ajust_Commentaires() Dim Wks As Worksheet, Cmt As Comment For Each Wks In Worksheets For Each Cmt In Wks.Comments Cmt.Shape.OLEFormat.Object.AutoSize = True With Cmt.Shape .Width = 340 .Height = 370 End With With Cmt.Shape.OLEFormat.Object.Font .Name = "Tahoma" .Size = 12 End With Cmt.Shape.OLEFormat.Object.ShapeRange.Fill _ .ForeColor.SchemeColor = 42 Next Cmt Next Wks End Sub il faut bien sur ajuster 340 et 370, je sais pas comment c'est "mesuré" [bigsmile]
Obelix73
 Posté le 26/01/2006 à 12:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bonjour, Merci à tous pour votre aide. Cela fonctionne super bien. Merci pour votre écoute et votre génie. [bigsmile] Bonne journée @+ Obelix73
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
85,50 €Disque dur Seagate BarraCuda 4 To à 85,50 € avec le code AFFAIRE10
Valable jusqu'au 25 Octobre

Cdiscount propose actuellement le disque dur Seagate BarraCuda - 4 To (ST4000DM004) à 85,50 € grâce au code promo AFFAIRE10. Ce disque dur 3.5 pouces SATA III tourne à 5400tr/min et possède 256 Mo de cache. On le trouve ailleurs autour de 95 €. 


> Voir l'offre
299,99 €Xbox Series S en précommande à 299,99 €
Valable jusqu'au 27 Octobre

La nouvelle console Xbox Series S de Microsoft sort le 10/11 et vous pouvez d'ores et déjà la précommander à 299,99 €. Cette version plus compacte embarque une puce graphique de 4 teraflops et est compatible avec 4 générations de jeux. Elle intègre un SSD de 512 Go. Elle n'a pas de lecteur optique. Sur AmazonCdiscountFnac, ...


> Voir l'offre
72,94 €Enceintes 2.0 Bose Companion 2 Série III à 72,94 € livrées (via coupon)
Valable jusqu'au 25 Octobre

Amazon Allemagne propose actuellement l'excellent kit 2.0 Bose Companion 2 Série III qui passe à 64,98 € grâce à un coupon de réduction automatiquement appliqué alors qu'on le trouve ailleurs à partir de 99 €. Comptez 7,96 € pour la livraison en France, soit un total de 72,94 € livré. Découvrez un son d'une profondeur et clarté sans égal, que ce soit avec de la musique, des films ou des jeux. Rappelons que vous pouvez utilisez votre compte Amazon France sur Amazon Allemagne et qu'il n'y a pas de douane.


> Voir l'offre

Sujets relatifs
Format de cellule personnalisée - Excel 2007
format cellule Excel
Format de cellule personnalisée excel
Imposer format dans cellule excel 2007
Excel Format de cellule
commentaire cellule excel
excel : format de cellule "centré" par défaut
Excel : formule de format de cellule en majuscule?
copier un commentaire dans une cellule sous excel
RESOLU format cellule pourcentage excel 2000
Plus de sujets relatifs à Format commentaire de cellule excel
 > Tous les forums > Forum Bureautique