Macro qui ne fonctionne pas

Bonjour le forum,

Encore et toujours moi, pris avec une formule qui ne veux pas fonctionné:

Private Sub UserForm_Initialize()
Dim i As Integer
    For i = 3 To Workbooks("Test.xls").Sheets.Count
        ComboBox2.AddItem Sheets(i).Name
    Next i

   For i = 7 To 500
      ComboBox2 = Sheets("feuil1").range("D" & i)
      If ComboBox2.ListIndex <> -1 Then ComboBox2.RemoveItem ComboBox2.ListIndex
    Next i
End Sub

Le removeitem fonctionne bien. C'est le additem qui me pose problème.

Je cherche en fait a remplir mon combobox par le nom des feuille du classeur test.xls

(De la 3iem feuille a la dernière plus précisément)

Mon classeur test est ouvert, juste au cas ou

Merci d'avance

Peri

Salut le forum

Perigord, le titre aurait du etre Macro qui ne fonctionne pas

Rajoute un condition avec le nom de la feuille

For i = 1 To Workbooks("Test.xls").Sheets.Count 
If Sheets(i).name <> "abc" and Sheets(i).name <> "def" then
ComboBox2.AddItem Sheets(i).Name 
End if
Next i

Mytå

Merci Myta pour la réponse et désolé pour le sujet, je ferai plus attention le prochain coup.

Voici le code:

 For i = 1 To Workbooks("Joueur V25.xls").Sheets.Count
 If Sheets(i).Name <> "00000" Then
ComboBox2.AddItem Sheets(i).Name
End If
Next i

Dès que je l'insère, je ne suis plus capable d'ouvrir mon userform :S

Les feuilles a introduire dans le combobox porte des numéro style 00001 ou 00987

Merci d'avance

Peri

Edit: le classeur joueur v25.xls est ouvert d'une facon peux conventionnel:

Dim Chemin$, NomFich$
Dim classeur As Workbook
Dim base As Range
  Application.ScreenUpdating = False
   Chemin = "C:\Program Files\CrypteInc\"
  NomFich = "Joueur V25.xls"
  Set classeur = GetObject(Chemin & NomFich)
  Set base = classeur.Sheets(1).Range("a1")

C'est peux être sa qui fait en sorte que je suis incapable de remplis mon combobox ...

Bonjour le forum.

J'ai contourné mon problème pour arriver a un même résultat final.

A l'ouverture du forum, je copie le nom des onglets du 2iem classeur sur ma page du 1er classeur. A partir de la, je remplis ma combobox de cette liste.

Maintenant, voici une autre macro qui me donne de la misère.

Sub TriNom()
'Trie par nom de famille la liste des joueurs
    Rows("7:500").Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlNo, _
        MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Sub TriezCode()
'Trie par numero de code la liste des joueurs
    Rows("7:500").Sort Key1:=Range("D7"), Order1:=xlAscending, Header:=xlNo, _
        MatchCase:=False, Orientation:=xlTopToBottom
End Sub

La première fonctionne de façon insécables, elle tri les ligne 7 a 500 par la colonne B.

La deuxième par contre, elle tri belle et bien les donné des lignes 7a 500 par la colonne D mais ... elle place les infos a partir de la ligne ... 13 ... Je ne comprend vraiment pas pourquoi (elle laisse les lignes 7a 12 vide.)

Quelqu'un peux m'expliquer ou j'ai fait une erreur ?

Merci d'avance.

Peri

Bonsoir,

sans voir le fichier, pas évident, mais regarde dans les cellules "vides", si elles ne contiennent pas des espaces.....

Sont-elles effectivement "Vides"?

Bonjour Felix, effectivement le problème semble venir du :

Sont-elles effectivement "Vides"?

En fait j'utilise une macro pour supprimer l'information de plusieurs cellule du ligne quand je supprime un joueur.

La macro effectue une série de fois la formule suivante: (changent de cellule a chaque fois)

.Cells(Me.ComboBox10.List(Me.ComboBox10.ListIndex, 1), 4) = ""

Il semblerais que le problème viennent de la... mais la case semble portant vide... quand je la sélectionne, elle n'as pas d'espace vide ...

De plus, j'utilise la même technique pour supprimer les noms et .. j'arrive a trier les nom sans problème.

Merci d'avance

Peri

Re,

A tout hasard, essaie avec ce code :

.Cells(Me.ComboBox10.List(Me.ComboBox10.ListIndex, 1), 4) .ClearContents