Erreur d'exécution '9': L'indice n'appartient pas à la sélaction
hakoko
Messages postés
190
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
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
