Bonjour tout le monde,
J'ai ce code :
Arrivé à cette ligne :
J'obtiens ce message d'erreur :
L'indice n'appartient pas à la sélection
Tout est pourtant dans le même classeur.
Je ne comprends pas.
Merci d'avance pour l'aide.
beegees
J'ai ce code :
Code:
Dim i As Integer
Dim j As Integer
i = 1
j = 1
For i = 1 To 24
If ActiveCell.Interior.ColorIndex <> -4142 Then
If ActiveCell.Value <> "" Then
Tableau_Cotes(j) = ActiveCell.Value
j = j + 1
End If
End If
ActiveCell.Offset(0, 1).Select
Next i
Sheets("RN").SelectArrivé à cette ligne :
Code:
Sheets("RN").SelectJ'obtiens ce message d'erreur :
L'indice n'appartient pas à la sélection
Tout est pourtant dans le même classeur.
Je ne comprends pas.
Merci d'avance pour l'aide.
beegees