Numéro de colonne

Bonjour le forum,

J'aurai besoin d'une sélection de colonnes par chiffre, vu qu'on a pas la détection de la derrière colonne par lettre, que je sache.

Columns("B:E").EntireColumn.AutoFit 

    Columns("D:E").Select
    Range("E1").Activate
    Selection.ColumnWidth = 4.29

J'ai bien vu les fonctions colLetter et colNum du pack complémentaire, mais il faut un mot de passe apparemment.

Merci

Hello,

Essaie cette fonction très utile pour récupérer la colonne en lettre

Function lettre_col(n As Integer)
 lettre_col = Split(Cells(1, n).Address, "$")(1)
End Function

@+

Bonjour le fil,

fronck, quand arrêterez vous de faire des "select", "activate" et autre
VBA est langage orienté objets, utilisez les correctement

Voici un exemple simple de ce que vous pouvez faire

Sub Test()
  Dim dCol As Long
  With Sheets("Feuil1")
    dCol = .Cells(1, Columns.Count).End(xlToLeft).Column
    .Range(.Cells(1, 1), .Cells(1, dCol)).EntireColumn.AutoFit
    .Range(.Cells(1, 1), .Cells(1, dCol)).ColumnWidth = 4.29
  End With
End Sub

A+

Merci Baroute du 78, Cà fonctionne bien

Bruno, Je suis étonné que le format des colonnes puisse se faire avec les cellules.

J'ai déjà utilisé le code comme çà avec with feuil1, mais comme mon code fonctionne aussi..

Merci

Re,

Bruno, Je suis étonné que le format des colonnes puisse se faire avec les cellules.

Alors vous serez étonné par beaucoup de choses

Bonne soirée