svp besoin d'aide sur mon code VBA Résolu/Fermé

Question

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

michel_m · Answer

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: 
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

Svp besoin d'aide sur mon code VBA

1 réponse

Discussions similaires