ListBox incrémentée en fonction d'une variable i

Bonjour à tous,

Je suis débutante en Macro et aujourd'hui, je cherche à créer une ListBox dans un USF qui s'incrémenterait à partir d'une feuille de calcul en fonction d'une variable dans une Combobox. Le code est bien avancé, mais lorsque je lance un test, je n'ai aucun retour, pas de message d'erreur, rien ne se passe...

Le fichier est en P.J., il s'agit de l'USF nommé "MODIFICATION", j'ai dû retirer les autres car le fichier ne passait pas sinon...

Si quelqu'un pouvait me dire où se trouve mon erreur, cela m'aiderait beaucoup.

Merci d'avance.

Bonjour,

Essaie avec

Code:

---

Tablo = Sheets("ACTIONS").Range("A9:I" & Range("A65536").End(xlUp).Row)

---

Cordialement.

Merci pour ta réponse,

Mais cela ne change rien, le tableau refuse toujours de s'incrémenter...

Merci gFZT82 pour tes éléments de réponses. J'ai un peu de mal à comprendre car j'ai testé ce que tu m'as dis et ça ne fonctionnais pas alors j'ai tout retapé en prenant en compte tes remarques et là magique, ça fonctionne. J'ai comparé les 2 codes et ce qui m'étonnes le plus c'est que je ne vois pas de différence...?

Par contre, ce qui me dérange plus, c'est que l'USF fonctionne parfaitement lorsque je teste à partir de VBE mais quand je passe par la feuille de calcul (avec le bouton Lancer le Formulaire), seul le premier critère me remonte les infos, les deux autres ne remonte aucune information...

Une idée?

Bonne journée à tous.

Re-bonjour maud.33500,

Voici l’intégralité de ta procédure d’initialisation du formulaire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub UserForm_Initialize() Dim i As Integer Dim DerLig As Long 'Définit la variable Tablo => Emplacement des Données source pour l'incrémentation de la ListBox With Sheets("ACTIONS") DerLig = .Range("B65536").End(xlUp).Row Tablo = .Range("A9:I" & DerLig) End With 'Définit le nombre de colonnes dans la ListBox ListBox1.ColumnCount = 6 'Création des options de la ComboBox With ComboBox1 .AddItem "EN COURS" .AddItem "CLOTUREE" .AddItem "ANNULEE" End With End Sub

---

La principale adaptation se trouve aux lignes 5 à 8 où on indique que les données qui vont renseigner la liste se trouvent dans la feuille "ACTIONS".

Autre remarque, dans cette même feuille "ACTIONS", tu noteras que toutes les cellules de A39 à A682 contiennent un formule. Exemple, A682 contient la formule

Citation:

---

=SI(C682<>"";A681+1;"")

---

Lorsque tu fais ta recherche de la dernière ligne de la colonne A

Citation:

---

.Range("A65536 ").End(xlUp).Row

---

le résultat retourne la ligne 682, ce qui affecte ta boucle suivante sur toutes les lignes du tableau (For i = 1 To UBound(Tablo). Tu a donc tout intérêt à faire cette recherche sur une autre colonne (B par exemple).

Cordialement.

Bonjour,

Merci pour ta réponse qui m'a permis d'obtenir le résultat que je souhaitais! Mes fonctions de recherche fonctionnent correctement maintenant.

Pour ce qui est de la formule en colonne A, il s'agissait d'une erreur de ma part, j'aurais du la supprimer sur toute la colonne, donc ta proposition de code fonctionne à merveille y compris sur la colonne A.

Je m'excuse de ne pas avoir répondu plus tôt mais à la maison j'ai Excel 2010, pas franchement compatible avec la version 2003 du boulot!

Encore une fois merci.

Bonne journée