bonjour
voila une erreur bizaroide
erreur d'execution 380
impossible de definir la propriete value!.valeur de propriete non valide
seul combobox24 pose erreur.
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)
la colonne B est du text
Je comprends pas ???????????????
Partager