dionys0s
XLDnaute Impliqué
Bonsoir le forum.
j'ai un soucis avec un userform : je ne comprends pas pourquoi je n'arrive pas à l'appeler une deuxième fois. J'ai l'impression que c'est à cause de son initialisation, mais impossible de comprendre ce qui cloche vu que quand je l'appelle pour la première fois tout se passe bien... 😕
Si vous pouviez m'aider je vous en serait très reconnaissant.
voici le code :
En attendant je vais continuer à chercher ce qui ne va pas
j'ai un soucis avec un userform : je ne comprends pas pourquoi je n'arrive pas à l'appeler une deuxième fois. J'ai l'impression que c'est à cause de son initialisation, mais impossible de comprendre ce qui cloche vu que quand je l'appelle pour la première fois tout se passe bien... 😕
Si vous pouviez m'aider je vous en serait très reconnaissant.
voici le code :
Code:
Private Sub UserForm_Initialize()
Dim Service
Service = Sheets("Variables").Range("B4")
Dim ColonneService As Integer
ColonneService = Sheets("Services").Rows("1:1").Find(What:=Service, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Column
Dim DerLignService
DerLignService = Sheets("Services").Cells(65536, ColonneService).End(xlUp).Row
Dim a
For a = 4 To DerLignService
ComboBox1.AddItem Sheets("Services").Cells(a, ColonneService)
Next
Dim DerLignSAF As Integer
DerLignSAF = Sheets("Sociétés").Range("A65536").End(xlUp).Row
Dim b
For b = 2 To DerLignSAF
ComboBox2.AddItem Sheets("Sociétés").Cells(b, 1)
Next
Dim DerLignProjOpé As Integer
DerLignProjOpé = Sheets("Analytique").Range("A65536").End(xlUp).Row
Dim c
For c = 2 To DerLignProjOpé
ComboBox3.AddItem Sheets("Analytique").Cells(c, 1)
Next
Dim DerLignFournisseur As Integer
DerLignFournisseur = Sheets("Fournisseurs").Range("B65536").End(xlUp).Row
Dim d
For d = 1 To DerLignFournisseur
ComboBox4.AddItem Sheets("Fournisseurs").Cells(d, 2)
Next
End SubEn attendant je vais continuer à chercher ce qui ne va pas