Copier nom d'onglet sur cellule

Bonjour a tous

Tout est expliqué dans le fichier, le but sur une feuille active (très important) de créer une colonne en B et ensuite de copier coller le nom de l'onglet dans les cellules en B2 autant de fois que la colonne A est pleine.

merci de vôtre aide

81classeur1.xls (18.50 Ko)

Bonjour

Code de Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    Target.Offset(0, 1) = ActiveSheet.Name
    End If
End Sub

Cordialement

64classeur1.zip (7.51 Ko)

Merci nickel ça marche bien aurais tu la version avec feuille non active façon macro qu'on puisse contrôler avec un bouton ou quoi ? Comme ça je pourrais choisir c'est quoi le mieux

En faite ce serais mieux une macro simple car j'ai pas l'insertion de la colonne donc mon code commencerait par ça mais je connais pas la suite pour nommer les cellules

Sub Macro()

    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
End Sub

hello,

est-ce ceci que tu souhaites obtenir?

Sub Macro()

Dim i As Integer

'ajout de la colonne

Columns("B:B").Select

Selection.Insert Shift:=xlToRight

'boucle d'ajout du nom de longlet

i = 2

Do While Range("A" & i).Value <> ""

Range("B" & i).Value = ActiveSheet.Name

i = i + 1

Loop

End Sub

55classeur1.zip (16.78 Ko)

Merci merci ça marche nickel comme je voulais

Rechercher des sujets similaires à "copier nom onglet"