Bonsoir,
pouvez vous m'aidez à résoudre le problème de de code qui renvoie ce message d'erreur: l'indice n'appartient pas à la sélection
merci
Dans un classeur,avec une feuille nommée "mafeuille"
Sub essai()
Dim test() As String
Sheets("mafeuille").Activate
For j = 1 To Sheets("mafeuille").Range("A2").End(xlDown).Row
For i = 1 To Sheets("mafeuille").Range("A2").End(xlDown).Row
If Cells(i, 15) = 1 Then
test(j) = Sheets("mafeuille").Cells(i, 1).Value
MsgBox test(j)
End If
Next i
Next j
End Sub
pouvez vous m'aidez à résoudre le problème de de code qui renvoie ce message d'erreur: l'indice n'appartient pas à la sélection
merci
Dans un classeur,avec une feuille nommée "mafeuille"
Sub essai()
Dim test() As String
Sheets("mafeuille").Activate
For j = 1 To Sheets("mafeuille").Range("A2").End(xlDown).Row
For i = 1 To Sheets("mafeuille").Range("A2").End(xlDown).Row
If Cells(i, 15) = 1 Then
test(j) = Sheets("mafeuille").Cells(i, 1).Value
MsgBox test(j)
End If
Next i
Next j
End Sub