Renommer des cellules sur plusieurs onglets

[roweronly]

Bonjour à tous,

Je voudrais faire une boucle pour renommer la cellule B5 de mes onglets à partir du cinquième onglet.
Pour les renommer j'ai des conditions si B5 = France je veux le renommer en notant FR.
Mon code actuel ne passe pas d'un onglet à un autre :

Dim X As Integer


For X = 5 To Sheets.Count

Range("B5").Select
Select Case ActiveCell.Value

Case "France"
ActiveCell.Value = "FR"

Case "Allemagne"
ActiveCell.Value = "ALL"

End Select

Next

End Sub

Merci beaucoup pour vos réponses

 

[Robert]

Re : Renommer des cellules sur plusieurs onglets

Bonjour Roweonly, bonjour le forum,

Essaie comme ça :

Dim X As Integer
For X = 5 To Sheets.Count
    With Sheets(X)
        Select Case .Range("B5").Value
            Case "France"
            .Range("B5").Value = "FR"
            Case "Allemagne"
            .Range("B5").Value = "ALL"
        End Select
    End With
Next

 

[Pierrot93]

Re : Renommer des cellules sur plusieurs onglets

Bonjour,

peut être comme ceci :

Dim x As Integer
For x = 5 To Sheets.Count
    With Sheets(x).Range("B5")
        Select Case .Value
        Case "France"
        .Value = "FR"
        Case "Allemagne"
        .Value = "ALL"
        End Select
    End With
Next x

bonne journée
@+

Aarf : bonjour Robert, un peu en retard, moi... bonne journée

 

[roweronly]

Re : Renommer des cellules sur plusieurs onglets

Ok c'est super cela fonctionne parfaitement merci pour vos réponses Pierrot et Robert !!