Liste dans la combobox ne s'affiche pas
Bonjour à tous,
Je viens à vous car j'ai un soucis avec mes combobox dans un userform.
Quand je suis sur mon pc personnel je n'ai pas de soucis, mais quand je mets le fichier sur le serveur de mon entreprise le contenu des combobox ne s'affiche pas mais tout le reste fonctionne.
Je n'y connais pas grand chose en VBA et je m'inspire de ce que je trouve sur internet.
je vous joint le fichier, c'est l'UserForm1 quand on clique sur "Nouvelle entrée" qui pose soucis.
Salut :
Avez-vous essayé cette méthode
dans la zones "O1:O3" vous mettez les données :
Préventive
Curative
Améliorative
dans la zones "P1:P4" vous mettez les données :
Equipe Nuit
Equipe A
Equipe B
Direction
dans la zones "Q1:Q4" vous mettez les données :
Basse
Moyenne
Haute
Urgent
dans la zones R1:R2 vous mettez les données :
Oui
Non
Ensuite, tapez le code
ComboBox1.List = Sheets("Interventions").Range("O1:O3").Value
ComboBox2.List = Sheets("Interventions").Range("P1:P4").Value
ComboBox3.List = Sheets("Interventions").Range("Q1:Q4").Value
ComboBox4.List = Sheets("Interventions").Range("R1:R2").Value
J'ai oublié de dire
Le bouton Nouvelle entrée mettez ce code
Sub Ouvrir()
With UserForm1
.ComboBox1.List = Sheets("Interventions").Range("O1:O3").Value
.ComboBox2.List = Sheets("Interventions").Range("P1:P4").Value
.ComboBox3.List = Sheets("Interventions").Range("Q1:Q4").Value
.ComboBox4.List = Sheets("Interventions").Range("R1:R2").Value
.Show
End With
End Sub
Le fichier que vous m'avez modifier fonctionne bien sur le serveur.
Merci beaucoup de votre aide et de votre rapidité.
Même si je n'ai toujours pas compris d'où venait le problème
Encore merci.