sauvegarder contenu combobox à la fermeture / retrouver ce contenu à l'ouverture

[vmatthieu]

bonjour à tous,
pour commencer merci de votre aide.
je m'excuse si je suis passé à travers d'une réponse existante .

Je charge par un bouton une combobox par la méthode aditem.

je supprime quelques items dans celle ci par un bouton.

Je voudrais (svp par la méthode la plus simple) enregistrer le contenu restant de ma combobox à la fermeture de mon userform et retrouver son contenu lors de l'ouverture

Je souhaiterais également ce même fonctionnement mais avec une fermeture du fichier (donc de retrouver le contenu de cette combobox modifiée après une fermeture du fichier et une ouverture)


merci d'avance
bonne soirée à tous

 

[nyko283]

Re : sauvegarder contenu combobox à la fermeture / retrouver ce contenu à l'ouverture

Bonsoir mathieu,

Le plus simple c'est d'enregistrer la valeur de la combobox dans une cellule de l'une de tes feuilles. tu peut ainsi retrouver la derniere valeur saisie à chaque réouverture du userform ou bien du fichier.

bonne nuit

 

[Softmama]

Re : sauvegarder contenu combobox à la fermeture / retrouver ce contenu à l'ouverture

Bonjour vmatthieu, nyko283,

Pour sauvegarder le contenu d'une combobox, tu peux procéder ainsi :

dans un module standard :

Global A as String

Dans ta macro d'appel d'USF :

UserForm1.Show
ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls("Combobox1").Value = A

A la fermeture de l'USF

A= Userform1.Combobox1.Value

Un exemple en pièce jointe.

 

[Theze]

Re : sauvegarder contenu combobox à la fermeture / retrouver ce contenu à l'ouverture

Bonjour,

Un exemple avec une feuille appelée "Cachée" que tu peux masquer à l'utilisateur :

Private Sub UserForm_Initialize()
    
    Dim I As Integer
    
    'la feuille où sont stockées et récupérées
    'les valeurs est cachée à l'utilisateur
    With Worksheets("Cachée")
       
        For I = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
        
            ComboBox1.AddItem .Cells(I, 1)
            
        Next I
        
    End With

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    Dim I As Integer
    
    'vide la feuille
    Worksheets("Cachée").Cells.Clear
    
    'stocke les valeurs
    For I = 0 To ComboBox1.ListCount - 1
    
        Worksheets("Cachée").Cells(I + 1, 1) = ComboBox1.List(I)
    
    Next I
    
    'sauvegarde le classeur
    ThisWorkbook.Save
     
End Sub

Hervé.

 

[Fo_rum]

Re : sauvegarder contenu combobox à la fermeture / retrouver ce contenu à l'ouverture

Bonjour,

si on veut garder la liste initiale, il suffit de marquer les noms déjà pris sinon de les supprimer.
J'ai choisi ² qui n'est pas courant mais on peut changer.

 

[vmatthieu]

Re : sauvegarder contenu combobox à la fermeture / retrouver ce contenu à l'ouverture

bonjour à tous et merci pour vos réponses.
pour l'instant je n'ai testé que celle de soft mama (celle qui me paraissait la plus simple)
j'ai à l'exécution une erreur comme quoi "l'accès par programme au projet visual basic n'est pas fiable"
ai je loupé quelque chose ou y a t'il une astuce
si tu peux me répondre softmama je serais encore moins bête demain(remarque c'est pas dur)
merci d'avance
quant au autre réponse je vous donne réponse dès que j'ai pu tester
encore merci
bonne fin de journée

 

[Softmama]

Re : sauvegarder contenu combobox à la fermeture / retrouver ce contenu à l'ouverture

Bonjour,

Il faut cocher une option que l'on trouve dans les menus d'excel. (Options/Sécurité des macros/Cocher faire confiance au projet sur excel 2003)

 

[vmatthieu]

Re : sauvegarder contenu combobox à la fermeture / retrouver ce contenu à l'ouverture

bonjour et merci softmama
je progresse mais maintenant j'ai un message d'erreur" variable objet ou variable de bloc with non définie"
allez comprendre ....
si votre patience n'est pas à bout je suis preneur d'une suggestion
bonne soirée et encore merci

 

[vmatthieu]

Re : sauvegarder contenu combobox à la fermeture / retrouver ce contenu à l'ouverture

bonsoir hervé,
merci de votre réponse et même si ça ne vous étonne pas je vous précise que ça fonctionne.
merci beaucoup
et bonne soirée

 

[vmatthieu]

Re : sauvegarder contenu combobox à la fermeture / retrouver ce contenu à l'ouverture

bonsoir fo_rum
merci pour la proposition mais celle d'hervé me convient parfaitement
merci encore
bonne soirée