Bonsoir,
Thierry, il y a quelque temps tu m'avais donné ce code en vb pour reporté des données d'une facture sur une feuille de relevé.
Lorsque je la met en place j'ai le message erreur d'exécution '9' l'indice n'appartient pas à la sélection.
Comment le corriger et pourquoi cela.
Voici le code tel que je l'ai reporté en utilisant mes noms de cellules de ma facture.
Sub Reporting()
Dim L As Integer
Dim Item as Variant
Dim i As Byte
i = 1
L = Sheets("RELEVE FACTURE").Range("A65536").End(xlUp).Row + 1
For Each Item In Array("numfac", "CodeClientSaisi", "DatedeFact", "Total_HT", "RefChantier ","Echéance")
If Sheets("FACTURE").Range(Item) = "" Then
MsgBox "Le Champs " & Item & " est vide"
Exit Sub
End If
Sheets("RELEVE FACTURE").Cells(L, i) = Sheets("FACTURE").Range(Item)
i = i + 1
Next
End Sub
le problème semble se situer au niveau de la ligne :
L = Sheets("RELEVE FACTURE").Range("A65536").End(xlUp).Row + 1
Merci de corriger svp
et merci pour tous tes conseils et dépannages