Pb sur une macro VBA Excel

Résolu
cs_krissdevalnor Messages postés 6 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 14 octobre 2008 - 20 avril 2007 à 12:18
cs_krissdevalnor Messages postés 6 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 14 octobre 2008 - 20 avril 2007 à 13:22
Bonjours à tous !

J'ai un petit pb sur une de mes macros dans Excel : une ligne de code ne passe pas et je ne comprend pas pourquoi ? pourriez vous m'aider ?!!!

Voici ma macro, elle bloque sur la ligne 9 : 

1-    Private Sub UpdateComboBox(Parametres As MSForms.ComboBox, IndexValue AsInteger)
2-    Dim LastInputRow AsInteger, ColumnIndex AsInteger, InputRange As Range
3-     ' Les données commencent à la ligne 2
4-     Const FirstInputRow As Integer = 2
5-     ' Détermine depuis quelle colonne on prend la liste des items
6-             ColumnIndex = IndexValue + 2
7-     ' Détermine la dernière ligne de la colonne sélectionnée et la plage correspondante
8-             LastInputRow = Cells(FirstInputRow, ColumnIndex).End(xlDown).Row
9-            Set InputRange = Sheets("Liste produit").Range(Cells(FirstInputRow, ColumnIndex), Cells(LastInputRow, ColumnIndex))
10-           With Parametres
11-                   .ColumnHeads = False' Affiche les en-têtes de colonne
12-                   .RowSource = InputRange.Address ' Spécifie la source de données
13-                   .ListIndex = 0 ' Sélectionne le premier item
14-           End With
15-           Set InputRange = Nothing
16-   End Sub

Kriss de Valnor au pays du soleil

3 réponses

jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
20 avril 2007 à 12:32
Salut,
Quelle erreur te donne VB? ca serait pratique de le savoir

@+: Ju£i?n
Pensez: Réponse acceptée
3
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
20 avril 2007 à 12:48
Salut

Set InputRange = Sheets("Liste produit").Range(Sheets("Liste produit").Cells(FirstInputRow, ColumnIndex), Sheets("Liste produit").Cells(LastInputRow, ColumnIndex))

@++

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
  
3
cs_krissdevalnor Messages postés 6 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 14 octobre 2008
20 avril 2007 à 13:22
Merci à toi Le mystérieux chevalier !

effectivement avec cette modification le débogueur ne se lance plus ! ...Et je t'n remercie encore

Kriss de Valnor au pays du soleil
3