[HELP] prog. excel!
Résolu
Getz_v
Messages postés
44
Date d'inscription
Statut
Membre
Dernière intervention
-
nick -
nick -
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.
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.
A voir également:
- [HELP] prog. excel!
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
1 réponse
Bonjour
Essaye ce code :
à plus
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
Ca marche nickel! merci beaucoup de ton aide précieuse, ça me rend vraiment service!
Bonne journée a toi et encore merci!!!! :)
Je souhaite que tu m'aide à apprendre les VB sous excel. Je suis un débutant. Pourras-tu me proposer des applications sur VB? SVP au secours.