Discussion :

[NEC14]

Bonjour à tous,

Est-il possible de reprendre une partie du nom de l'onglet d'une feuille de calcul et de la copier dans une cellule.

J'ai 29 feuilles de calcul qui se nomment Fich1, Fich2,etc... J'aimerai pouvoir récupérer en C2 de chaque feuille le numéro de la fiche, par exemple pour la feuille Fich1, ne récupérer que le 1.

Merci par avance pour votre aide

[Guiiand]

Bonjour,

Voila qui devrait faire l'affaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RecupNo()
 
Dim wb As Workbook
Dim sh As Worksheet
 
Set wb = ThisWorkbook
 
    For Each sh In wb.Worksheets
        If Left(sh.Name, 4) = "Fich" Then
            sh.Range("C2") = Right(sh.Name, Len(sh.Name) - 4)
        End If
    Next
 
End Sub

[keygen08]

Bonjour
Ceci devrait faire cela

Code :

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

1
2
3
4
5
Sub numero()
For j = 1 To ActiveWorkbook.Sheets.Count
ActiveSheet.Cells(2, 3) = Mid(ActiveSheet.Name, 5)
Next j
End Sub

[MarcelG]

Bonjour à vous, Bonjour au Forum,

A mon sens, mieux vaudrait rendre variable la longueur du nombre extrait.

Pour ce faire, on peut envisager de parcourir la chaine de caractères (exemple: le nom d'une feuille de travail) en créant une fonction de ce type

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function extrnumber(lachaine As String) As Integer
 
Dim i As Byte
Dim a As String
 
For i = 1 To Len(lachaine)
        a = Mid(lachaine, i, 1)
        If IsNumeric(a) Then
                'Ajouter 0 revient à obtenir un entier
                extrnumber = Right(lachaine, Len(lachaine) - i + 1) + 0
                Exit For
        End If
Next i
 
End Function

Ainsi, la procédure...

Code :

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

1
2
3
Sub essai()
Debug.Print extrnumber("Fich250")
End Sub

...retourne 250.

[NEC14]

Merci à tous pour vos réponses. Elles fonctionnent toutes les 3, je n'ai plus qu'à faire mon choix.

Encore mille mercis

[Guiiand]

Bonjour à vous, Bonjour au Forum,

A mon sens, mieux vaudrait rendre variable la longueur du nombre extrait.

Pour ce faire, on peut envisager de parcourir la chaine de caractères (exemple: le nom d'une feuille de travail) en créant une fonction de ce type

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function extrnumber(lachaine As String) As Integer
 
Dim i As Byte
Dim a As String
 
For i = 1 To Len(lachaine)
        a = Mid(lachaine, i, 1)
        If IsNumeric(a) Then
                'Ajouter 0 revient à obtenir un entier
                extrnumber = Right(lachaine, Len(lachaine) - i + 1) + 0
                Exit For
        End If
Next i
 
End Function

Ainsi, la procédure...

Code :

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

1
2
3
Sub essai()
Debug.Print extrnumber("Fich250")
End Sub

...retourne 250.

Ma fonction egalement marche, puisque j'enleve le FICH, donc peut importe le nombre de chiffre, ca marche.

[NEC14]

Ma fonction egalement marche, puisque j'enleve le FICH, donc peut importe le nombre de chiffre, ca marche.

Je confirme ça marche.
René