Bonjour,
Je te remercie ça marche bien sauf je souhaite ajouter tout ce que je saisie sur le champ commentaire il m'enregistre vers la dernière colonne de ma BDD1 .
J'ai pensé ajouter ça à la suite du code
.Cells(Ligne, 100) = Application.Proper(Me!TBCommentaires)
mais ça n'a pas marcher.
Private Sub CBValidation_Click()
'CBMagasin.List (CBMagasin.ListIndex)
Dim Avant As String
If Me.CBPreparer.ListIndex = 0 Then
Avant = "Non"
Else
Avant = "Oui"
End If
With Sheets("BDD1")
.Range("A3").CurrentRegion.AutoFilter Field:=90, Criteria1:=Me.CBMagasin
.Columns("CS").Replace What:=Avant, Replacement:=Me.CBPreparer, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
.AutoFilterMode = False
.Cells(Ligne, 100) = Application.Proper(Me!TBCommentaires)
End With
End Sub
Cordialement