Bonjour,
Voici ce que j'ai dans un userform :
Sub Userform_initialize()
dim ligne as integer
ligne=Worksheets("Infofeuille").Range("A50").End(xlup).Offset(1).Row
ComboBox1.List=Worksheets("infofeuille").Range(Cells(1,1),Cells(l,1)).Value
End Sub
Lorsque je suis sur la feuille Infofeuille, tout fonctionne bien.
Quand je suis dans une autre feuille, cela ne fonctionne pas et j'ai le
message suivant :
"erreur d'exécution 1004, Erreur définie par l'application ou par l'objet".
Quelqu'un peut il me venir en aide ?
Merci beaucoup.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
shname¬tivesheet.name Sub Userform_initialize()
Dim ligne As Integer shname¬tivesheet.name
Worksheets("Infofeuille").Activate
ligne = Worksheets("Infofeuille").Range("A50").End(xlUp).Offset(1).Row ComboBox1.List = Worksheets("infofeuille").Range(Cells(1, 1), Cells(ligne, 1)).Value
Worksheets(shname).Activate
End Sub
Espère que ca te convient.
Bonjour, Voici ce que j'ai dans un userform : Sub Userform_initialize() dim ligne as integer ligne=Worksheets("Infofeuille").Range("A50").End(xlup).Offset(1).Row ComboBox1.List=Worksheets("infofeuille").Range(Cells(1,1),Cells(l,1)).Value End Sub
Lorsque je suis sur la feuille Infofeuille, tout fonctionne bien. Quand je suis dans une autre feuille, cela ne fonctionne pas et j'ai le message suivant : "erreur d'exécution 1004, Erreur définie par l'application ou par l'objet".
Quelqu'un peut il me venir en aide ? Merci beaucoup.
Christian.
Bonjour,
shname¬tivesheet.name
Sub Userform_initialize()
Dim ligne As Integer
shname¬tivesheet.name
Worksheets("Infofeuille").Activate
ligne = Worksheets("Infofeuille").Range("A50").End(xlUp).Offset(1).Row
ComboBox1.List = Worksheets("infofeuille").Range(Cells(1, 1), Cells(ligne,
1)).Value
Worksheets(shname).Activate
End Sub
Espère que ca te convient.
Bonjour,
Voici ce que j'ai dans un userform :
Sub Userform_initialize()
dim ligne as integer
ligne=Worksheets("Infofeuille").Range("A50").End(xlup).Offset(1).Row
ComboBox1.List=Worksheets("infofeuille").Range(Cells(1,1),Cells(l,1)).Value
End Sub
Lorsque je suis sur la feuille Infofeuille, tout fonctionne bien.
Quand je suis dans une autre feuille, cela ne fonctionne pas et j'ai le
message suivant :
"erreur d'exécution 1004, Erreur définie par l'application ou par l'objet".
Quelqu'un peut il me venir en aide ?
Merci beaucoup.
ligne = Worksheets("Infofeuille").Range("A50").End(xlUp).Offset(1).Row ComboBox1.List = Worksheets("infofeuille").Range(Cells(1, 1), Cells(ligne, 1)).Value
Worksheets(shname).Activate
End Sub
Espère que ca te convient.
Bonjour, Voici ce que j'ai dans un userform : Sub Userform_initialize() dim ligne as integer ligne=Worksheets("Infofeuille").Range("A50").End(xlup).Offset(1).Row ComboBox1.List=Worksheets("infofeuille").Range(Cells(1,1),Cells(l,1)).Value End Sub
Lorsque je suis sur la feuille Infofeuille, tout fonctionne bien. Quand je suis dans une autre feuille, cela ne fonctionne pas et j'ai le message suivant : "erreur d'exécution 1004, Erreur définie par l'application ou par l'objet".
Quelqu'un peut il me venir en aide ? Merci beaucoup.
Christian.
Christian
On est obligé de passer par la ? c'est pas possible sans la activate ?
De : "anonymousA" Groupes : microsoft.public.fr.excel Date : Mon, 22 Nov 2004 06:35:10 -0800 Objet : RE: Pb Combobox dans Userform
Bonjour,
shname¬tivesheet.name Sub Userform_initialize()
Dim ligne As Integer shname¬tivesheet.name
Worksheets("Infofeuille").Activate
ligne = Worksheets("Infofeuille").Range("A50").End(xlUp).Offset(1).Row ComboBox1.List = Worksheets("infofeuille").Range(Cells(1, 1), Cells(ligne, 1)).Value
Worksheets(shname).Activate
End Sub
Espère que ca te convient.
Bonjour, Voici ce que j'ai dans un userform : Sub Userform_initialize() dim ligne as integer ligne=Worksheets("Infofeuille").Range("A50").End(xlup).Offset(1).Row ComboBox1.List=Worksheets("infofeuille").Range(Cells(1,1),Cells(l,1)).Value End Sub
Lorsque je suis sur la feuille Infofeuille, tout fonctionne bien. Quand je suis dans une autre feuille, cela ne fonctionne pas et j'ai le message suivant : "erreur d'exécution 1004, Erreur définie par l'application ou par l'objet".
Quelqu'un peut il me venir en aide ? Merci beaucoup.
Christian.
On est obligé de passer par la ?
c'est pas possible sans la activate ?
De : "anonymousA" <anonymousA@discussions.microsoft.com>
Groupes : microsoft.public.fr.excel
Date : Mon, 22 Nov 2004 06:35:10 -0800
Objet : RE: Pb Combobox dans Userform
Bonjour,
shname¬tivesheet.name
Sub Userform_initialize()
Dim ligne As Integer
shname¬tivesheet.name
Worksheets("Infofeuille").Activate
ligne = Worksheets("Infofeuille").Range("A50").End(xlUp).Offset(1).Row
ComboBox1.List = Worksheets("infofeuille").Range(Cells(1, 1), Cells(ligne,
1)).Value
Worksheets(shname).Activate
End Sub
Espère que ca te convient.
Bonjour,
Voici ce que j'ai dans un userform :
Sub Userform_initialize()
dim ligne as integer
ligne=Worksheets("Infofeuille").Range("A50").End(xlup).Offset(1).Row
ComboBox1.List=Worksheets("infofeuille").Range(Cells(1,1),Cells(l,1)).Value
End Sub
Lorsque je suis sur la feuille Infofeuille, tout fonctionne bien.
Quand je suis dans une autre feuille, cela ne fonctionne pas et j'ai le
message suivant :
"erreur d'exécution 1004, Erreur définie par l'application ou par l'objet".
Quelqu'un peut il me venir en aide ?
Merci beaucoup.
On est obligé de passer par la ? c'est pas possible sans la activate ?
De : "anonymousA" Groupes : microsoft.public.fr.excel Date : Mon, 22 Nov 2004 06:35:10 -0800 Objet : RE: Pb Combobox dans Userform
Bonjour,
shname¬tivesheet.name Sub Userform_initialize()
Dim ligne As Integer shname¬tivesheet.name
Worksheets("Infofeuille").Activate
ligne = Worksheets("Infofeuille").Range("A50").End(xlUp).Offset(1).Row ComboBox1.List = Worksheets("infofeuille").Range(Cells(1, 1), Cells(ligne, 1)).Value
Worksheets(shname).Activate
End Sub
Espère que ca te convient.
Bonjour, Voici ce que j'ai dans un userform : Sub Userform_initialize() dim ligne as integer ligne=Worksheets("Infofeuille").Range("A50").End(xlup).Offset(1).Row ComboBox1.List=Worksheets("infofeuille").Range(Cells(1,1),Cells(l,1)).Value End Sub
Lorsque je suis sur la feuille Infofeuille, tout fonctionne bien. Quand je suis dans une autre feuille, cela ne fonctionne pas et j'ai le message suivant : "erreur d'exécution 1004, Erreur définie par l'application ou par l'objet".
Quelqu'un peut il me venir en aide ? Merci beaucoup.
