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
A voir également:
- Taille automatique EXcel
- Liste déroulante excel - Guide
- Comment réduire la taille d'un fichier - Guide
- Formule excel - Guide
- Message automatique thunderbird - Guide
- Si et excel - 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 394
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
922
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
31 mars 2024
174
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
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 212
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
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 212
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
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 212
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 ...