Bonjours ,
Je vous contact un peut en catastrophe car j'ai une macro que je souhaite exécuter dans plusieurs fichiers ( 73) mais elle me donne une erreur.
Je doit absolument terminer pour demain matin mon travail mais 73 fichiers c'est trop long à la main.
voici la macro :
J'ai l'erreur suivante : l'indice n’appartiens pas à la sélection alors que j'ai biens toutes mes feuilles.
Avez vous une idée d'où pourrait venir le problème ?
Merci d'avance =)
Je vous contact un peut en catastrophe car j'ai une macro que je souhaite exécuter dans plusieurs fichiers ( 73) mais elle me donne une erreur.
Je doit absolument terminer pour demain matin mon travail mais 73 fichiers c'est trop long à la main.
voici la macro :
Sub test()
Dim wb As Workbook
For Each wb In Workbooks
monID = 0
j = 1
k = 1
derniereLigne = wb.Sheets(1).Range("B65536").End(xlUp).Row
For i = 1 To derniereLigne
If wb.Sheets(1).Cells(i, 1).Value <> "" Then
monID = monID + 1
valeur = wb.Sheets(1).Cells(i, 1).Value
wb.Sheets(2).Cells(j, 1).Value = monID
wb.Sheets(2).Cells(j, 2).Value = Sheets(1).Cells(i, 1).Value
j = j + 1
End If
wb.Sheets(3).Cells(k, 1).Value = monID
wb.Sheets(3).Cells(k, 2).Value = Sheets(1).Cells(i, 2).Value
k = k + 1
Next
wb.Sheets(2).Name = "Danger"
wb.Sheets(3).Name = "Mesure"
Next wb
End Sub
J'ai l'erreur suivante : l'indice n’appartiens pas à la sélection alors que j'ai biens toutes mes feuilles.
Avez vous une idée d'où pourrait venir le problème ?
Merci d'avance =)