Discussion :

[Dref60000]

Bonjour.

Je cherche de l'aide afin de faire marcher un code que j'ai récupérer. Voici mon projet:

Dans une UserForm (Nv_Reserve_UF) j'ai une combobox (ComboBox1) qui se remplie grâce à une famille (Lst_Localisation) se situant sur la colonne A de la feuille "D1". Le code est:

Code :

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

1
2
3
4
Private Sub ComboBox1_DropButtonClick()
'charger la liste "Lst_Localisation" dans la ComboBox
    Nv_Reserve_UF.ComboBox1.List = Application.Transpose(Sheets("D1").Range("Lst_Localisation"))
End Sub

Ca, ça marche. Mon problème se situe après. J'effectue un test pour savoir si la valeur entré dans ma ComboBox est déjà dans ma liste. Si oui, parfait, je finis. Si non, je rajoute la nouvelle valeur à la fin de ma colonne A de ma feuille D1. Le code est:

Code :

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

1
2
3
4
5
6
7
8
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'rajouter la zone saisie dans la liste
    If Nv_Reserve_UF.ComboBox1.MatchFound = True Then
        Exit Sub
    Else
        Sheets("D1").[A1].End(xlToDown).Offset(1, 0).Value = Nv_Chantier_UF.ComboBox1.Text
    End If
End Sub

Et là, ça ne marche pas. L'erreur affiché est : Erreur de compilation: membre de méthode ou de données introuvable. Est ce posible que je n'ai pas annoncé des variables ou des fonctions? Ou bien que ce soit Excel 2007 qui n'accepte pas ce code.

Avec mes remerciements.
Fred

[fgiambelluco]

Bonjour
A mon avis le (ou un) problème vient de

Code :

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

Sheets("D1").[A1]

On écrit plutôt

Code :

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

Sheets("D1").Range("A1")

[laetitia]

bonjour fgiambelluco Dref60000 le forum
c'est pas xlDown a la place de xlToDown ??

ATTENTION xlDown tu choisis la premiere cellule vide en partant du haut il faut pas avoir de cellules vide entre il faut prendre xlup

[aalex_38]

Bonjour à tous,

A mon avis le (ou un) problème vient de
Code :
Sheets("D1").[A1]

=> Ce code fonctionne, c'est un système de notation différent c'est tout.

c'est pas xlDown a la place de xlToDown ??

=> effectivement, la liste est proposée quand on ouvre la paranthèse après le end, selectioner comme ça évite les erreurs :

Code :

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

xlDown xlToLeft xlToRight xlUp

Un exemple pour obtenir la dernière ligne de la colonne 1 :

Code :

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

derlig = Cells(65536, 1).End(xlUp).Row + 1

Un lien surderniere-ligne-derniere-colonne-renseignees-feuille

[laetitia]

re,le fil un salut alex en regardeant de plus pres c'est quoi Nv_Chantier_UF???
un autre user.avec un autre combo..
si tu utilise excel 2007 pour trouver la premiere ligne vide dans ton cas un code dans ce style

Code :

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

Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1) = "ce que tu veux!!!"

[Dref60000]

Merci beaucoup pour toutes ces réponses.
J'ai effectivement trouvé mes erreurs:
-tt d'abord le nom du Userform qui n'était pas le bon.
-et ensuite la commande xlDown à la place du xlToDown (alors que je l'avais trouvé dans l'aide.....)
J'obtiens donc:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'rajouter la zone saisie dans la liste
If Nv_Reserve_UF.ComboBox1.MatchFound = True Then
    Exit Sub
Else
    Sheets("D1").[A1].End(xlDown).Offset(1, 0).Value = Nv_Reserve_UF.ComboBox1.Value
End If
 
End Sub

De plus pour alléger le programme, j'ai charger la liste dans ma combobox grace à la caractéristique RowSource.
Encore merci et bonne nuit.
Fred