[HELP] prog. excel!
Résolu
Bonjour,
Je m'adresse a vous car je rencontre un gros soucis. Je suis un grand débutant en programmation vb sur excel, et il faudrait que quelqu'un m'aide pour réaliser ceci :
Voici comment se compose mon classeur excel :
http://img139.imageshack.us/img139/5720/zdqdvg4.png
Le nom du classeur est : Asan.xls
Ce que j'aimerais faire: Arriver, a partir d'un click sur un bouton (code vb) dans la feuille "parametre", de créer une nouvelle feuille (dans ce même classeur), contenant la mise en page de la feuille "semtest" et le même nom que la feuille "SO1", sauf que le "1" de "SO1" s'incrémenterait de 1 pour chaque nouvelle page créée par ce biais là. Rangée ensuite a la fin de toute les feuilles.
Merci beaucoup de votre aide!
Et bonne journée à toutes et à tous.
--
_//>OnLy .@:GK.IND.IND:@. OnLy<\\_
Je m'adresse a vous car je rencontre un gros soucis. Je suis un grand débutant en programmation vb sur excel, et il faudrait que quelqu'un m'aide pour réaliser ceci :
Voici comment se compose mon classeur excel :
http://img139.imageshack.us/img139/5720/zdqdvg4.png
Le nom du classeur est : Asan.xls
Ce que j'aimerais faire: Arriver, a partir d'un click sur un bouton (code vb) dans la feuille "parametre", de créer une nouvelle feuille (dans ce même classeur), contenant la mise en page de la feuille "semtest" et le même nom que la feuille "SO1", sauf que le "1" de "SO1" s'incrémenterait de 1 pour chaque nouvelle page créée par ce biais là. Rangée ensuite a la fin de toute les feuilles.
Merci beaucoup de votre aide!
Et bonne journée à toutes et à tous.
--
_//>OnLy .@:GK.IND.IND:@. OnLy<\\_
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Bonjour
Essaye ce code :Sub Macro1() CptSO = 0 For i = 1 To Sheets().Count If Left(Sheets(i).Name, 2) = "SO" Then CptSO = CptSO + 1 Next i Sheets("Semtest").Select Sheets("Semtest").Copy After:=Sheets(3) Sheets("Semtest (2)").Select Sheets("Semtest (2)").Name = "SO" & CptSO + 1 Sheets("Paramètres").Select End Sub
à plus
