Discussion :

[dkmix]

bonjour

pour ma combobox1 (dans userform1 du document1.xls)

j utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim laplage As String
Dim nodernierelig As Integer
 
nodernierelig = 3 'pour le moment
 
laplage = Sheets("feuil1").Range("A1:A" & nodernierelig).Address(False, False)
 
    UserForm1.ComboBox1.Clear
    UserForm1.ComboBox1.RowSource = laplage
 
 UserForm1.Show

ca marche.

mais si je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim laplage As String
Dim nodernierelig As Integer

nodernierelig = 3 'pour le moment

laplage = workbooks("données.xls").Sheets("feuil1").Range("A1:A" & nodernierelig).Address(False, False)
            
    UserForm1.ComboBox1.Clear
    UserForm1.ComboBox1.RowSource = laplage
  
 UserForm1.Show

ma liste est vide

comment faire reference a un autre classeur alors?

[ouskel'n'or]

Ton code est correct sauf... "UserForm1.Show" Rien à faire ici
Si tu veux afficher ton userform ( ) alors mets cette ligne dans la macro qui le charge, dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub OuvrirUSF1()
    Load Userform1
    Userform1.Show
end sub

A+

[dkmix]

merci ouskel'nord

j ais toujours le mem souci : liste vide

précision :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim laplage As String
Dim nodernierelig As Integer
 
nodernierelig = 3 'pour le moment
 
laplage = Sheets("feuil1").Range("A1:A" & nodernierelig).Address(False, False)
 
    UserForm1.ComboBox1.Clear
    UserForm1.ComboBox1.RowSource = laplage

ne marche que si la feuil1 est active ( si je suis sur la feuill2) j ai une liste vide
La fonction addres ne retourne - elle pas juste les coordonnées des cellules ? (sans tenir compte de la feuille ni du classeur )

je pense a quelquechose comme ca :

UserForm1.ComboBox1.RowSource = nom fichier/nom feuille/laplage

[dkmix]

comme souvent de un cas comme ca j ais finalement contourner le probleme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim laplage As String
Dim nodernierelig As Integer
 
Workbooks("données.xls").Activate
Sheets("feuil1").Activate
 
nodernierelig = 3 'pour le moment
 
laplage = Range("A1:A" & nodernierelig).Address(False, False)
 
    UserForm1.ComboBox1.Clear
    UserForm1.ComboBox1.RowSource = laplage
 
Workbooks("document1.xls").Activate

la ca marche.... c est moins propre mais bon

[ouskel'n'or]

Afin d'éviter les mvts de feuille, ajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.screenupdating = false

en début de procédure , et repasse-le à true en fin

[fred65200]

bonsoir le fil

essaie cette syntaxe. Tu n'as pas besoin d'activer la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
'Dim laplage As String
Dim nodernierelig As Integer
Dim laplage As Variant
 
nodernierelig = 3 'pour le moment
laplage = Sheets("Feuil1").Range("A1:A" & nodernierelig).Value '.Address(False, False)
ComboBox1.List() = laplage
ComboBox1.ListRows = UBound(laplage)
ComboBox1.ListIndex = 0

cordialement
fred65200