Salut a toutes et tous
J'utilise ce code afin lors de l'envoie dans ma feuille des données d'un UserForm faire un emise en forme de ma nouvelle entrée, et biensur cela ne fonctionne pas, cela ne fait rien (Fonction faite par l'enregistreur de macro).
'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 "))
.Offset(0, 8).Value = UserForm2.ComboBoxPrenomNomOperateur.Value
.Offset(0, 9).Value = "'" & UserForm2.TextBoxMatricule.Value 'Gestion du zéro
.Offset(0, 10).Value = Replace(UserForm2.TextBoxCableurs.Text, Chr(13), "")
.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 "))
.Offset(0, 17).Value = "'" & Format(Now, "Long Time")
.Offset(0, 18).Value = UserForm2.ComboBoxPrenomNomOperateur.Value
.Offset(0, 19).Value = "'" & UserForm2.TextBoxMatricule.Value
Call HauteurAutomatique
Call TriCroissant
Call MiseEnForme
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 "))
.Offset(0, 8).Value = UserForm2.ComboBoxPrenomNomOperateur.Value
.Offset(0, 9).Value = "'" & UserForm2.TextBoxMatricule.Value
.Offset(0, 10).Value = Replace(UserForm2.TextBoxCableurs.Text, Chr(13), "")
.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 "))
.Offset(0, 17).Value = "'" & Format(Now, "Long Time")
.Offset(0, 18).Value = UserForm2.ComboBoxPrenomNomOperateur.Value
.Offset(0, 19).Value = "'" & UserForm2.TextBoxMatricule.Value
Call HauteurAutomatique
Call TriCroissant
Call MiseEnForme
End If
End With
End If
Fonction MiseEnForme :
Sub MiseEnForme()
'
' Macro1 Macro
' Macro enregistrée le 17/03/2004 par G'Claire
'
'
ActiveWindow.ScrollColumn = 1
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Qu'es-ce qu'il ne va pas?
Merci pour votre aide, G'Claire