Erreur 1004 [Résolu/Fermé]

Feudora 82 Messages postés mardi 5 juillet 2016Date d'inscription 2 décembre 2016 Dernière intervention - 19 oct. 2016 à 11:44 - Dernière réponse : Feudora 82 Messages postés mardi 5 juillet 2016Date d'inscription 2 décembre 2016 Dernière intervention
- 19 oct. 2016 à 13:09
Bonjour tout le monde!!

J'ai ce code :

Sub UserForm_Initialize()
Dim i As Range

With Sheets("Materiel Roulant")  
    Set i = .Range("B2:AA2")
End With

ComboBox1.List = Application.Transpose(i.Value)
    
End Sub

Qui fonctionne très bien mais quand je veux le modifier car ma plage peut varier cela me renvoie une erreur 1004 et je ne sais pas d'où cela peut provenir, je pense avoir bien déclaré mes variables mais bon il doit y avoir quelque chose que j'ai mal fait quand même.
Voici comment je l'ai modifié :
Sub UserForm_Initialize()  
Dim i As Range
Dim dercol As Integer

dercol = Cells(2, Cells.Columns.Count).End(xlToLeft).Column

With Sheets("Materiel Roulant") 
    Set i = .Range(Cells(2, 2), Cells(2, dercol))
End With

ComboBox1.List = Application.Transpose(i.Value)
    
End Sub


Si quelqu'un sait d'où peut provenir mon erreur, je suis preneur.
Merci beaucoup !

Feudora

Afficher la suite 
82Messages postés mardi 5 juillet 2016Date d'inscription 2 décembre 2016 Dernière intervention

2 réponses

jordane45 19207 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 11 décembre 2017 Dernière intervention - 19 oct. 2016 à 11:56
+1
Utile
1
Bonjour,

Sub UserForm_Initialize()
Dim i As Range
Dim dercol As Integer


With Sheets("Materiel Roulant")
  dercol = .Cells(2, Cells.Columns.Count).End(xlToLeft).Column
  Set i = .Range(.Cells(2, 2), .Cells(2, dercol))
End With

ComboBox1.List = Application.Transpose(i.Value)
    
End Sub

Cette réponse vous a-t-elle aidé ?  
Feudora 82 Messages postés mardi 5 juillet 2016Date d'inscription 2 décembre 2016 Dernière intervention - 19 oct. 2016 à 13:09
Super! C'etait ca j'avais bien mal placé ma ligne de dercol !!
Merci beaucoup