G
G'Claire
Guest
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
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