"L'indice n'appartient à la sélection" + VBA

fleur.31 Messages postés 3 Statut Membre -  
 geosevda -
Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) <> Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) <> Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) <= (Worksheets("bullspread").Cells(2, 3) - 100) Xor Worksheets("BDD Call").Cells(a, 4) >= (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) <> Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 dans bullspread'''''''

Worksheets("BDD Bullspread").Cells(3, 1) = Worksheets("BDD call").Cells(a, 1)
Worksheets("BDD Bullspread").Cells(3, 2) = Worksheets("BDD call").Cells(a, 3)
Worksheets("BDD Bullspread").Cells(3, 3) = Worksheets("BDD call").Cells(a, 4)
Worksheets("BDD Bullspread").Cells(3, 4) = Worksheets("BDD call").Cells(a, 5)
Worksheets("BDD Bullspread").Cells(3, 5) = Worksheets("BDD call").Cells(a, 6)
Worksheets("BDD Bullspread").Cells(3, 6) = Worksheets("BDD call").Cells(a, 7)
Worksheets("BDD Bullspread").Cells(3, 7) = Worksheets("BDD call").Cells(a, 8)
Worksheets("BDD Bullspread").Cells(3, 8) = Worksheets("BDD call").Cells(a, 9)
Worksheets("BDD Bullspread").Cells(3, 9) = Worksheets("BDD call").Cells(a, 10)


End Sub

Quand on lance lamacro, un message s'annonce comme quoi "lindice n'appartient à la sélection"...

Quelqu'un pourrait nous aider svp??



A voir également:

1 réponse

Réponse 1 / 1
gregg5l Messages postés 53 Statut Membre 28
 
Bonjour;
Quand en VBA il y a une erreur de type "l'indice n'appartient à la sélection", c'est que le code ne trouve pas un classeur ou une feuille.
Vérifie donc le nom des feuilles.
Si les noms sont bons, remplace Worksheets() par Sheets()
23
geosevda
 
Bonjour, j'ai le même message d'erreur, j'essai de lire les lignes d'un fichier texte par un messagebox le code est le suivant :

Dim oFSO As Scripting.FileSystemObject
Dim oTxt As Scripting.TextStream
With oTxt
Dim TestArray() As String
Dim st As String
Dim i As Integer
Dim tRows As Long
Dim tCols As Long
Dim ligne As AcadLine

Set oFSO = New Scripting.FileSystemObject
Set oTxt = oFSO.OpenTextFile(txtDWGname.Text, ForReading)

With oTxt
While Not .AtEndOfStream

st = oTxt.ReadLine
TestArray() = split(st, ";")
Dim TestArrayField As Integer
tRows = .Line
tCols = .Column
For i = 0 To tRows
MsgBox TestArray(i)
Next
Wend

End With
oTxt.Close
End With
1

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Erreur d'execution 424 : Objet requis
ThePlisskenism -
pijaku -

12 réponses
Arrêt automatique macro
ouistitlilie -
ouistitlilie -

3 réponses
erreur d'execution 9, l'indice n'appartient pas à la sélection
isidoh -
isidoh -

18 réponses
erreur 424 "objet requis" sous excel
mary -
mary -

2 réponses
Erreur d'exécution '13': Incompatibilité de Type
SLM-BHY -
Heliotte -

8 réponses