Ajout dans un Tableau via VBA

Version imprimable

Bonjour à Tous,

Je me permet de vous solliciter car je me retrouve devant une impasse.

J'ai une feuille Excel que j'appelle "Listes" ou se trouvent sous formes de tableau les listes que j'utilise pour les combobox de mon UserForm.

J'aimerais, pour certaines listes, que lorsque ce que l'utilisateur tape dans la comboBox ne se trouve pas dans la liste l'entrée s'ajoute à cette liste.

Voici le code que j'ai écrit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub cmbOrigineDemande_Exit(ByVal Cancel As MSForms.ReturnBoolean) If cmbOrigineDemande.ListIndex = -1 And cmbOrigineDemande.Value <> "" Then If MsgBox("Voulez-vous ajouter cette entrée dans la liste ?", vbYesNo) = vbYes Then Sheets("Listes").Activate Range("A1").Select Selection.End(xlDown).Select 'on se positionne sur le dernière ligne non vide Selection.Offset(1, 0).Select 'on se décale d'une ligne vers le bas ActiveCell.Value = cmbOrigineDemande.Value Else cmbOrigineDemande.Value = "" End If End If End Sub
Le truc qui me chiffonne est que ça marche parfaitement si je teste sur une autre feuille sur une liste que je n'ai pas transformée en Tableau. Je me dis donc que je dois insérer différemment dans un tableau mais je ne vois pas comment.

Je suis donc preneur de toute info pouvant m'aider.

Merci d'avance !

Bonjour Almenor, bonjour le forum,

Peut-être comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cmbOrigineDemande_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim L As Worksheet
Dim LI As Integer
 
Set L = Worksheets("Listes")
If cmbOrigineDemande.ListIndex = -1 And cmbOrigineDemande.Value <> "" Then
    If MsgBox("Voulez-vous ajouter cette entrée dans la liste ?", vbYesNo) = vbYes Then
        LI = IIf(L.Range("A2").Value = "", 2, L.Range("A1").End(xlDown).Row + 1)
        L.Cells(LI, "A").Value = cmbOrigineDemande.Value
    Else
        cmbOrigineDemande.Value = ""
    End If
End If
End Sub

03/07/2018, 14h49
Almenor

Bonjour Thautheme et merci pour ton aide.

J'ai le même message d'erreur qu'avec mon code : "La méthode "Value" de l'objet "Range" a échoué"

Par contre si je teste sur ma feuille "TEST" dans laquelle j'ai une liste qui n'est pas sous forme de tableau ton code fonctionne aussi.

Devrais-je abandonner l'idée de mettre mes listes sous forme de tableau ?
03/07/2018, 16h20
Thautheme

1 pièce(s) jointe(s)

Re,

Pourtant ça devrait marcher, regarde l'exemple en pièce jointe. Je rajoute sans problème les autres jours de la semaine...
04/07/2018, 10h20
Almenor

Alors, après plusieurs tests j'ai compris pourquoi ça marche dans ma feuille "TEST" et pas ma feuille "Listes".

les nouvelles entrées s'ajoutaient bien à la liste dans la feuille "TEST" car j'affichais toujours dans la combobox la liste de la feuille "Listes".

Dès que j'ai affiché dans ma combobox la liste de la feuille "TEST" je me suis retrouvé face au même problème.

Donc, à priori, j'ai un soucis dans ma manière d'afficher ma liste dans ma combobox qui entre en conflit avec l'insertion d'une nouvelle entrée dans la liste.

pour afficher ma liste dans la combobox j'ai simplement donné un nom à ma liste via le gestionnaire de nom et ensuite j'indique le nom de ma liste dans le champs "RowSource" des propriétés de la la combobox.
04/07/2018, 10h38
Thautheme

Re,

J'ai rien compris. Sans fichier on va y passer des lustres !....

1 pièce(s) jointe(s)

ça fonctionne en insérant la liste dans la combobox avec ta méthode :
Code:

1 2 3 4 5 6 Private Sub UserForm_Initialize() Set L = Worksheets("Listes") Me.txtDate.Value = Format(Now, "dd-mm-yy") LI = IIf(L.Range("A2").Value = "", 2, L.Range("A1").End(xlDown).Row) Me.cmbOrigineDemande.List = L.Range("A2:A" & LI).Value End Sub
Moi j'insérais ma liste directement dans les propriétés de la combobox via "RowSource".

Le soucis que j'ai actuellement est que la liste ne se met pas à jour, donc si l'utilisateur ajoute une entrée qui n'est pas dans la liste il lui demande si il veut l'ajouter, il dit oui. Si il revient dans ce champs avant de valider et en ressort il lui redemande et va ajouter une nouvelle fois l'entrée.

Voici mon fichier :

Pièce jointe 393761

La liste de la combobox Origine de la demande est insérée via ta méthode tandis que celle de Thématique est via ma méthode (qui pose problème). Les autres combobox sont des listes fermées donc pas de soucis avec elles.

Merci !

04/07/2018, 11h51
Thautheme

1 pièce(s) jointe(s)

Re,

J'ai supprimé la propriété RowSource de la combobox cmbThematique. En pièce jointe ton fichier modifié.

Je suis arrivé moi aussi à une solution qui ajoute bien dans la liste et recharge la liste dans la combobox :

Code:

1
2
3
4
5
6
Private Sub UserForm_Initialize()
    Set L = Worksheets("Listes")
    Me.txtDate.Value = Format(Now, "dd-mm-yy")
    LI = IIf(L.Range("A2").Value = "", 2, L.Range("A1").End(xlDown).Row)
    Me.cmbOrigineDemande.List = L.Range("A2:A" & LI).Value
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmbOrigineDemande_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Set L = Worksheets("Listes")
    If cmbOrigineDemande.ListIndex = -1 And cmbOrigineDemande.Value <> "" Then
        If MsgBox("Voulez-vous ajouter cette entrée dans la liste ?", vbYesNo) = vbYes Then
            LI = IIf(L.Range("A2").Value = "", 2, L.Range("A1").End(xlDown).Row + 1)
            L.Cells(LI, "A").Value = cmbOrigineDemande.Value
        Else
            cmbOrigineDemande.Value = ""
        End If
    End If
    LI = IIf(L.Range("A2").Value = "", 2, L.Range("A1").End(xlDown).Row)
    Me.cmbOrigineDemande.List = L.Range("A2:A" & LI).Value
End Sub

Un grand merci pour ton aide :D