Reduction taille colonnes

Bonsoir à tout le monde

voilà j'ai deux macros pour réduire certaines colonnes mais toutes les deux bloquent mon excel

j'aimerai qu'elle me réduise les colonnes "p" a "z" dans une largeur de 3

de la feuille active , je ne comprends pas pourquoi ces deux macros bloquent excel or que toutes les autres macros fonctionnent bie,

je vous joins les deux macros

d'avance merçi

Sub ReduireLargeurColonnesFeuilleActive()
    Dim colonne As Range
    For Each colonne In ActiveSheet.Range("P:Z")
        colonne.ColumnWidth = 3
    Next colonne
End Sub

et la seconde
Sub ReduireLargeurColonnesFeuilleActive()
    Dim colonne As Range
    For Each colonne In ActiveSheet.Range("P:Z")
        colonne.EntireColumn.AutoFit
    Next colonne
End Sub

Jacques

Bonjour,

Essai :

'' Pour la feuille active ...

Columns("P:Z").ColumnWidth = 3

Biz

bonsoir et merçi

j'ai trouvé une solution

Sub a018_Largeur_Trois_Col_J_Z()
'
' a018_Largeur_Trois_Col_J_Z Macro
' met les colde troisonnes de J a Z dans une largeur
'

'
    Columns("J:Z").Select
    Range("J9").Activate
    Selection.ColumnWidth = 3
End Sub

après on change les colonnes comme on veut

Je te remerçie grandement pour ton aide

Jacques

Bonjour,

Il est préférable d'éviter les ".Select" et les ".Activate" tant que c'est possible, question de vitesse d'exécution et de code plus concis.

Il ne reste donc que :

Columns("P:Z").ColumnWidth = 3 ou Columns("J:Z").ColumnWidth = 3 selon le 2e exemple

Bon apprentissage ...

Biz

Bonjour,

Merçi à vous pour les conseils

je suis en plein apprentissage du vba pour excel

encore merçi et c'est noté

Jacques