Création onglets avec macro

Efgé

XLDnaute Barbatruc

• 6 Avril 2011

• #2

Re : Création onglets avec macro

Bonjour bobjazz,
Une proposition.

VB:

Private Sub CommandButton1_Click()
Dim F As Worksheet, Data(), i&, j&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each F In Worksheets
    If F.Name <> "Tableau" Then F.Delete
Next F
With Sheets("Tableau")
    Data = .Range(.Cells(2, 1), .Cells(Rows.Count, 7).End(xlUp)).Value
End With
For i = LBound(Data, 1) + 1 To UBound(Data, 1)
    Sheets.Add After:=Sheets(Sheets.Count)
    On Error Resume Next
    Sheets(Sheets.Count).Name = Data(i, 1)
    On Error GoTo 0
    With ActiveSheet
        .Cells(1, 1).Value = Data(i, 1)
        For j = LBound(Data, 2) To UBound(Data, 2)
            If Data(i, j) = 2 Or Data(i, j) = 3 Then
                .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = Data(1, j)
            End If
        Next j
    End With
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Cordialement

 

Pièces jointes

• bobjazz(2).xls

  30.5 KB · Affichages: 42

Dernière édition: 6 Avril 2011

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 6 Avril 2011

• #3

Re : Création onglets avec macro

Bonjour Efgé

Je viens de testé ton fichier et super.
Je vais adapter ta macro avec mon fichier du travail.
Si j'ai un souci ou si cela fonctionne comme je veux, je te tiens au courant.
Merci d'avance

Bobjazz

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 6 Avril 2011

• #4

Re : Création onglets avec macro

Bonjour Efgé

Cela fonctionne,
Une question, est ce que c'est compliqué de remplir les onglet avec un modèle.
Si tu penses que c'est possible, je te met mon fichier

Merci d'avance

Bobjazz

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 6 Avril 2011

• #5

Re : Création onglets avec macro

Re
Tout dépend du modèle 😉,
"Faut voir..."😉
Cordialement

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 6 Avril 2011

• #6

Re : Création onglets avec macro

Re,

Ta macro fonctionne, mais comme j'ai l'onglet "Affichage Site", lors de création des onglets, cela enlève celui-là.
Sinon je t'ai mis mon modèle et le résultat, crois tu que c'est possible ou cela fait l'objet d'une autre discussion.

Je te remercie d'avance

Bobjazz

 

Pièces jointes

• bobjazz(3).zip

  96.4 KB · Affichages: 20

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 6 Avril 2011

• #7

Re : Création onglets avec macro

Re
Je regarde et te dis ce que je peux faire.
Cordialement

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 6 Avril 2011

• #8

Re : Création onglets avec macro

Re
Au prix d'une concession, si elles est acceptable.
Les feuilles "Affichage Site" et une nouvelle feuilles "Images" sont masquées, mais on pourrais les laisser affichées.
Les images sont nommées comme l'incident qu'elle décrivent., sauf "HYGIENE BIOLOGIQUE BACTERIOLOGIQUE" qui est devenue "HYGIENE BIOLOGIQUE" car le nom est trop long pour une image (c'est ça la concession...).
Dis moi si cela correspond à ton attente.
Cordialement

 

Pièces jointes

• bobjazz(5).zip

  121.5 KB · Affichages: 29

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 6 Avril 2011

• #9

Re : Création onglets avec macro

Re
Merci cela correspond à mon attente.
Est ce que l'on peut rajouter dans la macro, le faite que si une ligne ne contient pas de chiffre ne crée pas un onglet et question, comment fait tu apparaitre les feuille cachées
Encore merci
Excuse de prendre de ton temps
Cdlt
Bobjaz

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 6 Avril 2011

• #10

Re : Création onglets avec macro

Re
J'ai trouvé pour afficher les 2 onglets, c'est dans le code je remplace False par True
Mais je ne vois pas comment faire pour les lignes vides.
Merci
Cdlt,
Bobjazz

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 6 Avril 2011

• #11

Re : Création onglets avec macro

Re
Pour afficher les feuilles : Menu Format / Feuille / Afficher Choisir la feuille à afficher.
Pour la selection des feuilles à créer, je met le code dans l'exemple joint (pour ne pas alourdir le fil, il n'y a vraiment que le code).
Cordialement

 

Pièces jointes

• bobjazz(Code).xls

  28.5 KB · Affichages: 37

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 6 Avril 2011

• #12

Re : Création onglets avec macro

Re

Je viens de me rendre compte quand je lance la macro, le nom dans les onglets sont troqués.
Et je t’embête une dernière fois, et-il possible de ne sortir les onglets que si il y a un 2 ou et des 3 et non les vide et celles qui n'ont que des 1.
Je te mets mon fichier pour que tu vois
Encore merci de ta patience
Cdlt,
Bobjazz

 

Pièces jointes

• bobjazz V3.zip

  157.7 KB · Affichages: 29

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 6 Avril 2011

• #13

Re : Création onglets avec macro

Re

Je viens de me rendre compte quand je lance la macro, le nom dans les onglets sont troqués

Cliquez pour agrandir...

Les noms sont trops longs et dépassent la limite autorisée pour nommer un onglet (Essai même à la main tu ne pourras pas)

et-il possible de ne sortir les onglets que si il y a un 2 ou et des 3 et non les vide et celles qui n'ont que des 1.

Cliquez pour agrandir...

C'était prévu dans mon dernier code :

VB:

    If Cpt > 0 Then 'pour ne pas prendre les vides
    'If Cpt > 16 Then ' pour ne créer que les fiches nécessaires.

Si tu prend If Cpt > 16 tu n'aura que les feuilles nécessaires.
Cordialement

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 6 Avril 2011

• #14

Re : Création onglets avec macro

Re

Merci pour ta patience,
Je pense m'en sortir.
Une dernière question, j'ai compris comment rajouter des donner dans ma nouvelle feuille, mais si je rajout une image sur quelle ligne de commande je dois bouger, sachant que pour aller chercher les données, j'ai vu la ligne qui compte les colonnes mais pour les images c'est flou pour moi.

Merci à toi

Bobjazz

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 6 Avril 2011

• #15

Re : Création onglets avec macro

Re

Je pensais avoir compris
Si je rajoute une donnée par exemple sur le fichier dans une colonne après les données que l'on avez, mais non avec une image seulement du texte. Mon but est de rajouter un texte sous la donnée (3, 2) sur les feuilles qui viendrait de la colonne 18

Merci d'avance pour ta patience

Bobjazz

 

Vote positif 0 Vote négatif