Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Mitch
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Mitch

XLDnaute Occasionnel
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
 
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
 
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 😉
VB:
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+
 

Pièces jointes

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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Réponses
4
Affichages
2 K
V
Réponses
2
Affichages
2 K
VOILLOT
V
Réponses
8
Affichages
1 K
Réponses
10
Affichages
2 K
Réponses
6
Affichages
18 K
A
Réponses
5
Affichages
10 K
A
F
  • Question Question
Réponses
5
Affichages
1 K
FullMetalKnet
F
K
Réponses
13
Affichages
7 K
K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…