aller chercher donnée dans une autre feuille

[le plessis]

Bjr,
Je voudrais alimenter une combobox avec des données dans une feuille (feuille1) dans mon cas ; j'ai essayé plein de code mais j'ai tjr le même message : erreur syntaxe erreur compilation.
Si quelqu'un a une idée.
D'avance merci

 

[tototiti2008]

Re : aller chercher donnée dans une autre feuille

Bonjour le plessis,

il faut préciser la feuille

à tester :

Private Sub UserForm_Initialize()
    Dim Cell As Range
    For Each Cell In Sheets("Feuil1").Range("A2:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
    Me.ComboBox1.AddItem (Cell)
    Next
End Sub

 

[le plessis]

Re : aller chercher donnée dans une autre feuille

Super, cela fct. Merci du coup de main. Je débute en VBA et c'est pas simple.
Je pense que j'enverrai d'autres msg de détresse.
Cdlt le plessis
🙄

 

[le plessis]

Re : aller chercher donnée dans une autre feuille

Re,
autre petit problème ; j'ai rajouté une autre CBO dans mon USF, mais j'ai ce msg :
erreur compil déclaration existante dans la portée en cours ?????
mon code ci dessous ; ou est l'erreur?


Private Sub Userform_Initialize()

Dim Cell As Range
For Each Cell In Sheets("Eq MT-NP").Range("A2:A" & Sheets("Eq MT-NP").Range("A65536").End(xlUp).Row)
Me.ComboBox1.AddItem (Cell)
Next
and
Dim Cell As Range
For Each Cell In Sheets("listing outillage").Range("B2:B" & Sheets("listing outilage").Range("B65536").End(xlUp).Row)
Me.ComboBox2.AddItem (Cell)
Next
End Sub

D'avance merci 😕

 

[tototiti2008]

Re : aller chercher donnée dans une autre feuille

Re,

Tu déclares 2 fois la variable Cell
On ne doit déclarer qu'une fois chaque variable (en fonction de sa portée, mais bon, ne compliquons pas)

supprime la 2ème ligne

Dim Cell As Range

 

[le plessis]

Re : aller chercher donnée dans une autre feuille

Merci, cela fct. Je vais continuer dans mon apprentissage. Pas simple même avec un bouquin. Vive les forums
Merci encore
le plessis 😉

 

[le plessis]

Re : aller chercher donnée dans une autre feuille

Re,
mon nouveau petit pbl :
Je désire copier les données de mon bon de commande dans deux fichiers et les effacer pour retrouver un bon de commande vierge. ci dessous mon code
Sub envoicommande()
'
' envoicommande
ActiveSheet.UsedRange.Rows("3:" & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Copy
Worksheets("demande outillage").Select
Range("a5").Select
ActiveSheet.Paste
ActiveSheet.UsedRange.Rows("3:" & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Copy
Worksheets("EQ 1").Select
Range("a5").Select
ActiveSheet.Paste
Worksheets("ordre commande").Select
ActiveSheet.UsedRange.Rows("3:" &ActiveSheet.UsedRange.Rows.Count).Select
Selection.ClearContents
Range("a5").Select

End Sub
msg erreur exec "9" indice en dehors de la plage 😕😕😕
si qql a une idée