Hauteur de ligne automatique

[G'Claire]

Bonsoir a toutes et tous,

J'utilse ce code pour envoyer mes donnés dans une feuille :

'créer Dans la feuille Tool_Données

With Range("A65536").End(xlUp)(2)

Msg5 = MsgBox(" Voulez-vous ranger ce dossier ? ", vbYesNo + vbQuestion, "Confirmation")
If Msg5 = vbYes Then

.Value = "'" & LTrim(UserForm2.TextBoxReferenceProduit.Value) + UserForm2.TextBoxVersion.Value + UserForm2.TextBoxIndice.Value + UserForm2.TextBoxSup.Value 'Gestion du zéro
.Offset(0, 1).Value = "'" & UserForm2.TextBoxReferenceProduit.Value 'Gestion du zéro
.Offset(0, 2).Value = UserForm2.TextBoxVersion.Value
.Offset(0, 3).Value = UserForm2.TextBoxIndice.Value
.Offset(0, 4).Value = UserForm2.TextBoxSup.Value
.Offset(0, 5).Value = UserForm2.TextBoxDesignationProduit.Value
.Offset(0, 6).Value = UserForm2.TextBoxCasier.Value
.Offset(0, 7).Value = Application.Proper(Format(Now, "dddd dd mmmm yyyy ")) 'Format(Date, "Long Date") 'Format(Now, "DD/MM/YYYY")'UserForm2.TextBoxDateEnregistrement.Value 'Gestion du zéro
.Offset(0, 8).Value = "'" & UserForm2.ComboBoxPrenomNomOperateur.Value 'Gestion du zéro
.Offset(0, 9).Value = UserForm2.TextBoxMatricule.Value
.Offset(0, 10).Value = UserForm2.TextBoxCableurs.Value
.Offset(0, 11).Value = UserForm2.ComboBoxClients.Value
.Offset(0, 12).Value = UserForm2.TextBoxSociete.Value
.Offset(0, 13).Value = UserForm2.TextBoxTelClients.Value
.Offset(0, 14).Value = UserForm2.TextBoxE_Mail.Value
.Offset(0, 15).Value = "Rangé"
.Offset(0, 16).Value = Application.Proper(Format(Now, "dddd dd mmmm yyyy ")) '"'" & UserForm2.TextBoxDateEnregistrement.Value
.Offset(0, 17).Value = "'" & Format(Now, "Long Time")
.Offset(0, 18).Value = UserForm2.ComboBoxPrenomNomOperateur.Value
.Offset(0, 19).Value = "'" & UserForm2.TextBoxMatricule.Value

Else

.Value = "'" & LTrim(UserForm2.TextBoxReferenceProduit.Value) + UserForm2.TextBoxVersion.Value + UserForm2.TextBoxIndice.Value + UserForm2.TextBoxSup.Value 'Gestion du zéro
.Offset(0, 1).Value = "'" & UserForm2.TextBoxReferenceProduit.Value 'Gestion du zéro
.Offset(0, 2).Value = UserForm2.TextBoxVersion.Value
.Offset(0, 3).Value = UserForm2.TextBoxIndice.Value
.Offset(0, 4).Value = UserForm2.TextBoxSup.Value
.Offset(0, 5).Value = UserForm2.TextBoxDesignationProduit.Value
.Offset(0, 6).Value = UserForm2.TextBoxCasier.Value
.Offset(0, 7).Value = Application.Proper(Format(Now, "dddd dd mmmm yyyy ")) '"'" & UserForm2.TextBoxDateEnregistrement.Value 'Gestion du zéro
.Offset(0, 8).Value = "'" & UserForm2.ComboBoxPrenomNomOperateur.Value 'Gestion du zéro
.Offset(0, 9).Value = UserForm2.TextBoxMatricule.Value
.Offset(0, 10).Value = UserForm2.TextBoxCableurs.Value
.Offset(0, 11).Value = UserForm2.ComboBoxClients.Value
.Offset(0, 12).Value = UserForm2.TextBoxSociete.Value
.Offset(0, 13).Value = UserForm2.TextBoxTelClients.Value
.Offset(0, 14).Value = UserForm2.TextBoxE_Mail.Value
.Offset(0, 15).Value = "Sorti"
.Offset(0, 16).Value = Application.Proper(Format(Now, "dddd dd mmmm yyyy ")) '"'" & UserForm2.TextBoxDateEnregistrement.Value
.Offset(0, 17).Value = "'" & Format(Now, "Long Time")
.Offset(0, 18).Value = UserForm2.ComboBoxPrenomNomOperateur.Value
.Offset(0, 19).Value = "'" & UserForm2.TextBoxMatricule.Value

End If
End With
End If


Mais pour cette entrée :

.Offset(0, 10).Value = UserForm2.TextBoxCableurs.Value (Colonne K, a partir de la ligne 8)

Il y a un textBox Multilignes ce qui m'envois plusieur ligne dans une cellule, ce que j'amerai faire c'est lors de l'envoie de ces donnée ajuster automatiquement la ligne suivant le résultat de ce TextBox

Je connais ce code mais n'arrive pas l'utiliser pour mon cas

Columns("K8:K").EntireColumn.AutoFit

Je vous remercie par avance,G'Claire

 

[G'Claire]

Bonsoir le forum

Voila la solution :

With Columns("K:K")
.Columns.AutoFit
.Rows.AutoFit
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
End With

Merci, Myta pour ton aide, G'Claire