salut 78chris
tu as raison c 2016 avec maj avril 2017
pour le fichier trop de données dessus pour le rendre anonyme
voici le code de la feuille divers
' liste déroulante Divers
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim REP As Boolean
Cancel = False
If Not Intersect(Target, Range("A13")) Is Nothing And UserForm2_Divers.Visible = False Then
UserForm2_Divers.Show
End If
Cancel = True
End Sub
les codes de l userform divers
' Pour ouvrir automatiquement la liste déroulante du combobox
Private Sub UserForm_Activate()
Me.ComboBox1_Divers.DropDown
End Sub
' Pour placer la 1ere ligne du choix de la liste déroulante du combobox à l'endroit choisi sur la feuille
Private Sub ComboBox1_Divers_Change()
Dim R
R = Array(14, 50, 86, 122, 158)
ActiveWindow.ScrollRow = R(ComboBox1_Divers.ListIndex)
Unload Me
End Sub
que ça soit divers ou fournisseurs les codes sont les mêmes je ne comprend pas pourquoi divers (1) ne marche pas et ce sélectionne tout seul a l ouverture de l userform alors que fournisseurs marche tres bien
merci a celui qui as la solution !!!