J'aimerais trier les nom des feuilles dont les les 3 première lettre de nom commencent par R+; ETA; NIV;SOU et ensuite fusionner leur tableaux dans une autre feuille nommée " Nomenclature_mtx"
Voici le code
Dim F as worksheet
Dim i as integer
Dim j as integer
Dim derligne as integer
For each F in Activeworkbook.Worksheets
If (( ucase( left (F.name,2)))="R+" OR (( ucase( left (F.name,3)))="ETA" OR (( ucase( left (F.name,3)))="NIV" OR (( ucase( left (F.name,3)))="SOU" then
For j=1 to Activeworkbook.Worksheets.count
Sheets(j). Select
Lastrow = Range("B1048576").end(xlup).row
For i= lastrow to 4 step -1
Sheets(j). Select
Sheets(I). select
Selection.delete shift:=xlup
Next i
Sheets ("nomenclature_mtx").select
Derligne=Range("B1048576").end(xlup).row
For k= 8 to derligne
Sheets"nomenclature_mtx"). Select
If sheets(j).name=cells(k,6).value then
Rows (k). select
Sélection.copy
Sheets (j). select
Lastrow = Range("B1048576").end(xlup).row+1
Cells(lastrow,1). select
Active sheet.paste
End if
Next k
Next j
Application.cutcopymode= false
Sheets"nomenclature_mtx"). Select
End sub
Sur cette ligne "Sheets(I). select" il m'envoie une erreur d'exécution " l'indice n'appartient pas à la sélection"
Quelqu'un saurait il où se trouve le problème et comment ? Merci
Voici le code
Dim F as worksheet
Dim i as integer
Dim j as integer
Dim derligne as integer
For each F in Activeworkbook.Worksheets
If (( ucase( left (F.name,2)))="R+" OR (( ucase( left (F.name,3)))="ETA" OR (( ucase( left (F.name,3)))="NIV" OR (( ucase( left (F.name,3)))="SOU" then
For j=1 to Activeworkbook.Worksheets.count
Sheets(j). Select
Lastrow = Range("B1048576").end(xlup).row
For i= lastrow to 4 step -1
Sheets(j). Select
Sheets(I). select
Selection.delete shift:=xlup
Next i
Sheets ("nomenclature_mtx").select
Derligne=Range("B1048576").end(xlup).row
For k= 8 to derligne
Sheets"nomenclature_mtx"). Select
If sheets(j).name=cells(k,6).value then
Rows (k). select
Sélection.copy
Sheets (j). select
Lastrow = Range("B1048576").end(xlup).row+1
Cells(lastrow,1). select
Active sheet.paste
End if
Next k
Next j
Application.cutcopymode= false
Sheets"nomenclature_mtx"). Select
End sub
Sur cette ligne "Sheets(I). select" il m'envoie une erreur d'exécution " l'indice n'appartient pas à la sélection"
Quelqu'un saurait il où se trouve le problème et comment ? Merci