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