Pb sur une macro VBA Excel [Résolu]

Signaler
Messages postés
6
Date d'inscription
mardi 3 avril 2007
Statut
Membre
Dernière intervention
14 octobre 2008
-
Messages postés
6
Date d'inscription
mardi 3 avril 2007
Statut
Membre
Dernière intervention
14 octobre 2008
-
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

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
49
Salut,
Quelle erreur te donne VB? ca serait pratique de le savoir

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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~
  
Messages postés
6
Date d'inscription
mardi 3 avril 2007
Statut
Membre
Dernière intervention
14 octobre 2008

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