Dimensionner la largeur de colonnes à partir d'une cellule
Résolu/Fermé
Cannonride
Messages postés
5
Date d'inscription
lundi 20 avril 2015
Statut
Membre
Dernière intervention
23 octobre 2017
-
30 nov. 2016 à 03:26
Cannonride Messages postés 5 Date d'inscription lundi 20 avril 2015 Statut Membre Dernière intervention 23 octobre 2017 - 1 déc. 2016 à 03:08
Cannonride Messages postés 5 Date d'inscription lundi 20 avril 2015 Statut Membre Dernière intervention 23 octobre 2017 - 1 déc. 2016 à 03:08
A voir également:
- Largeur optimale colonne excel
- Déplacer une colonne excel - Guide
- Liste déroulante excel - Guide
- Additionner colonne excel - Guide
- Formule excel - Guide
- Figer colonne excel - Guide
2 réponses
Raymond PENTIER
Messages postés
58378
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
14 avril 2024
17 083
30 nov. 2016 à 05:08
30 nov. 2016 à 05:08
Non, ça n'existe pas.
Mais à ta place, je ferais ceci :
- Insérer une ligne sous la ligne 1
- La mettre au format de police calibri 11
- Saisir la formule =REPT("m";8:8/10-2) dans les cellules A2 à GA2
- Sélectionner toutes les colonnes et faire un ajustement automatique de la largeur de colonnes (en faisant un double clic sur le trait séparant 2 lettres désignant des colonnes).
Cela fonctionne jusqu'à une largeur de 40 ; en dessous, il faut ajuster manuellement.
https://www.cjoint.com/c/FKEedFKZKRK
Mais à ta place, je ferais ceci :
- Insérer une ligne sous la ligne 1
- La mettre au format de police calibri 11
- Saisir la formule =REPT("m";8:8/10-2) dans les cellules A2 à GA2
- Sélectionner toutes les colonnes et faire un ajustement automatique de la largeur de colonnes (en faisant un double clic sur le trait séparant 2 lettres désignant des colonnes).
Cela fonctionne jusqu'à une largeur de 40 ; en dessous, il faut ajuster manuellement.
. Tu peux ensuite réduire la ligne 2 à une hauteur de 1 pixel.
https://www.cjoint.com/c/FKEedFKZKRK
Utilisateur anonyme
30 nov. 2016 à 05:20
30 nov. 2016 à 05:20
Bonjour Cannonride,
Je te propose ce code VBA (à mettre dans Module1) :
Tu pourras voir que ça marchera même avec une largeur comme
10,75 (mais qui sera ajustée automatiquement à 10,78).
« width » est le mot anglais pour « largeur », et donc :
« ColumnWidth » est : largeur de la colonne.
Le code est valable pour la ligne 7, car c'est par rapport à [A7] ;
pour les colonnes : à partir de la colonne A, puis vers la droite :
arrêt dès la 1ère cellule vide rencontrée ; donc tu peux utiliser
le même code VBA si tu continues à droite de GA7.
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».
Cordialement. :)
PS : Bonjour à Raymond en passant. ;)
Je te propose ce code VBA (à mettre dans Module1) :
Option Explicit
Sub Essai()
Dim cellX As Range, i As Integer: Application.ScreenUpdating = False
Do
Set cellX = [A7].Offset(, i): If cellX = "" Then Exit Do
i = i + 1: Columns(i).ColumnWidth = cellX
Loop
End Sub
Tu pourras voir que ça marchera même avec une largeur comme
10,75 (mais qui sera ajustée automatiquement à 10,78).
« width » est le mot anglais pour « largeur », et donc :
« ColumnWidth » est : largeur de la colonne.
Le code est valable pour la ligne 7, car c'est par rapport à [A7] ;
pour les colonnes : à partir de la colonne A, puis vers la droite :
arrêt dès la 1ère cellule vide rencontrée ; donc tu peux utiliser
le même code VBA si tu continues à droite de GA7.
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».
Cordialement. :)
PS : Bonjour à Raymond en passant. ;)
Cannonride
Messages postés
5
Date d'inscription
lundi 20 avril 2015
Statut
Membre
Dernière intervention
23 octobre 2017
1 déc. 2016 à 03:08
1 déc. 2016 à 03:08
Merci pour ta réponse Albkan.
C'est exactement ce que je recherchais C'est PARFAIT ! merci !
Amicalement,
Cannonride.
C'est exactement ce que je recherchais C'est PARFAIT ! merci !
Amicalement,
Cannonride.
1 déc. 2016 à 03:07
J'avais testé une solution du genre en ecrivant des "i" en grandes quantités. Mais étant donné que c'est un document professionnel, je prefere faire les choses proprement.
Amicalement,
Cannonride.