Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise à jour d'un ComboBox ActiveX instantané qui se trouve sur deux onlgets différents

M

Matt87

XLDnaute Nouveau
Bonjour à tous,

Je cherche une solution à mon problème sur le net, mais je suis incapable d'adapter les solutions proposées à mon projet.

J'aimerais qu'un ComboBox ActiveX se trouvant sur la feuille «Coordos» puisse se mettre à jour instantanément lorsqu'une valeur est ajoutée ou supprimée de son listFillRange qui se trouve sur un onglet nommé «Liste» de A2 jusqu'en fin de tableau list.Objects.

J'ai trouvé plusieurs solutions, mais s'adaptant seulement à un ComboBox se trouvant sur le même onglet que son listFillRange.

J'ai actuellement une solution dite temporaire mais elle celle-ci se trouve dans le module de la feuille «Coordos» dans activate ce qui implique que l'utilisateur doit changer d'onglet et revenir sur l'onglet «Coordos» pour que la liste se mettre à jour. Voici ce que j'ai présentement:

Private Sub Worksheet_Activate()

Application.ScreenUpdating = False
Dim j As Long

Set Ws = Worksheets("Liste")

ThisWorkbook.ActiveSheet.ComboBox1.Clear

With ThisWorkbook.ActiveSheet.ComboBox1
For j = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row

If Ws.Range("A" & j).Value <> "" Then
.AddItem Ws.Range("A" & j)
End If

Next j

End With

Sheets("Coordos").Activate
ComboBox1.Value = ""
ComboBox1.Activate
Application.ScreenUpdating = True

End Sub

Auriez-vous une solution à me proposer ?

Merci à l'avance pour votre temps et je souhaite à tout le monde une agréable journée !
 
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Bonsoir Matt87,
Matt87 à dit:
Auriez-vous une solution à me proposer
Cliquez pour agrandir...
Oui et elle est évidente :

- en colonne A de la feuille "Liste" il ne doit pas y avoir de cellules vides et A1 doit contenir un titre

- définir le nom Liste dynamiquement par la formule =DECALER(Liste!$A$2;;;NBVAL(Liste!$A:$A)-1)
ou sur version anglaise =OFFSET(Liste!$A$2,,,COUNTA(Liste!$A:$A)-1)

- mettre le mot Liste dans la propriété ListFillRange de la ComboBox.

A+
 
Vote positif 0 Vote négatif
M

Matt87

XLDnaute Nouveau
Bonjour job75,

Un gros merci pour le code. Celui-ci fonctionne partiellement.

J'ai un bouton qui supprime la ligne de l'item sélectionné dans cette même ComboBox. L'item se retire instantanément de la liste comme souhaité, mais le ComboBox m'affiche une valeur vide à la place. Pourtant, ma liste déroulante ne comporte aucune valeur vide.
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour Matt87, le forum,

Oui il faut forcer le recalcul du ListFillRange, placez ce code dans la feuille "Liste" :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Coordos").ComboBox1.ListFillRange = "Liste"
End Sub
"Coordos" étant le nom de la feuille de ComboBox1.

A+
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Une autre solution, supprimez le nom défini "Liste" et placez dans le code de la feuille "Liste" :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo, i&, x$, a(), n&
With Sheets("Liste")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    tablo = .Range("A1:B" & .Range("A" & .Rows.Count).End(xlUp).Row) 'matrice, plus rapide, au moins 2 éléments
End With
For i = 2 To UBound(tablo)
    x = CStr(tablo(i, 1))
    If x <> "" Then
        ReDim Preserve a(n) 'base 0
        a(n) = x
        n = n + 1
    End If
Next
With Sheets("Coordos").ComboBox1
    .ListFillRange = "" 'sécurité
    If n Then .List = a Else .Clear
End With
End Sub
 
Vote positif 0 Vote négatif
M

Matt87

XLDnaute Nouveau
Bonjour job75,

Ça fonctionne impec avec la deuxième solution.

Remarquez que la première solution fonctionnait également, mais si je devais supprimer la valeur en «A2», ma zone définie comme étant «Liste» se retrouvait avec une référence invalide.

Un gros merci pour le cop de main !
Je vous souhaite une agréable journée !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

J
  • Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
62
JJ69
J
M
  • Question
Suppression d'onglet sélectionné par combobox activex
Réponses
6
Affichages
2 K
Matt87
M
F
  • Résolu(e)
XL 2010 Glissement de cellules en fonction de 2 caractères
2
Réponses
20
Affichages
1 K
Gégé-45550
L
  • Question
Microsoft 365 Mise à jour d'une Base ACCESS depuis Excel office365
Réponses
6
Affichages
863
Hasco
T
  • Résolu(e)
Microsoft 365 Conditionner l'accès à une page d'un multipage
2
Réponses
26
Affichages
2 K
TooFatBoy
A
  • Question
Microsoft 365 Mise à jour d'un tableau Excel en VBA à partir d'un autre classeur
Réponses
3
Affichages
1 K
AlexiaC
A
T
  • Question
Microsoft 365 [Résolu] Copier des colonnes à la fin d'un tableau
Réponses
2
Affichages
1 K
Tava94
T
T
  • Question
XL pour MAC liste déroulante à choix multiple compatible PC et Mac
Réponses
2
Affichages
2 K
Tibooo
T
D
  • Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
2 K
chris
  • Question
Microsoft 365 VBA : couper ligne d'un tableau pour coller les valeurs dans une autre feuille.
Réponses
6
Affichages
1 K
Lisette
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…