alimentation combobox dans un usf

[arthur83fr]

bonjour,

me revoila je progresse doucement

je veux alimenter ma combobox avec les données (adresse1) de la plage F2 a Fx de la feuille "doublons"

la je butte, avec le code ci dessous ma combobox est vide je seche

merci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
' je remplis les label Nom, Prenom et ville de usf12
UserForm12.Label6.Caption = UserForm1.TextBox2Nom.Value
UserForm12.Label7.Caption = UserForm1.TextBox3Prenom.Value
UserForm12.Label8.Caption = UserForm1.TextBox21Ville.Value
 
' jaffiche le usf12
UserForm12.Show
 
With Sheets("Doublonstemp")
  Dim Derlig As Integer
  Derlig = Range("F65536").End(xlUp).Row
End With
 
UserForm12.ComboBox1.RowSource = "DoublonsTemp!F2:F & DerLig"

[mercatog]

Code :

1
2
3
4
5
6
Dim Derlig As Long
'........
With Sheets("Doublonstemp")
    Derlig = .Cells(.Rows.Count, "F").End(xlUp).Row
End With
UserForm12.ComboBox1.RowSource = "DoublonsTemp!F2:F" & Derlig

[arthur83fr]

merci cela fonctionne

mais je suis loin d'avoir fini l'appli

[arthur83fr]

me revoila de nouveau avec a peu pres le même pb

alimentation d'un combobox avec le contenu d'une plage de cellulle F2 a Fx
le code ci dessous me rempli la combobox avex la valeur de la cellule F1 qui est la ligne de titre. ce qui ne me convient guere.
je planche mais je seche
car actuellement si la ligne 2 est vide j'obtiens la valeur de F1

help merci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Derlig As Long
 
With Sheets("Doublonstemp")
 
 ' obtention du numero de la derniere ligne remplie de la colonne F feuille "DoublonsTemp"
 
Derlig = .Cells(.Rows.Count, "F").End(xlUp).Row
 
End With
 
UserForm12.ComboBox1.RowSource = "DoublonsTemp!F2:F" & Derlig

[mercatog]

Code :

1
2
3
4
5
6
7
8
9
Dim Derlig As Long
 
With Worksheets("Doublonstemp")
'ici on cherche la ligne de la dernière cellule remplie de la colonne F
'Sinon, tu peux à la place de F mettre la colonne que tu prends pour chercher la dernière ligne remplie de ta feuille
Derlig = .Cells(.Rows.Count, "F").End(xlUp).Row
End With
 
If Derlig > 1 Then UserForm12.ComboBox1.RowSource = "DoublonsTemp!F2:F" & Derlig