Je sais bien j'ai essayer touts les programmes que j'ai pu trouver sur le forum.. c'est pour ça que je demande de l'aide car peut être que je loupe une étape ... J'ai repris des programmes d'un certain Banzaï si je me souvient bien de son pseudo .. les autres je ne me souvient plus des noms .. j'ai essayer tellement de chose ..
voici un des programmes que j'ai essayer (trouvée sur ce site : http://www.contextures.com/excel-data-validation-multiple.html) :
Private Sub Worksheet_Change(ByVal Target As Range)
' Developed by Contextures Inc.
' www.contextures.com
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitHandler
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If Target.Column = 11 Then
If oldVal = "" Then
'do nothing
Else
If newVal = "" Then
'do nothing
Else
Target.Value = oldVal _
& ", " & newVal
End If
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub