Claudy
XLDnaute Accro
Bonjour,
dans une de mes applications, je voudrais sélectionner la feuille dont le numéro est le plus élevé,
En fait , j'ai un classeur où j'ajoute régulièrement des nouvelles feuilles, mais de temps en temps j'en supprime (les plus anciennes) donc le nombre de feuille (Sheets.count) est différent du numéro de la feuille la plus récente et c'est cette derniére que je voudrais sélectionner en sachant que ce numéro augmente régulièrement!
Mon code:
Sub nouveau_mois()
'c'est ici que au lieu de sélectionner l'activesheet
'il 'faudrait 'sélectionner par exemple la feuil38
'mais le 38 varie et est différent de sheet.Count
ActiveSheet.Copy after:=ActiveSheet
'Merci d'avance
zaza = InputBox('Nouveau mois sous la forme 01/06/2005...', 'Nouveau mois', Date)
Range('B1') = CDate(zaza)
ActiveSheet.Name = Format(Range('b1').Value, 'mmmmyy')
End Sub
dans une de mes applications, je voudrais sélectionner la feuille dont le numéro est le plus élevé,
En fait , j'ai un classeur où j'ajoute régulièrement des nouvelles feuilles, mais de temps en temps j'en supprime (les plus anciennes) donc le nombre de feuille (Sheets.count) est différent du numéro de la feuille la plus récente et c'est cette derniére que je voudrais sélectionner en sachant que ce numéro augmente régulièrement!
Mon code:
Sub nouveau_mois()
'c'est ici que au lieu de sélectionner l'activesheet
'il 'faudrait 'sélectionner par exemple la feuil38
'mais le 38 varie et est différent de sheet.Count
ActiveSheet.Copy after:=ActiveSheet
'Merci d'avance
zaza = InputBox('Nouveau mois sous la forme 01/06/2005...', 'Nouveau mois', Date)
Range('B1') = CDate(zaza)
ActiveSheet.Name = Format(Range('b1').Value, 'mmmmyy')
End Sub