Cellule = onglet

Résolu/Fermé

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 - 11 mars 2020 à 16:46
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 - 15 mars 2020 à 18:27

Bonjour,
Dans l'exemple ci-dessous j'ai en colonne A des noms je souhaiterais avoir un code qui lorsque
j'ajoute un nom ,m'active une nouvelle feuille et que l'onglet de cette feuille ainsi que la cellule A1
portent le nom que je viens d'ajouter.
https://www.cjoint.com/c/JClpUu2OPPf
Merci pour votre aide
Cordialement

Configuration: Windows / Firefox 73.0

A voir également:

Cellule = onglet
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Rouvrir onglet fermé - Guide
Excel cellule couleur si condition texte - Guide
Onglet privé - Guide

4 réponses

Réponse 1 / 4

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
11 mars 2020 à 18:54

bonjour,

a mettre dans le module de la feuille1. Se déclenche au double clic dans la colonne A (nom prenom)

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Integer
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Value = "" Then Exit Sub
Sheets.Add After:=Sheets(Sheets.Count)
' renomme cette feuille avec le nom
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Name = Target.Value
' boucle sur les colonnes 1 a 5 de feuil1
    For c = 1 To 5 ' REMPLACER le 5 par le n° de la dernière colonne
    ' place en ligne 1 de la nouvelle feuille les titres
    Sheets(Sheets.Count).Cells(1, c) = Sheets("Feuil1").Cells(1, c)
      ' place en ligne 2 de la nouvelle feuille l'information de Feuil1
    Sheets(Sheets.Count).Cells(2, c) = Sheets("Feuil1").Cells(Target.Row, c)
    Next
 ' Repositionnement sur Feuil 1
Sheets("Feuil1").Select
End If
End Sub

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461
12 mars 2020 à 09:51

Bonjour
Merci pour ta solution qui va en partie.
Ce que j'aurais souhaité c'est d'avoir sur la ligne1 uniquement en cellule A1 le nom et prénom ,le reste à partir de la
ligne 2.
Est-ce possible?
Cordialement

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024
12 mars 2020 à 10:35

comme ceci:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Integer
Dim Ws As Worksheet
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Value = "" Then Exit Sub
'Boucle sur les feuilles du classeur.
    For Each Ws In ThisWorkbook.Worksheets
     If Ws.Name = Target.Value Then  'même nom
     MsgBox "Une feuille existe dèjà à ce nom!", vbExclamation, "Ajout feuille"
 Exit Sub
     End If
    Next Ws
Sheets.Add After:=Sheets(Sheets.Count)
' renomme cette feuille avec le nom
Sheets(Sheets.Count).Name = Target.Value
Sheets(Sheets.Count).Range("A1").Value = Target.Value
' boucle sur les colonnes 1 a 5 de feuil1
    For c = 1 To 5 ' REMPLACER le 5 par le n° de la dernière colonne
    ' place en ligne 1 de la nouvelle feuille les titres
   ' Sheets(Sheets.Count).Cells(1, c) = Sheets("Feuil1").Cells(1, c)
      ' place en ligne 2 de la nouvelle feuille l'infomation de Feuil1
    Sheets(Sheets.Count).Cells(2, c + 1) = Sheets("Feuil1").Cells(Target.Row, c + 1)
    Next
 ' Repositionnement sur Feuil 1
Sheets("Feuil1").Select
End If
End Sub

Voilà

@+ Le Pivert

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
Modifié le 12 mars 2020 à 12:00

Re bonjour
On y est presque voir le fichier ci-dessous il y a les explications sur 2 feuilles
Il faudrait que dans la feuille créée figure tout ce qui se trouve en colonne B C D E
https://www.cjoint.com/c/JCmkZYNxcCf
Crdlt

Avec les commentaires, c'est facilement adaptable!

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Integer
Dim Ws As Worksheet
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Value = "" Then Exit Sub
'Boucle sur les feuilles du classeur.
    For Each Ws In ThisWorkbook.Worksheets
     If Ws.Name = Target.Value Then  'même nom
     MsgBox "Une feuille existe dèjà à ce nom!", vbExclamation, "Ajout feuille"
 Exit Sub
     End If
    Next Ws
Sheets.Add After:=Sheets(Sheets.Count)
' renomme cette feuille avec le nom
Sheets(Sheets.Count).Name = Target.Value
Sheets(Sheets.Count).Range("A1").Value = Target.Value
' boucle sur les colonnes 2 a 5 de feuil1
    For c = 2 To 5 ' REMPLACER le 5 par le n° de la dernière colonne
    ' place en ligne 2 de la nouvelle feuille les titres
    Sheets(Sheets.Count).Cells(2, c) = Sheets("Feuil1").Cells(1, c)
      ' place en ligne 3 de la nouvelle feuille l'infomation de Feuil1
    Sheets(Sheets.Count).Cells(3, c) = Sheets("Feuil1").Cells(Target.Row, c)
Next
 ' Repositionnement sur Feuil 1
Sheets("Feuil1").Select
End If
End Sub

@+ Le Pivert

Un nouvelle exemple du fichier final
https://www.cjoint.com/c/JCmmLPPujmf
Crdlt

Réponse 2 / 4

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461
13 mars 2020 à 09:47

Bonjour
Merci pour ton aide
Exactement ce que je voulais .
Par contre est-il possible que dans les nouvelles feuilles le tableau soit de la même dimension
que le modèle?
Cordialement

Réponse 3 / 4

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461
13 mars 2020 à 11:13

Re
Je viens de constater que les copies de la feuille Modèle ne reprennent pas les formules qu'il y a dedans.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 13 mars 2020 à 16:17

Bonjour,

les formules qu'il y a dedans.
Ok, je vais modifier aussi pour avoir le meme tableau (taille)

suite:
fichier modifie:
https://mon-partage.fr/f/f6NBEfsg/

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
13 mars 2020 à 18:35

Bonsoir

Merci pour ton aide tout fonctionne nickel.
Bon WE
Cordialement

Réponse 4 / 4

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461
14 mars 2020 à 09:53

Bonjour
Tout fonctionne mais l'histoire du Double Click pas très pratique.
Est-il possible de modifier en tapant uniquement sur Enter quand un nouveau nom est inséré?
Cordialement

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
14 mars 2020 à 11:28

Bonjour,

Double Click:
C'est ce que je vous ai ecrit post 11.
Je vous arrange ca

Bonjour

Ok merci

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024
14 mars 2020 à 11:37

Re,
Par contre, demande un peu de reflexion car si creation des l'ajout d'un nom sans les autres infos, ca va pas le faire

Question: si vous entrez tous vos participants et seulement a la fin click sur un bouton pour créer tous les onglets, Ok ou pas

Si plus facile avec un bouton Ok pas de problème
Mais en cas d'oubli d'un nom après avoir cliqué sur le bouton pourra-t-on ajouter ce nom et créer son onglet?

Re,
Mais en cas d'oubli d'un nom
Oui, puisqu'il y a test si nom onglet déjà exitant

Discussions similaires

Excel si cellule contient texte alors...

Excel - Insérer nom de l'onglet dans cellule

Formule Excel : "SI" une cellule contient un mot, alors ?

Onglet disposition Excel ne s'affiche pas

Edge ouvir les onglets avec Google moteur de recherche

Discussions similaires

Newsletters