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

[Khrysthof]

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.

 

[cathodique]

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.

Bonsoir,

je n'ai pas trouvé autofit dans ton code.

évite les select et selection. ton code en retour.

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

sinon, à la place du code pour la colonne M ou en complément tu peux ajouter ce bout de code

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

 

[Khrysthof]

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 🙁

 

[cathodique]

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 🙁

je me suis limité au formulaire. ton fichier en retour

 

[patricktoulon]

Bonsoir
peut être simplement comme ça
Dim W#
w=range("M:M").width
cells.entirecolumn.autofit
range("M:M").width=w

 

[Khrysthof]

Merci à nouveau Cath,
Je vais essayé cela demain.

Et merci à toi aussi Patrick,
par contre où est-ce que je positionnent ces lignes de code ?

Bonne fin de soirée

 

[Khrysthof]

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 ... 🙁

 

[cathodique]

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 ... 🙁

Bonjour,

Peux-tu être plus explicite. Ta demande initiale était de faire un autofit sur les colonnes.
à mon avis, il reste beaucoup de choses à faire dans ton formulaire.
Tu trouveras un code de @patricktoulon pour appliquer le format téléphone.
Je reviendrais plus tard, je dois sortir.

 

[cathodique]

Bonjour,

Je t'ai ajouté la procédure masque de saisie n°tel de @patricktoulon
Et code pour uniquement numérique dans les textboxs nombre personne et suivante.
Pour Email, si j'ai bien compris tu voudrais concaténer colonne nom et colonne prenom.
Il s'avère que beaucoup de personnes (dont moi) leur adresse mail n'est pas composé du nom et prénom.

bon dimanche.

 

[Khrysthof]

Merci beaucoup c'est parfait comme ça.
Pour la colonne e-mail, je voulais juste qu'elle s'autofit comme les autres colonnes, mais je vais laisser comme cela, elle ne sera pas trop utilisée.
Merci à toi et bon dimanche