Macro récupération Nom de la feuille pour l'inséré devant chaque enregistrements

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2011

• #2

Re : Macro récupération Nom de la feuille pour l'inséré devant chaque enregistrements

Bonjour,

Avez vous une idée de modification pour le nom de la feuille ce copie dans toute les cellules de ma colonne ?

Cliquez pour agrandir...

peut être ceci :

Code:

Columns("C:C").Value = ActiveSheet.Name

bonne journée
@+

 

Vote positif 0 Vote négatif

P

pledger

Guest

• 30 Novembre 2011

• #3

Re : Macro récupération Nom de la feuille pour l'inséré devant chaque enregistrements

Merci Pierrot93 🙂

En effet cala marche très bien mais le soucis c'est que le nom de la colonne ce rajoute également après la fin du tableau , ya t il un moyen d’évité cela ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2011

• #4

Re : Macro récupération Nom de la feuille pour l'inséré devant chaque enregistrements

Re,

mais le soucis c'est que le nom de la colonne ce rajoute également après la fin du tableau

Cliquez pour agrandir...

le nom de la colonne !!! euh... vois pas trop ce que tu veux dire...

 

Vote positif 0 Vote négatif

P

pledger

Guest

• 30 Novembre 2011

• #5

Re : Macro récupération Nom de la feuille pour l'inséré devant chaque enregistrements

En effet je me suis tromper dsl . C'est le nom de la feuille qui est inséré en "C" qui continue même après la fin de mon tableau

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2011

• #6

Re : Macro récupération Nom de la feuille pour l'inséré devant chaque enregistrements

Re,

En effet je me suis tromper dsl . C'est le nom de la feuille qui est inséré en "C" qui continue même après la fin de mon tableau

Cliquez pour agrandir...

euh... oui... d'ailleurs tu disais....

Avez vous une idée de modification pour le nom de la feuille ce copie dans toute les cellules de ma colonne ?

Cliquez pour agrandir...

par contre quand tu dis "après la fin de mon tableau", j'ai des doutes.... s'arrête sur la dernière ligne de la colonne...

 

Vote positif 0 Vote négatif

P

pledger

Guest

• 30 Novembre 2011

• #7

Re : Macro récupération Nom de la feuille pour l'inséré devant chaque enregistrements

Juge par toi même ... je te met un petit exemple de fichier ci joint. ctrl+k pour executer la macro . (Macro 1)

Regarde la pièce jointe Classeur1.xls

 

Pièces jointes

• Classeur1.xls

  40 KB · Affichages: 85
• Classeur1.xls

  40 KB · Affichages: 90

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2011

• #8

Re : Macro récupération Nom de la feuille pour l'inséré devant chaque enregistrements

Re,

oui, en l'état normal, non.... peut être définir la plage à alimenter....

Code:

Range("C2:C10").Value = ActiveSheet.Name

 

Vote positif 0 Vote négatif

P

pledger

Guest

• 30 Novembre 2011

• #9

Re : Macro récupération Nom de la feuille pour l'inséré devant chaque enregistrements

Le soucis c'est que j’exécute cette macro dans plusieurs onglet qui n'ont pas tous le même nombre de ligne ...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2011

• #10

Re : Macro récupération Nom de la feuille pour l'inséré devant chaque enregistrements

Re,

regarde ceci, la dernière ligne est déterminée par la dernière cellule renseignée dans la colonne A, à adapter à ton projet...

Code:

Range("C2:C" & Range("A65536").End(xlUp).Row).Value = ActiveSheet.Name

 

Vote positif 0 Vote négatif

P

pledger

Guest

• 30 Novembre 2011

• #11

Re : Macro récupération Nom de la feuille pour l'inséré devant chaque enregistrements

C'est parfait merci beaucoup Pierrot93 😀

 

Vote positif 0 Vote négatif