Svp besoin d'aide sur mon code VBA

Résolu/Fermé

Utilisateur anonyme -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 28 janv. 2011 à 08:15

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

A voir également:

Svp besoin d'aide sur mon code VBA
Code ascii - Guide
Code puk bloqué - Guide
Code activation windows 10 - Guide
Comment déverrouiller un téléphone quand on a oublié le code - Guide
Code blocks - Télécharger - Langages

1 réponse

Réponse 1 / 1

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

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

Utilisateur anonyme

merci bcp pr ton aide (désolé de ne pas l avoir fait plutot j avais des soucis de connexion

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

Et même sur Developpez.com ?
https://www.developpez.net/forums/d1030559/logiciels/microsoft-office/excel/macros-vba-excel/modification-code/

Discussions similaires

sertissage des cables rj45