Créer des onglets et y reporter des infos

[DIGGERJACK]

Bonjour

Je voudrais par macro pouvoir reporter les infos de l'onglet base vers d'autres onglets ( l'onglet maquette est l'onglet type)

Il me faudrait pouvoir créer automatiquement des onglets à partir des données en colonne A soit un onglet par nom et y reporter les données comme le résulatat souhaité en feuil3

Merci de votre aide
Diggerjack

 

[skoobi]

Re : Créer des onglets et y reporter des infos

Bonjour DIGGERJACK,

Voici un code à lancer depuis la feuille base (via un bouton si tu veux):

Sub report()
  Dim Nom As Range
'on stoppe le rafraichissement de l'écran
  Application.ScreenUpdating = False
'pour chaque nom colonne A
  For Each Nom In Range([A3], [A65536].End(xlUp))
    On Error Resume Next
'on vérifie que la feuille existe
    test = Sheets(Nom.Value).Name
'si elle n'héxiste pas, l'erreur est vrai donc on cré la feuille
    If Err.Number <> 0 Then
      Sheets("maquette").Copy After:=Sheets(Sheets.Count)
      ActiveSheet.Name = Nom.Value
    End If
    On Error GoTo 0
'dans la feuille nom
    With Sheets(Nom.Value)
'on récupère:
'nom
      .[B1].Value = Nom.Value
'prénom
      .[B2].Value = Nom.Offset(0, 1).Value
'statut
      .[B3].Value = Nom.Offset(0, 2).Value
'base contrat
      .[B4].Value = Nom.Offset(0, 4).Value
    End With
  Next
  Sheets("base").Activate
End Sub

Bonne soirée.

Edit: en ré-exécutant le code, il y avait un soucis, c'est corrigé. Ce code permet aussi de mettre à jour les feuilles créées.

 

[jp14]

Re : Créer des onglets et y reporter des infos

Bonjour DIGGERJACK,
Bonjour skoobi

Une autre solution avec une macro évènementielle, il suffit de cliquer sur le nom pour créer la feuille.

Si la feuille existe déjà, arrêt de la procédure.

A tester

JP

 

[mercant76]

Re : Créer des onglets et y reporter des infos

bonjour DIGGERJACK, Skoobi Jp14

une autre solution qui crée toutes les feuilles en 1 fois.

je viens après la bagarre, mais je n'ai pas la rapidité des cracks qui t'ont déjà répondu.

@+

 

[DIGGERJACK]

Re : Créer des onglets et y reporter des infos

Bonsoir le forum

Merci à vous trois pour vos réponses

Je regardes tout cela de près demain et je vous tiens au courant

Bonne soirée

 

[DIGGERJACK]

Re : Créer des onglets et y reporter des infos

Bonsoir le forum

Après différents tests j'ai retenu la réponse de Skoobi qui correspond tout à fait à ma demande pour faire évoluer mon fichier complet

En effet la version de Skoobi me permet de créer les onglets et d'y incorporer différentes informations et d'y revenir si besoin est

Merci à JP14 et mercant76 pour leur réponses.Elles ne s'adaptent pas à mon projet mais que je les garde au chaud pour d'autres applications.

Bonne soirée à toutes et tous