Méthode range a échoué

[ifi77]

Bonjour,

J"essaye d'adapter 2 codes à mes besoins mais voila il me met que la méthode range à échoué, à votre avis d'ou proviendrait le probleme.

Merci

Private Sub BtnOK_Click()

Dim crit1 As Variant
Dim crit2 As Variant
Dim crit3 As Variant
Dim temp As Variant

For ind = 1 To 3
If Me("Label" & ind).Caption = "Critère " & ind Then
Me("Label" & ind).Caption = Me.ComboBox1.Value
NomSht = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 2)
Set Sht = Sheets(NomSht)
Col = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)

'méthode Dictionary issue du site de Jacques BOISGONTIER : Formation Excel VBA JB

dl = Sht.Cells(Application.Rows.Count, 1).End(xlUp).Row
Set crit1 = CreateObject("Scripting.Dictionary")
For Each cel In Sht.Range(Col & dl) 'boucle sur toutes les cellules éditées de la Colonne
crit1.Item(cel.Value) = cel.Value
Next cel
temp = crit1.items
Call tri(temp, LBound(temp), UBound(temp))
Me.ComboBox2.List = temp
End If
Next ind
End Sub

merci @+

 

[pierrejean]

Re : Méthode range a échoué

Bonjour ifi77

Col & dl devrait avoir la forme : A1:B12 eventuellement A1:A12
dl etant de la forme 12 Col devrait etre A1:A
En supposant la combobox1 de la forme A
il faudrait :
For Each cel In Sht.Range(Col & "1:" & Col & dl)

 

[ifi77]

Re : Méthode range a échoué

Bonjour et merci pierrejean,

si je peux me permettre de te demander un coup de main, en fait j'essaye d'adapter un code mais je m'y perd avec les variables.
Je te mets la pièce jointe si cela ne te derange pas d'y jeter un coup d'oeil.

D'avance merci.

@+