Re
Comment fait-on pour changer cela s'il vous plait ? (car j'ai envoyé le fichier modifié d'un document confidentiel)
OK. C'est toujours source d'erreur dans les échanges quand on n'a pas le fichier utilisé réellement
1. Pour changer,
- Aller dans l'éditeur VBA et sélectionne l'USF Services
- Appuyer sur F4 pour afficher les propriétés (en principe cette fenetre est affichées par défaut mais sait-on jamais...
- Sélectionner la combobox
- dans les propriétés, aller à la rubrique TEXT (il est indiqué Administration des ventes dans le fichier posté ici) pour changer le text
Cela peut se faire par code aussi si on le désire bien entendu
2. Une chose dans cette même fenêtre, dans la rubrique ROWSOURCE, il y a le nom MACRO. Vous pouvez le supprimer
3. Ensuite aller dans l'USF Services et remplacez tous les codes par ceux ci-dessous
Private Sub UserForm_Initialize()
With Sheets("Menu déroulant des services")
dcol = .Cells(3, .Columns.Count).End(xlToLeft).Column
ComboBox1.List = WorksheetFunction.Transpose(.Range("B3:t" & dcol).Value)
End With
End Sub
Private Sub combobox1_Change()
Dim col As Integer, dlig As Integer
Me.ComboBox2 = ""
With Sheets("Menu déroulant des services")
col = .Range("B3:t" & dcol).Find(Me.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Column
dlig = .Cells(.Rows.Count, col).End(xlUp).Row
If dlig > 3 Then ComboBox2.List = .Range(.Cells(4, col), .Cells(dlig, col)).Value
End With
End sub
Evitez les accents lorsque vous faites appel à la programmation, vous risquez toujours d'avoir des problèmes à un moment ou un autre. Qui plus est si vous passez de windows à iOS (Mac) ou l'inverse. Mettez plutot ceci par exemple -> "Menu_deroulant_Services" ou "Menu_Services"
Cordialement
EDIT : attention il faut ajouter ceci juste avant la ligne Private Sub UserForm_Initialize() --> Dim dcol as integer