XL 2013 Cells.EntireColumn.AutoFit mais pas sur la colonne M

Khrysthof à dit:

Bonjour à tous,
J'ai beau chercher sur tout un tas de forum et autre video YT, je trouve pas la solution qui est surement fort simple

Dans le fichier joins je voudrais pouvoir faire en sortent que chaque colonne s'adapte au texte sauf la colonne M qui contient des commentaires qui peuvent parfais etre tres long.
et que cette colonne M renvoi a la ligne automatiquement
Merci d'avance pour votre aide.

Cliquez pour agrandir...

Private Sub EnregistrerBouton_Click()
   With Sheets("Le Marché 24.12")
      l = 6
      While Not IsEmpty(.Cells(l, 2))
         l = l + 1
      Wend

      .Cells(l, 2) = CottageBox.Text
      .Cells(l, 3) = NomBox.Text
      .Cells(l, 4) = PrenomBox.Text
      .Cells(l, 5) = TelephoneBox.Text
      .Cells(l, 6) = EmailBox.Text
      .Cells(l, 7) = NbTotalBox.Text
      .Cells(l, 8) = NbAdulteBox.Text
      .Cells(l, 9) = NbEnfantBox.Text
      .Cells(l, 10) = NbBebeBox.Text
      .Cells(l, 11) = ComboBox_ModeReglement.Text
      .Cells(l, 12) = ComboBoxRegle.Text
      .Cells(l, 13) = CommentaireBox.Text

      'redimensionner la colonne commentaire
      With .Columns("M:M")
         .WrapText = True
         .Orientation = 0
         .AddIndent = False
         .ShrinkToFit = False
         .ReadingOrder = xlContext
         .MergeCells = False
         .ColumnWidth = 35
      End With
   End With
   '    Range("Tableau1[[#Headers],[N° Cottage]]").Select
End Sub

 .Columns("A:L").AutoFit  à mettre  l'intérieur du With Sheets("Le Marché 24.12")

Khrysthof à dit:

Merci Cath de ton retour.

L'Autofit n'est pas dans le code mais dans la feuille "Le Marché 24.12"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.EntireColumn.AutoFit
End Sub

Si il y a moyen de l'inserer dans la code et d'eviter que cela affecte la colonne M, et que cette colonne M renvoie à la ligne, je suis preneur.

Malgré ta "retouche" s'en ai malheureusement toujours au même point

Cliquez pour agrandir...

Khrysthof à dit:

Bonjour Cath,
Après l'essai de ton fichier, au niveau des commentaires (colonne M), c'est impec, par contre toujours des petits soucis au niveau des colonnes Nom, Prenom et email, que j'ai en partie réglé en allant de "format de cellule" "alignement" "ajuster", mais malgré cela le souci reste sur l'Email ...

Cliquez pour agrandir...