joliemaman007
XLDnaute Nouveau
Mon petit code qui fonctionne alors, même si pour vous c'est du B.A. BA, ça m'honore et me fait plaisir de le mettre ici. Et puis c'est fait avec Excel 2007, version US (bon je sais que cela peut être plus complexe et plus joli, mais en tous les cas, ça marche)
Allez, bon week-end à tous.
'---------------------------------------------------------------
Sub renomme_les_intercalaires()
'
' Objectif: Renommer tous les intercalaires de 1 à n
'
' --------------------------------------------------------
' Se positionne sur MON premier intercalaire
' Qui s'appelait 94
'---------------------------------------------------------
'
Worksheets("94").Activate
'
'--------------------------------------------------------
' compte le nombre d'intercalaires
'--------------------------------------------------------
'
nombre_intercalaire = Worksheets.Count
For i = 1 To nombre_intercalaire
Worksheets(i).Activate
Worksheets(i).Name = i
Next i
End Sub
'---------------------------------------------------------------
Allez, bon week-end à tous.
'---------------------------------------------------------------
Sub renomme_les_intercalaires()
'
' Objectif: Renommer tous les intercalaires de 1 à n
'
' --------------------------------------------------------
' Se positionne sur MON premier intercalaire
' Qui s'appelait 94
'---------------------------------------------------------
'
Worksheets("94").Activate
'
'--------------------------------------------------------
' compte le nombre d'intercalaires
'--------------------------------------------------------
'
nombre_intercalaire = Worksheets.Count
For i = 1 To nombre_intercalaire
Worksheets(i).Activate
Worksheets(i).Name = i
Next i
End Sub
'---------------------------------------------------------------