Svp besoin d'aide sur mon code VBA
Résolu/Fermé
Utilisateur anonyme
-
michel_m Messages postés 18903 Statut Contributeur -
michel_m Messages postés 18903 Statut Contributeur -
Bonjour,
Voila je réalise mon premier programme sous vba et j ai besoin d un conseil pr la rédaction de mon code ...
"en cliquant sur mon bouton de commande, cette sub va recopier des données ds une nouvelle feuille .... et a chaque click en créer une autre avec les données de la ligne ..... pour le transfert de données c est bon ....
mon problème concerne la création successive de feuille et à chaque fois de les nommer ...
je cherche à ajouter un nouvelle feuille à la fin du classeur, et celle ci va prendre le nom du contenu d'une cellule se situant ds la page "botter" ....
voici le code que j ai commencé à faire :
Sub Feuill_creat()
' Création nouvelle page avec le numero du deal
Dim Nom As Range
Dim MaFeuille As Worksheet
Set MaFeuille = Sheets("Botter")
Nom = Sheets("botter").Range("D5").Value
Sheets.Add After:=Sheets(Sheets.Count)
For i = 1 To 100 Step 1
Sheets("Feuil (" & i & ")").Activate
Sheets("Feuil (" & i & ")").name = "Nom"
Next i
End Sub
Merci d'avance
Voila je réalise mon premier programme sous vba et j ai besoin d un conseil pr la rédaction de mon code ...
"en cliquant sur mon bouton de commande, cette sub va recopier des données ds une nouvelle feuille .... et a chaque click en créer une autre avec les données de la ligne ..... pour le transfert de données c est bon ....
mon problème concerne la création successive de feuille et à chaque fois de les nommer ...
je cherche à ajouter un nouvelle feuille à la fin du classeur, et celle ci va prendre le nom du contenu d'une cellule se situant ds la page "botter" ....
voici le code que j ai commencé à faire :
Sub Feuill_creat()
' Création nouvelle page avec le numero du deal
Dim Nom As Range
Dim MaFeuille As Worksheet
Set MaFeuille = Sheets("Botter")
Nom = Sheets("botter").Range("D5").Value
Sheets.Add After:=Sheets(Sheets.Count)
For i = 1 To 100 Step 1
Sheets("Feuil (" & i & ")").Activate
Sheets("Feuil (" & i & ")").name = "Nom"
Next i
End Sub
Merci d'avance
A voir également:
- Svp besoin d'aide sur mon code VBA
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
1 réponse
Bonjour
lorsque tu rajoutes une feuille, celle ci devient la feuille active
nom n'est pas une cellule mais du texte et c'est une variable donc ton affectation comme applelation de feuille renverra nom et non D5 puisque tu l'as mis entre guillemets
Ta boucle de 1 à100 demandait la m^meme appelation pour toutes les feuilles --> refus XL
essaies:
Michel
lorsque tu rajoutes une feuille, celle ci devient la feuille active
nom n'est pas une cellule mais du texte et c'est une variable donc ton affectation comme applelation de feuille renverra nom et non D5 puisque tu l'as mis entre guillemets
Ta boucle de 1 à100 demandait la m^meme appelation pour toutes les feuilles --> refus XL
essaies:
Dim Nom As String Dim MaFeuille As Worksheet Set MaFeuille = Sheets("Botter") Nom = MaFeuille.Range("D5").Value Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = Nom
Michel
https://www.developpez.net/forums/d1030559/logiciels/microsoft-office/excel/macros-vba-excel/modification-code/