XL 2016 Création de page et modification de nom en fonction de la cellule.

Valoute · 6 Septembre 2016

Bonjour,
j'aimerais savoir comment pourrait on faire pour qu'avec une macro une nouvelle page s'ouvre avec des informations dedans (un doublons d'une page existante) mais avec le nom de la feuille qui correspond aux contenus d'une cellule.

Exemple:

Feuil1 / Richard Daniel (information de Richard Daniel) / Nicolas Ribou (information de Richard Daniel)

Nicolas Ribou vient d'être mis dans la cellule et initialisé et ceci pour environs 20 cellules dans la "Feuil1" L'utilisateur a juste à rentrer un nom dans les cellules données à cet effet et une fois cela fait une nouvelle page C/C de la 2nd feuilles est créée.

Franchement je sèche là si vous avez des solutions.
Merci d'avance.

Theze · 6 Septembre 2016

Bonjour,

A mettre dans le module de la feuille "Feuil1". La zone prise en considération est A2:A20, adapter dans le code si différent :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Fe As Worksheet
   
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Len(Target.Value) > 30 Then Exit Sub
   
    'seulement de A2 à A20
    If Intersect(Target, Range("A2:A20")) Is Nothing Then Exit Sub
   
    Worksheets(2).Copy , Sheets(Sheets.Count)
    Set Fe = ActiveSheet
    Fe.Name = Target.Value

End Sub

Si j'ai bien tout compris, sitôt la cellule renseignée, une feuille est créée, positionnée à la fin et portant la valeur de la cellule !

Valoute · 6 Septembre 2016

Merci pour ta réponse mais j'ai trouvé tout seul enfaite c'était simplement un copié coller de page avec changement de nom de la feuille rien de plus simple je me suis pris la tête pour rien.

XL 2016 Création de page et modification de nom en fonction de la cellule.

Valoute

XLDnaute Nouveau

Theze

XLDnaute Occasionnel

Valoute

XLDnaute Nouveau

Discussions similaires