Signaler

Erreur 1004 [Résolu]

Posez votre question Feudora 82Messages postés mardi 5 juillet 2016Date d'inscription 2 décembre 2016 Dernière intervention - Dernière réponse le 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 
Utile
+1
moins plus
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

Feudora 82Messages 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
Répondre
Ajouter un commentaire

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !