bonjour
voila une erreur bizaroide

erreur d'execution 380
impossible de definir la propriete value!.valeur de propriete non valide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Sub inicombobox()
 
' le combobx22  entreprise en supprimant les doublons eventuel
' le combobx24type installation en supprimant les doublons eventuel
' le combobx6 N° installation en supprimant les doublons eventuel
' le combobx3  etablissement en supprimant les doublons eventuel
' le combobx23  n°lot en supprimant les doublons eventuel
' le combobx5  site geographique en supprimant les doublons eventuel
' le combobx4 type de batiment en supprimant les doublons eventuel
   Dim j As Integer, derniereligne As Integer
             ComboBox24.AddItem
             ComboBox6.AddItem
            ComboBox5.AddItem
           ComboBox3.AddItem
             ComboBox23.AddItem
            ComboBox22.AddItem
            ComboBox4.AddItem
    derniereligne = Sheets("feuil2").Range("m4").End(xlDown).Row 'derniere ligne occupee dans colonne A
       'For j24 = 4 To Sheets("feuil2").Range("b65536").End(xlUp).Row
          For j = 4 To derniereligne
 
'           ComboBox24 = Sheets("feuil2").Range("b" & j)
           ComboBox6 = Sheets("feuil2").Range("a" & j)
         ComboBox5 = Sheets("feuil2").Range("d" & j)
          ComboBox3 = Sheets("feuil2").Range("e" & j)
            ComboBox23 = Sheets("feuil2").Range("i" & j)
           ComboBox22 = Sheets("feuil2").Range("k" & j)
           ComboBox4 = Sheets("feuil2").Range("f" & j)
 
 
  erreur =>        ComboBox24 = Sheets("feuil2").Cells(j, 2).Value
 ou          combobox24=sheets("feuil2").range("b"& j)
seul combobox24 pose erreur.
la colonne B est du text

Je comprends pas ???????????????