combobox

[Mitch]

Bonjour , dans la feuille planning j'ai un userform avec un un menu deroulant ( RowSource suivi appro D4😀100 ) qui correspond au nom du client , j'aurais voulu pouvoir inserer aussi la ville
Ex : Atchoum (Bordeaux)
je joint mon fichier pour me faire mieux comprendre
Merci
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Compte Supprimé 979]

Re : combobox

Bonjour Mitch,

Petite question, veux-tu voir ensuite apparaitre la ville dans tes feuilles ?

A+

 

[Mitch]

Re : combobox

Bonjour BrunoM45 et merci de me repondre
Oui je voudrais que ca apparaisse comme le fichier envoyer (feuille planning )
Oups excuse voila le bon
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Compte Supprimé 979]

Re : combobox

Re,

Il faut modifier ton code dans ton USF et supprimer la plage RowSource de ton combobox2

Voir code ci-dessous et fichier joint 😉

Private Sub UserForm_Initialize()
  Dim Dlig As Long, Lig As Long
  ' Effacer le combobox avant de le remplir
  Me.ComboBox2.Clear
  ' Remplir le combobox avec la feuille BDD
  With Sheets("BDD")
    Dlig = .Range("A" & Rows.Count).End(xlUp).Row
    For Lig = 2 To Dlig
      Me.ComboBox2.AddItem .Range("A" & Lig) & " (" & .Range("D" & Lig) & ")"
    Next Lig
  End With
  Me.DTPicker1 = VBA.Date
End Sub

A+

 

[Mitch]

Re : combobox

Bonjour BrunoM45 je te remercie de ton aide je modifie le code , je te souhaite une bonne journée

 

[Mitch]

Re : combobox

Bonjour , je relance ce post car j'ai un souci
le code de BrunoM45 fonctionne parfaitement j'ai juste modifie suivant mes besoins
Private Sub UserForm_Initialize()
Dim Dlig As Long, Lig As Long
' Effacer le combobox avant de le remplir
Me.ComboBox2.Clear
' Remplir le combobox avec la feuille suivi appro
With Sheets("suivi appro")
Dlig = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = 4 To Dlig
Me.ComboBox2.AddItem .Range("D" & Lig) & " (" & .Range("F" & Lig) & ")"
Next Lig
End With
Me.DTPicker1 = VBA.Date
End Sub
mais maintenant que le nom et suivi de la ville quand je planifie dans la feuille (planning) mais date de pose ne ce transfère plus dans ma feuille (suivi appro) ni si je mais (ok) dans la colonne A