Erreur d'exécution '9': L'indice n'appartient pas à la sélaction
hakoko
Messages postés
189
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour à tous,
j'ai copié un programme VBA pour remplir un formulaire, ça bug des le premier prgramme, je cherche la raison mais je ne trouve pas. S'il vous plait pouvez me donner votre avis la dessus? Merci d'avance.
Option Explicit
Dim Ws As Worksheet
Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer
ComboBox2.ColumnCount = 1
ComboBox2.List() = Array("DI", "EP", "AVP", "PRO", "DCE", "REA")
Set Ws = Sheets("Phase")
With Me.ComboBox1
For J = 11 To Ws.Range(" A " & Rows.Count).End(xlUp).Row
.AddItem Ws.Range(" A " & J)
Next J
End With
For I = 1 To 11
Me.Controls(" TextBox " & I).Visible = True
Next I
End Sub
j'ai copié un programme VBA pour remplir un formulaire, ça bug des le premier prgramme, je cherche la raison mais je ne trouve pas. S'il vous plait pouvez me donner votre avis la dessus? Merci d'avance.
Option Explicit
Dim Ws As Worksheet
Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer
ComboBox2.ColumnCount = 1
ComboBox2.List() = Array("DI", "EP", "AVP", "PRO", "DCE", "REA")
Set Ws = Sheets("Phase")
With Me.ComboBox1
For J = 11 To Ws.Range(" A " & Rows.Count).End(xlUp).Row
.AddItem Ws.Range(" A " & J)
Next J
End With
For I = 1 To 11
Me.Controls(" TextBox " & I).Visible = True
Next I
End Sub
A voir également:
- Erreur d'exécution '9': L'indice n'appartient pas à la sélaction
- Erreur d'execution 13 ✓ - Forum Programmation
- Erreur s3 bbox - Forum Bbox Bouygues
- Erreur 0x80070570 ✓ - Forum Windows 10
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 4101 - Forum Carte graphique
3 réponses
Bonjour,
NB : Quand tu postes du code sur le forum ...
Utiliser les balises de code avec indication du langage (=coloration syntaxique)
Explications disponibles ici : Comment utiliser les balises de code
Exemple :
Dans ton code, il y a des espaces en trop entre les guillemets !
Code corrigé :
NB : Quand tu postes du code sur le forum ...
Utiliser les balises de code avec indication du langage (=coloration syntaxique)
Explications disponibles ici : Comment utiliser les balises de code
Exemple :
Sub UtiliserLesBalises() MsgBox "Merci d'utiliser les balises de code" End Sub
Dans ton code, il y a des espaces en trop entre les guillemets !
Code corrigé :
Option Explicit
Private Sub UserForm_Initialize()
Dim Ws As Worksheet
Dim J As Long
Dim I As Integer
ComboBox2.ColumnCount = 1
ComboBox2.List() = Array("DI", "EP", "AVP", "PRO", "DCE", "REA")
Set Ws = Sheets("Phase")
With Me.ComboBox1
For J = 11 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
For I = 1 To 11
Me.Controls("TextBox" & I).Visible = True
Next I
End Sub
Bonjour
Des espaces en trop, essaies ceci
Cdlmnt
Des espaces en trop, essaies ceci
Dim Ws As Worksheet
Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Long
Me.ComboBox2.ColumnCount = 1
Me.ComboBox2.List() = Array("DI", "EP", "AVP", "PRO", "DCE", "REA")
Set Ws = Sheets("Phase")
With Me.ComboBox1
For J = 11 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
For I = 1 To 11
Me.Controls("TextBox" & I).Visible = True
Next I
End Sub
Cdlmnt
