Modifier mon code

Salut le forum

Dans le code ci-dessous, je souhaite qu'on m'aide modifier le critère sur les feuille name.
En effet, dans mon classeur, j'ai des feuille dont le nom des onglets est alphabetique et d'autres purement numéric. je souhaite au lieu de dire :

Code:

---

If ws.Name <> wsd.Name And ws.Name <> "MENU" And ws.Name <> "SOURCE" And ws.Name <> "TABLEAU_N-1" And ws.Name <> "TABLEAU_N" And ws.Name <> "CODES"

---

qu'il ne traite que les onglets dont les noms sont purement numeric.
comment interpreter cela?

Code:

---

1 2 3 4 5 6 7 8 9

For Each ws In ActiveWorkbook.Worksheets If ws.Name <> wsd.Name And ws.Name <> "MENU" And ws.Name <> "SOURCE" And ws.Name <> "TABLEAU_N-1" And ws.Name <> "TABLEAU_N" And ws.Name <> "CODES" Then lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row lastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column ws.Cells(2, 1).Resize(lastRow, lastCol).Copy wsd.Cells(lRow, 1).PasteSpecial xlPasteFormulasAndNumberFormats lRow = wsd.Cells(Rows.Count, 1).End(xlUp).Row + 1 End If Next

---

N.B: c'est une partie du code et non l'intégralité
Merci de me donner un coup de main.

Utilise Isnumeric

Bonjour capi81,

Ce code incrémente de 1 le nom des worsheets qui sont numériques.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub verif_name() Dim inc As Integer   For Each Ws In ActiveWorkbook.Worksheets If IsNumeric(Ws.Name) Then 'ici se situe la vérification inc = CInt(Ws.Name) + 1 Ws.Name = inc End If Next Ws   End Sub

---

Cordialement,
Kimy

EDIT : mercatog a été plus rapide que moi ! :)

Salut Kimy_Irec et Mercatog

Merci pour vos contribution.
Ne comprenant pas la signification de tout le code de Kimy, j'ai preferé copié cette partie qui fait mon affaire

Code:

---

If IsNumeric(Ws.Name) Then 'ici se situe la vérification

---

et je l'ai intégré dans mon code.
A quoi sert l'incrémentation??
Merci encore

Bonjour,

Citation:

---

Envoyé par capi81

Salut Kimy_Irec et Mercatog
A quoi sert l'incrémentation??
Merci encore

---

Sans avoir tout lu, cela me semble être là pour augmenter de 1, les noms de Feuilles genre Feuil1 ou Sheet1, pour éviter les plantages en cas de noms identiques.

Comme quoi on s'endort sur ses lauriers en attendant une solution faite de A à Z. On oublie que c'était là un exemple (l'histoire de l'incrémentation; de surcroit non fonctionnelle vu qu'on ne peut donner à 2 feuilles d'un même classeur le même nom).

Capi?

Bon... la prochaine fois je donnerai juste la ligne de code...

C'était un exemple non voué à être utilisé en l'état... c'était juste une "application rapide" de ce qui était demandé... Bref...