Bonjour,
Disclaimer : Je suis désolé je ne vais pas pouvoir fournir d'excel car il comporte des données sensible que je n'ai pas le droit de communiquer je vais donc essayer de donner un maximum de code et d'exemple pour aider votre compréhension et que vous m'aidiez dans mon problème
Aujourd'hui mon problème est le suivant : Pour faire simple, j'essaye d'actualiser la liste d'une ComboBox pour qu'elle selectionne les nouveau élément. Seulement, au moment de Clear cette ComboBox Je me retrouve avec l'erreur suivante :
Mon code est le suivant :
Si j'en crois le surligne quand je passe en débogage, l'erreur intervient à la ligne CfgSalle.ComboBox3.Clear
Pourtant, j'utilise cette même boucle auparavant sur une autre ComboBox :
Cette boucle fonctionnant très bien pour la première ComboBox et le nom de la comboBox que j'essaye de remplir est bien ComboBox3 :
J'ai quand même cherché sur internet ce code erreur, et je suis tombé sur un gars qui disait que l'erreur venait dur framework 3.5 (je me rappelle plus du nom entier) qui n'était pas activé ou alors qu'il fallait réinstaller excel. Bon au lieu de réinstallé excel j'ai tenté sur 2 autres pc l'un du boulot aussi en office 2013 et mon perso en office 365 mais j'ai toujours cette erreur... Donc je ne pense pas que réinstaller excel soit la solution, c'est pour ca que je me tourne vers vous, si vous avez un solution car là je sèche avec le peu d'information que nous donne VBA dans ses erreurs....
Disclaimer : Je suis désolé je ne vais pas pouvoir fournir d'excel car il comporte des données sensible que je n'ai pas le droit de communiquer je vais donc essayer de donner un maximum de code et d'exemple pour aider votre compréhension et que vous m'aidiez dans mon problème
Aujourd'hui mon problème est le suivant : Pour faire simple, j'essaye d'actualiser la liste d'une ComboBox pour qu'elle selectionne les nouveau élément. Seulement, au moment de Clear cette ComboBox Je me retrouve avec l'erreur suivante :
Mon code est le suivant :
VB:
CfgSalle.Range("A13:A" & nbLigne).Copy
CfgSalle.Range("AA1").PasteSpecial Paste:=xlPasteValues
CfgSalle.Range("AA:AA").Select
Selection.RemoveDuplicates Columns:=1, Header:=xlNo
'Actualisation des salles à la liste
nbIteration = CfgSalle.Range("AC1")
Iteration = 1
CfgSalle.ComboBox3.Clear
Do While Iteration <= nbIteration
If CfgSalle.Range("AA" & Iteration) <> IsEmpty(CfgSalle.Range("AA" & Iteration)) Then
MsgBox ("AA" & Iteration)
CfgSalle.ComboBox3.AddItem CfgSalle.Range("AA" & Iteration)
Else
End If
Iteration = Iteration + 1
LoopSi j'en crois le surligne quand je passe en débogage, l'erreur intervient à la ligne CfgSalle.ComboBox3.Clear
Pourtant, j'utilise cette même boucle auparavant sur une autre ComboBox :
Code:
nbIteration = Data.Range("A2")
Iteration = 3
CfgSalle.ComboBox1.Clear
Do While Iteration < nbIteration + 3
'MsgBox ("B" & iteration)
CfgSalle.ComboBox1.AddItem Data.Range("B" & Iteration)
Iteration = Iteration + 1
LoopCette boucle fonctionnant très bien pour la première ComboBox et le nom de la comboBox que j'essaye de remplir est bien ComboBox3 :
J'ai quand même cherché sur internet ce code erreur, et je suis tombé sur un gars qui disait que l'erreur venait dur framework 3.5 (je me rappelle plus du nom entier) qui n'était pas activé ou alors qu'il fallait réinstaller excel. Bon au lieu de réinstallé excel j'ai tenté sur 2 autres pc l'un du boulot aussi en office 2013 et mon perso en office 365 mais j'ai toujours cette erreur... Donc je ne pense pas que réinstaller excel soit la solution, c'est pour ca que je me tourne vers vous, si vous avez un solution car là je sèche avec le peu d'information que nous donne VBA dans ses erreurs....