menu déroulant auto incrémenter

[Cedricdu60]

Bonsoir tout le monde

Je voudrais savoir comment je pourrais faire pour que dans un menu déroulant les nouvelle info rentrer aille se mettre directement dans la base de donné du menu déroulant.

Merci à tous et à bientôt

 

[BOISGONTIER]

Re : menu déroulant auto incrémenter

Bonjour,

Voir PJ

La liste doit avoir au moins un élément au départ.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([b2:b22], Target) Is Nothing Then
     If IsError(Application.Match(Target.Value, [liste], 0)) Then
        If MsgBox("On ajoute?", vbYesNo) = vbYes Then
           n = [liste].Count
           Sheets("BD").Range("liste")(n).Offset(1, 0) = Target.Value
           Sheets("BD").[liste].Sort key1:=Sheets("BD").Range("liste")
        Else
           Application.Undo
        End If
     End If
   End If
End Sub

JB
Formation Excel VBA JB

 

[Cedricdu60]

Re : menu déroulant auto incrémenter

ha ba c'est super ça j'en espérer pas temps!
C'est super gentil de t'être donner du mal pour moi merci beaucoup "BOISGONTIER"
A bientôt

 

[Cedricdu60]

Re : menu déroulant auto incrémenter

dit moi comment je doit coder cela pour pas que le userbox apparaisse?
La même chose mais sans le userbox qui me demande si je veux ajouter

 

[BOISGONTIER]

Re : menu déroulant auto incrémenter

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([b2:b22], Target) Is Nothing Then
     If IsError(Application.Match(Target.Value, [liste], 0)) Then
           n = [liste].Count
           Sheets("BD").Range("liste")(n).Offset(1, 0) = Target.Value
           Sheets("BD").[liste].Sort key1:=Sheets("BD").Range("liste")
      End If
   End If
End Sub

JB

 

[Cedricdu60]

Re : menu déroulant auto incrémenter

Encore merci pour tout!!!!

Dit moi j'avais poster un problème mais personne ne m'avais répondu est ceux que tu pourrais y jetait un œil?