cellules deroulantes

[cash01]

bonjour a tous
j'aimerai savoir si cela été possible, dans un formulaire de contact d'intégrer une liste déroulante dans la cellule "ville" on choisirai la ville mais quand elle n'hésite pas, je voudrai l'inscrire dans cette cellule et le nom de la ville s'enregistrer automatiquement dans la feuille paramètre.
le fichier en pièce jointe pour cerner le problème
merci.

 

[BOISGONTIER]

Re : cellules deroulantes

Bonjour,

Ajout liste

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 5 And Target.Count = 1 Then
    If Target <> "" Then
      If IsError(Application.Match(Target.Value, [ville], 0)) Then
        If MsgBox("On ajoute?", vbYesNo) = vbYes Then
          [ville].End(xlDown).Offset(1, 0) = UCase(Target.Value)
          Sheets("parametre").[ville].Sort key1:=Sheets("parametre").Range("A2")
        Else
          Application.Undo
        End If
      End If
      Application.EnableEvents = False
      Target.Value = UCase(Target.Value)
      Application.EnableEvents = True
    End If
  End If
End Sub

JB

 

[cash01]

Re : cellules deroulantes

ok merci a toi JB
Maintenant je voudrai que les lignes se rangent toutes seules dans les autres feuilles suivant la civilité, tout en gardant la feuille base de donné intacte
merci 🙂

 

[BOISGONTIER]

Re : cellules deroulantes

Vor PJ

JB

 

[cash01]

Re : cellules deroulantes

merci JB
je regarde
@+😀