XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?

bedley

XLDnaute Nouveau
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
 
C

Compte Supprimé 979

Guest
Bonjour,

J'ai remarqué que vous avez posté votre message sur un autre forum Excel :rolleyes:

La pratique du cross posting est très mal perçue sur Internet car les membres qui vont passer du temps sur votre problème risquent de le faire pour rien si vous obtenez une réponse par ailleurs dont ils n'ont pas connaissance.

Merci de choisir un forum pour votre question et de supprimer votre message dans un des forums concernés.

Profitez en pour relire la charte dans laquelle il est expliqué que cette pratique n'est pas admise sur XLD.

Bonne journée
 

Phil69970

XLDnaute Barbatruc
Bonjour à tous

Bruno il est un spécialiste du cross posting et s'en fout complètement de ce que l'on peut lui dire !!! :mad:

 

bedley

XLDnaute Nouveau
Bonjour à tous

Bruno il est un spécialiste du cross posting et s'en fout complètement de ce que l'on peut lui dire !!! :mad:

 

bedley

XLDnaute Nouveau
Mr phil
Je pense que avant d'adresser des reproches, il faut néanmoins prendre soin d'avoir un esprit d'analyse de synthèse. Quand vous regardez le poste, la problématique tien a peine sur deux lignes. Le reste c'est le code que j'ai établi et qui ne ne marche pas. Donc si vous n'avez pas la quiétude de m'aider, mieux vaut ne pas vous prononcer sur ce qui n'a pas de sens. Merci pour votre compréhension
 

Phil69970

XLDnaute Barbatruc
@bedley

As tu lu la charte § 2.10 ?

==> Non sinon tu n'aurais pas recommencer à faire du cross posting

==> Oui alors as tu compris ce que dit la charte ?
======> Si oui pourquoi recommencer 10 jours après ?

Donc je maintiens la TOTALITÉ de mes propos et ce qui n'a pas de sens c'est de ne pas tenir compte des remarques des intervenants de ce site et de ne pas respecter la charte que tu as accepté en t'inscrivant sur le site !
 

bedley

XLDnaute Nouveau
@bedley

As tu lu la charte § 2.10 ?

==> Non sinon tu n'aurais pas recommencer à faire du cross posting

==> Oui alors as tu compris ce que dit la charte ?
======> Si oui pourquoi recommencer 10 jours après ?

Donc je maintiens la TOTALITÉ de mes propos et ce qui n'a pas de sens c'est de ne pas tenir compte des remarques des intervenants de ce site et de ne pas respecter la charte que tu as accepté en t'inscrivant sur le site !
@Phil69970

Peut être que nous n'avons pas la même compréhension du vocabulaire inscrit dans la charte. Le post n'est il pas cohérent et compréhensible ? sinon relevé les zones confuses sur expliquent le non respect de la charte a mon égard. Par ailleurs sans les intervenants, ce forum n'aura plus le sens d'exister, donc vous devez un minimum de respect dans vos propos envers ces derniers. Merci pour votre compréhension
 

Phil69970

XLDnaute Barbatruc
@bedley

donc vous devez un minimum de respect dans vos propos
Aucun de mes posts ne manque de respect mais il en est pas de même de ta part en ne respectant pas la charte .
De plus si mes posts manque de respect rien ne t’empêche de les signaler à l'admin du site en cliquant sur le bouton
1706725553940.png

Surtout ne te gène pas.
 

bedley

XLDnaute Nouveau
@bedley


Aucun de mes posts ne manque de respect mais il en est pas de même de ta part en ne respectant pas la charte .
De plus si mes posts manque de respect rien ne t’empêche de les signaler à l'admin du site en cliquant sur le bouton
Regarde la pièce jointe 1189747
Surtout ne te gène pas.
Je vous ai juste demander de me relever les zones obselette de mon post qui sont en contradiction avec la charte afin que ça ne se reproduise plus. Si vous le faites pas , alors vous me devez des excuses pour m'avoir manqué du respect et de considération a moi personnellement.jai pas besoin de vous signaler chez qui que ce soit. Merci pour votre compréhension
 

Phil69970

XLDnaute Barbatruc

Discussions similaires

Statistiques des forums

Discussions
312 584
Messages
2 089 995
Membres
104 334
dernier inscrit
wizofab