Ecrire dans onglet spécifique VBA

Bonjour,

Je cherche un morceau de code permettant d'écrire dans une cellule (par exemple A1) de chaque onglet contenant "S" dans son nom.

Quelqu'un pourrait il m'aider ?

Merci d'avance.

Salut,

Voici une possibilité :

Sub Inscription()
Dim i As Integer, m As Integer

For i = 1 To Sheets.Count
    On Error Resume Next
    m = WorksheetFunction.Search("s", Sheets(i).Name)
    If m > 0 Then Sheets(i).Range("A1") = "XXX"
m = 0
Next

End Sub

Cordialement.

Bonjour,

[EDIT... Bonjour Yvouille, j'ai 5 min de retard, j'ai trainé à la boulangerie, j'espère que tu m'en tiendras pas rigueur ]

voir fichier joint

++

Merci à tous les deux vos solutions fonctionnent parfaitement

je reviens vers vous avec une question complémentaire

Est ce qu'il est possible de filtrer les onglets contenant "S##"

## étant deux chiffres quelconque

Merci de vos reponses

modifie le code comme suit :

Sub Onglet_S()

Dim aa As String, i As Variant, j As Integer, k As String, l

For Each i In Sheets
    aa = i.Name
    For j = 1 To Len(aa)
        k = Mid(aa, j, 1)
        l = Mid(aa, j + 1, 2)

        If UCase(k) = "S" And IsNumeric(l) = True Then
                i.Range("A1") = "Le nom de cet onglet contient S" & l
        End If
    Next j
Next i

End Sub

Nickel merci