Largeur de colonne s'incrémente de 1 cm sur 60 colonnes

Bonjour à tous,

Une proposition :

Sub largCol()   
    Dim col As Long, col1 As Long, larg1 As Single   
    col1 = 3   
    larg1 = Columns(col1).ColumnWidth   
    For col = col1 + 1 To col1 + 10
        Columns(col).ColumnWidth = larg1 * 1.2 ^ (col - col1)   
    Next col   
End Sub

Dans le code fixer la 1ère colonne de référence (ici 3) et le nombre total de colonnes (ici 10)
La macro multiplie par x fois 1.2 la largeur de chaque colonne selon sa position.
Comme dit scinarf c'est la largeur en caractères qui compte. Tu auras sûrement un décalage à cause de ça (pas le choix de toute façon), ajuste éventuellement le 1.2
Sinon, sur le même principe, tu peux faire l'inverse en partant de la colonne la plus large, les erreurs d'arrondi seront moins gênantes
eric

PS: je viens de réaliser que tu voulais ajouter et non pas multiplier, pas grand chose à modifier mais je dois m'absenter...

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

Bonjour,

Question pourquoi vouloir exactement 1cm puis 1.2 cm puis 1.4cm ect ...

Il est largement possible de faire une macro qui augmente la taille des colonnes en fonction du nombre d'une unité bien spécifique à Excel la taille du caractère.

En effet, après de brève recherches la longueur de la colonne par défaut est définit comme valant 8.43 caractères (aucune idée du pourquoi) par défaut (police Arial taille 10 il me semble).

On peut faire un programme basé la dessus, mais le mieux c'est de créer une macro qui fait a ce que vous souhaitez sans vous soucier de la taille du caractère (plus facile).

Je posterai le code quand vous m'aurez répondu pour ne pas que je le fasse inutilement.

Merci pour vos réponses,

C'était un exemple 1, 1,2 1,4 c'est égal en fait.

Ce que j'aimerais par exemple c'est la colonne C à 2, la colonne D à 3, la colonne E à 4 etc...

Est-ce que c'est ce même code

Merci bien pour votre aide

Alors le code est bien mais j'aurais voulu avoir par exemple la 1ère colonne à 7, la deuxième colonne à 8,5 etc... est-ce possible ?

Sub largCol()   
    Dim col As Long, col1 As Long, larg1 As Single   
    col1 = 3   
    larg1 = Columns(col1).ColumnWidth   
    For col = col1 + 1 To col1 + 10
        Columns(col).ColumnWidth = larg1 * 1.2 ^ (col - col1)   
    Next col   
End Sub

Merci de m'aider

Re-Bonjour,

Si vous avez un peu de temps...

Salut à tous,

Dslé Eriiic tu as raison ...

J'ai pris la 2ème version régler manuellement la largeur de la première colonne et ensuite j'ai lancer la macro mais j'ai l'erreur suivante qui apparaît:

Erreur d'exécution 1004

Impossible de définir la propriété ColumnWidth de la Classe Range

"Columns(col).ColumnWidth = larg1 * 1.2 ^ (col - col1)"

Merci pour votre aide

Merci pour la réponse,

En fait j'ai réduit la colonne A à 5.57 et ensuite exécuter la macro suivante

Sub largCol()
    Dim col As Long, col1 As Long, larg1 As Single
    col1 = 1
    larg1 = Columns(col1).ColumnWidth
    For col = col1 + 1 To col1 + 30
        Columns(col).ColumnWidth = larg1 * 1.2 ^ (col - col1)
    Next col
End Sub

Il me fait bien ce que je souhaite mais m'afficher la boîte de débogage

http://cjoint.com/?CCgjsLcMS4A

Le lien pour le fichier excel
http://cjoint.com/?CCgjwiRai5c

Merci