erreur sur code

[hicham28]

merci encore une autre fois de m'avoir aider,
ce code concerne l'alimentation de deux combobox, j'arrive pas a avoir ou est l'erreur, merci a avous

Private Sub UserForm_Initialize()
Dim plage1 As Range
Dim Tab1() As String
Dim plage2 As Range
Dim Tab2() As String
With Sheets("base")
    Set plage1 = .Range("d1:d" & .Range("d65536").End(xlUp).Row)
End With
ReDim Tab1(1 To plage1.Count)
For Each Cell In plage1
    i = i + 1
    Tab1(i) = Cell
Next
Beneficaire.List = Tab1
With Sheets("base")
    Set plage2 = .Range("f1:f" & .Range("f65536").End(xlUp).Row)
End With
ReDim Tab2(1 To plage2.Count)
For Each Cell In plage2
    i = i + 1
    Tab2(i) = Cell
Next
Reglement.List = Tab2
End Sub

 

[Compte Supprimé 979]

Re : erreur sur code

BONJOUR Hicham28

Tu sais Hicham28, sur un forum ce n'est pas un "bonjour" par jour 🙄
C'est un nouveau post = un nouveau bonjour

Pour l'erreur ... sans message ni fichier difficile de te répondre

 

[hicham28]

Re : erreur sur code

oui dsl bonjour a vous, et dsl,

 

[ROGER2327]

Re : erreur sur code

Bonsoir à tous

Essayez ceci :

[COLOR="DarkSlateGray"][B]Private Sub UserForm_Initialize()
Dim plage1 As Range
Dim Tab1() As String
Dim plage2 As Range
Dim Tab2() As String
Dim Cell As Range
Dim i&
   With Sheets("base")
      Set plage1 = .Range("d1:d" & .Range("d65536").End(xlUp).Row)
   End With
   ReDim Tab1(1 To plage1.Count)
   For Each Cell In plage1
      i = i + 1
      Tab1(i) = Cell
   Next
   Beneficaire.List = Tab1
   With Sheets("base")
      Set plage2 = .Range("f1:f" & .Range("f65536").End(xlUp).Row)
   End With
   ReDim Tab2(1 To plage2.Count)
   [COLOR="Red"]i = 0[/COLOR]
   For Each Cell In plage2
      i = i + 1
      Tab2(i) = Cell
   Next
   Reglement.List = Tab2
End Sub[/B][/COLOR]

et, pourquoi pas ceci ?

[COLOR="DarkSlateGray"][B]Private Sub UserForm_Initialize()
   With Sheets("base")
      Beneficaire.List = .Range("d1:d" & .Range("d65536").End(xlUp).Row).Value
      Reglement.List = .Range("f1:f" & .Range("f65536").End(xlUp).Row).Value
   End With
End Sub[/B][/COLOR]

ROGER2327
#3647

Vendredi 20 Merdre 137 (Sainte Colombine, expurgée, SQ)
18 Prairial An CCXVIII
2010-W22-7T16:57:54Z

 

[hicham28]

Re : erreur sur code

merci a vous.