Discussion :

[capi81]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mercatog]

Utilise Isnumeric

[Kimy_Ire]

Bonjour capi81,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[capi81]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clementmarcotte]

Bonjour,

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.

[mercatog]

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?

[Kimy_Ire]

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...