Taille automatique EXcel
Fermé
chibimaya92
Messages postés
81
Date d'inscription
dimanche 10 juin 2012
Statut
Membre
Dernière intervention
4 janvier 2023
-
10 févr. 2019 à 15:37
chibimaya92 Messages postés 81 Date d'inscription dimanche 10 juin 2012 Statut Membre Dernière intervention 4 janvier 2023 - 20 févr. 2019 à 20:33
chibimaya92 Messages postés 81 Date d'inscription dimanche 10 juin 2012 Statut Membre Dernière intervention 4 janvier 2023 - 20 févr. 2019 à 20:33
Bonjour,
J'ai un travail à faire sur Excel avec plein de commentaire, je voulais savoir s'il était possible d'ajuster automatique la taille des commentaires déjà existants et prochains ?
Merci d'avance ^^
J'ai un travail à faire sur Excel avec plein de commentaire, je voulais savoir s'il était possible d'ajuster automatique la taille des commentaires déjà existants et prochains ?
Merci d'avance ^^
A voir également:
- Taille automatique EXcel
- Comment réduire la taille d'un fichier - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Message automatique thunderbird - Guide
- Word et excel gratuit - Guide
3 réponses
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 425
10 févr. 2019 à 18:19
10 févr. 2019 à 18:19
Bonjour
non je ne crois pas que cela soit possible. La seule chose possible et d'automatiser le format selon le remplissage
et aussi la possibilité de placer un commentaires types quelques part pour faire des copier coller
crdlmnt
non je ne crois pas que cela soit possible. La seule chose possible et d'automatiser le format selon le remplissage
et aussi la possibilité de placer un commentaires types quelques part pour faire des copier coller
crdlmnt
The_boss_68
Messages postés
943
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
16 février 2025
179
10 févr. 2019 à 20:57
10 févr. 2019 à 20:57
Bonsoir,
Sortie du fin fond de mes archives mais fonctionne pas pour les commentaires déjà existant uniquement pour ceux à venir "à voir"
https://mon-partage.fr/f/zkpZypAL/
ou
https://mon-partage.fr/f/al2LKN4f/
Slts
Sortie du fin fond de mes archives mais fonctionne pas pour les commentaires déjà existant uniquement pour ceux à venir "à voir"
https://mon-partage.fr/f/zkpZypAL/
ou
https://mon-partage.fr/f/al2LKN4f/
Slts
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 254
Modifié le 10 févr. 2019 à 23:59
Modifié le 10 févr. 2019 à 23:59
Bonjour,
pour les existants :
toute la feuille active, sinon spécifier la feuille et/ou la plage concernée
eric
pour les existants :
Sub ajustComm() Dim pl As Range, c As Range Set pl = Cells.SpecialCells(xlCellTypeComments) If Not pl Is Nothing Then For Each c In pl: c.Comment.Shape.TextFrame.AutoSize = True: Next c End If End Sub
toute la feuille active, sinon spécifier la feuille et/ou la plage concernée
eric
chibimaya92
Messages postés
81
Date d'inscription
dimanche 10 juin 2012
Statut
Membre
Dernière intervention
4 janvier 2023
14 févr. 2019 à 16:11
14 févr. 2019 à 16:11
Bonjour, je vous remercie pour cette réponse
mais j'utilise très peu excel, où dois-je entrer le code ?
mais j'utilise très peu excel, où dois-je entrer le code ?
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 254
14 févr. 2019 à 16:59
14 févr. 2019 à 16:59
Bonjour,
Alt+F11 pour ouvrir l'éditeur.
Clic-droit sur le projet du classeur à droite, 'Insertion / Module'
Coller le texte du code dans la fenêtre de droite.
'Enregistrer sous...', choisir le type *.xlsm pour conserver les macros.
La macro s'applique à la feuille active lors de son appel.
eric
Alt+F11 pour ouvrir l'éditeur.
Clic-droit sur le projet du classeur à droite, 'Insertion / Module'
Coller le texte du code dans la fenêtre de droite.
'Enregistrer sous...', choisir le type *.xlsm pour conserver les macros.
La macro s'applique à la feuille active lors de son appel.
eric
chibimaya92
Messages postés
81
Date d'inscription
dimanche 10 juin 2012
Statut
Membre
Dernière intervention
4 janvier 2023
14 févr. 2019 à 21:31
14 févr. 2019 à 21:31
Merci ça marche mais du coup pour les textes assez long ça sors de l'écran, dois-je les travailler avec entrée ?
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 254
14 févr. 2019 à 22:55
14 févr. 2019 à 22:55
Bonjour,
qui limite les lignes à x caractères sans couper les mots, ici 40 car. :
si tu fais des tests de largeur les retour chariot vont s'accumuler.
Si tu veux les supprimer tous avant d'en remettre ajoute le paramètre , True à :
c.Comment.Text decoupCh(c.Comment.Text, 40, True)
Mais ça les enlève tous, y compris les volontaires. Impossible de les distinguer.
eric
qui limite les lignes à x caractères sans couper les mots, ici 40 car. :
Sub ajustComm() Dim pl As Range, c As Range, ch As String Set pl = Cells.SpecialCells(xlCellTypeComments) If Not pl Is Nothing Then For Each c In pl c.Comment.Text decoupCh(c.Comment.Text, 40) c.Comment.Shape.TextFrame.AutoSize = True Next c End If End Sub Function decoupCh(ch As String, lMax As Long, Optional suppVbLF = False) As String Dim pos As Long 'insère chr(10) tous les x caractères, sans couper les mots If suppVbLF Then ch = Replace(ch, vbLf, " ") pos = lMax + 1 Do pos = InStrRev(ch, " ", pos) Mid(ch, pos, 1) = vbLf pos = pos + lMax + 1 Loop Until pos >= Len(ch) decoupCh = ch End Function
si tu fais des tests de largeur les retour chariot vont s'accumuler.
Si tu veux les supprimer tous avant d'en remettre ajoute le paramètre , True à :
c.Comment.Text decoupCh(c.Comment.Text, 40, True)
Mais ça les enlève tous, y compris les volontaires. Impossible de les distinguer.
eric
chibimaya92
Messages postés
81
Date d'inscription
dimanche 10 juin 2012
Statut
Membre
Dernière intervention
4 janvier 2023
16 févr. 2019 à 10:14
16 févr. 2019 à 10:14
Merci et j'ai comme réponse "Argument ou appel de procédure incorrect", du coup ça marche ...