Mise à jour automatique de liste

Bonsoir,

Pour la création d'un suivi d'appel, j'aimerais vos lumières.

Par exemple, est-t-il possible de mettre une liste déroulante modifiable dans le champs "société" du feuillet "formulaire" et de ce fait ajouter automatiquement dans la liste "société" de feuillet "liste" ?

Par exemple Mme. Mangin de la société 6 appelle. Cette société sera ajoutée à la liste déjà existante SI et SEULEMENT SI (je présume que c'est cette fonction, mais je m'arrache les cheveux pour faire ce que je veux) elle n'y apparaît pas déjà. Vous voyez ce que je veux dire ? Suis-je assez claire ?

De même, j'aimerait pouvoir taper les première lettres dans le champs et avoir des proposition. Par exemple, l'appel est pour Vassor, que je tape "va" plutôt que de défiler jusqu'en bas

Merci beaucoup !

P.S : J'ai bien conscience qu'il y a un problème avec ma macro, je me suis plantée quelque part j'essaie de régler le problème !

Bonjour,

tu pourrais modifier les formules des plages nommées pour les rendent dynamique,

par exemple:

Correspondant

=DECALER(Listes!$A$2;0;0;NBVAL(Listes!$A:$A)-1;1)

Sociétés

=DECALER(Listes!$C$2;0;0;NBVAL(Listes!$C:$C)-1;1)

Bonjour et bienvenue sur le forum

Bonjour à tous

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

Formulaire avec recherche intuitive du correspondant

Dim choix()
Private Sub UserForm_Initialize()
  Me.DateHeure = Now
  Set f = Sheets("BD")
  Me.ComboBox1.List = Application.Transpose([correspondant].Value)
  choix = Application.Transpose([correspondant].Value)
  Me.ComboBox1.List = choix
  Me.ComboBox2.List = [sociétés].Value
End Sub

Private Sub ComboBox1_Change()
  Set d1 = CreateObject("Scripting.Dictionary")
  tmp = UCase(Me.ComboBox1) & "*"
  For Each c In choix
    If UCase(c) Like tmp Then d1(c) = ""
  Next c
  Me.ComboBox1.List = d1.keys
  Me.ComboBox1.DropDown
End Sub

Private Sub ComboBox1_Click()

End Sub

Private Sub b_validation_Click()
  enreg = [tableau1].Rows.Count + 1
  [tableau1].Item(enreg, 1) = Now
  [tableau1].Item(enreg, 2) = Me.TextBox1
  [tableau1].Item(enreg, 3) = Me.TextBox2
  [tableau1].Item(enreg, 4) = Me.ComboBox2
  [tableau1].Item(enreg, 5) = Me.ComboBox1

End Sub

Boisgontier

Bonjour à tous,

Boisgontierjacques et gmp vous m'enlever chacun une belle épine du pied !

Un mélange de vos deux essais serait parfait ! En effet, l'un m'ajoute les sociétés non connues dans la liste des société, et l'autre me rempli le tableau !

Merci beaucoup pour vos retours !

Belle journée.

Il y a un pb avec le tableau Correspondant et le tableau sociétés.

J'ai remplacé Correspondant par correspondant2

Option Compare Text
Dim choix()
Private Sub UserForm_Initialize()
  Me.DateHeure = Now
  choix = Application.Transpose([correspondant2].Value)
  Me.ComboBox1.List = choix
  Me.ComboBox2.List = [sociétés].Value
End Sub

Private Sub ComboBox1_Change()
  Set d1 = CreateObject("Scripting.Dictionary")
  tmp = UCase(Me.ComboBox1) & "*"
  For Each c In choix
    If UCase(c) Like tmp Then d1(c) = ""
  Next c
  Me.ComboBox1.List = d1.keys
  Me.ComboBox1.DropDown
End Sub

Private Sub b_validation_Click()
  enreg = [tableau1].Rows.Count + 1
  [tableau1].Item(enreg, 1) = Now
  [tableau1].Item(enreg, 2) = Me.TextBox1
  [tableau1].Item(enreg, 3) = Me.TextBox2
  [tableau1].Item(enreg, 4) = Me.ComboBox2
  [tableau1].Item(enreg, 5) = Me.ComboBox1
End Sub

Private Sub b_nouveau_Click()
  enreg = [correspondant2].Rows.Count + 1
  [correspondant2].Item(enreg, 1) = Me.ComboBox1
End Sub

Boisgontier

Ah oui ?

(J'y comprends rien)

Cette liste est fixe (c'est le personnel de l'entreprise vers qui sont transférés les appels)

C'est la liste Société qui doit être mise à jour

Merci

J'ai mis les 2 combos intuitifs

Boisgontier

C'est parfait merci beaucoup ! ! (Je suis admirative !)

Bonne journée !