Bonsoir tout le monde
je viens vers vous pour solliciter votre aide.
En effet, j'ai adapté un code pour me permettre de faire une liste déroulante sur plusieurs lignes.
et sa marche bien tant que je n'enregistre pas pour fermer. voici le code que J'utilise
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("b2:B602"), Range(Target.Address)) _
Is Nothing Then
Dim TMP As Variant 'déclare la variable TMP (tableau TeMPoraire)
Dim L As String 'déclare la variable L (Liste)
Dim KM As Worksheet
Dim f As Worksheet
Dim D As Object
Set KM = Sheets("Encaissements")
Set f = Sheets("FACTURE")
Set D = CreateObject("Scripting.Dictionary")
For I = 2 To 627
If f.Cells(I, 2) <> "" Then D(f.Cells(I, 2)) = ""
Next
TMP= D.keys
L = Join(TMP, ",")
KM.Range("D8:D49").Validation.Delete
KM.Range("D8:D49").Validation.Add xlValidateList, Formula1:=L
End If
End Sub
Ainsi après réouverture du ficher, il est corrompu voilà les messages. Je connais pas l’origine voilà les messages erreurs
Merci d'avance pour votre aide