Création des Etats automatiquement

[ddm]

Bonjour tout le monde;

quelqu'un peut m'aider svp, voilà j'ai un tableau contient plusieurs enregistrements, je voudrai créer pour chaque enregistrement un états automatiquement dans un nouveau onglet😕, veuillez trouver ci-joint mn fichier.

Merci pour votre aide

Cordialement

 

[JCGL]

Re : Création des Etats automatiquement

Bonjour à tous,

Pourquoi récréer les onglets s'ils sont déjà créés ?

Le bouton "Actualiser" est fait pour çà...

Si tu y tiens vraiment, je vois pour la gestion des "erreurs" 😛

A+ à tous

 

[JCGL]

Re : Création des Etats automatiquement

Bonjour à tous,

Bouton "Créer..." invisible si plus de deux feuilles

A+ à tous

 

[ddm]

Re : Création des Etats automatiquement

JC svp

que je devrai faire comme code pour afficher et masquer une feuille?

Merci

 

[JCGL]

Re : Création des Etats automatiquement

Bonjour à tous,

Si tu es d'accord, je te laisse lister tous tes "souhaits"...
Avec un maximum de renseignements, si tu veux bien (Afficher ou Masquer une feuille : OK mais sous quelle condition... Et avec quel contrôle...)

Nous tenterons une réponse globale 😛

Personnellement, j'ai en horreur les questions tiroirs (question - réponse- autre question). Je me suis trouvé particulièrement conciliant avec toi 🙂

A++
A+ à tous

 

[ddm]

Re : Création des Etats automatiquement

Je sais que j’ai exagéré avec mes requêtes, Merci beaucoup pour votre compréhension et votre patience.

A propos de ma question, en masquant la feuille « Modèle », la création des relevés ne s’exécute pas. Avez-vous une idée ?

cordialement

 

[JCGL]

Re : Création des Etats automatiquement

Bonjour à tous,

Si il ne reste que le masquage de la feuille "Modèle", cela pourra se résoudre rapidement...

As-tu réfléchi aux "souhaits d'améliorations" de ton fichier... ?

A+ à tous

 

[ddm]

Re : Création des Etats automatiquement

Bonjour à tous,

Si il ne reste que le masquage de la feuille "Modèle", cela pourra se résoudre rapidement...

As-tu réfléchi aux "souhaits d'améliorations" de ton fichier... ?

A+ à tous

il me reste que masquer le feuille modèle

slt

 

[JCGL]

Re : Création des Etats automatiquement

Bonjour à tous,

Tu peux avoir d'autres souhaits... 😛

Voici le fichier, qui répondra, j'espère, à ta dernière demande.

A++
A+ à tous

 

[ddm]

Re : Création des Etats automatiquement

Bonjour à tous,

Tu peux avoir d'autres souhaits... 😛

Voici le fichier, qui répondra, j'espère, à ta dernière demande.

A++
A+ à tous

Merci JC

je pense qu'il aura d'autre souhaits ... 😛

Merci pour tt

Cordialement

 

[ddm]

Re : Création des Etats automatiquement

Bonjour le forum;

je voudrai faire la création automatique (avec code) des attestations de réussite dans un nouveau classeur, seulement pour les elèves admis, avez-vous une idée svp

veuillez trouver ci-joint un extrait de mon fichier

Merci d'avance

 

[ddm]

Re : Création des Etats automatiquement

Slt tout le monde

je reviens pour la question ci-dessus

Merci à vous

 

[JCGL]

Re : Création des Etats automatiquement

Bonjour à tous,

Peux-tu essayer avec :

[COLOR=BLUE]Sub[/COLOR] Attestation()
    Application.ScreenUpdating = 0

    [COLOR=BLUE]For[/COLOR] X = Sheets("PV").Range("A65536").End(xlUp).Row [COLOR=BLUE]To[/COLOR] 6 Step -1

        [COLOR=BLUE]With[/COLOR] Sheets("Certificat")
            .Unprotect "ddm"
            .Visible = [COLOR=BLUE]True[/COLOR]
        [COLOR=BLUE]End With[/COLOR]
        [COLOR=BLUE]If[/COLOR] Sheets("PV").Cells(X, 10) = "Admis (e)" [COLOR=BLUE]Then[/COLOR]
            Sheets("Certificat").Copy After:=Sheets("Certificat")
            Range("C22") = Sheets("PV").Cells(X, 1)
            Range("C25") = Sheets("PV").Cells(X, 2)
            Range("C27") = Sheets("PV").Cells(X, 3)

            ActiveSheet.Name = "Certif " & Range("C22")
            ActiveSheet.Protect "ddm"
        [COLOR=BLUE]End If[/COLOR]
    [COLOR=BLUE]Next[/COLOR] X
    [COLOR=BLUE]With[/COLOR] Sheets("Certificat")
        .Protect "ddm"
        .Visible = [COLOR=BLUE]False[/COLOR]
    [COLOR=BLUE]End With[/COLOR]
    Sheets("PV").Activate
[COLOR=BLUE]End Sub[/COLOR]

A+ à tous

 

[ddm]

Re : Création des Etats automatiquement

Bonjour à tous,

Peux-tu essayer avec :

[COLOR=BLUE]Sub[/COLOR] Attestation()
    Application.ScreenUpdating = 0

    [COLOR=BLUE]For[/COLOR] X = Sheets("PV").Range("A65536").End(xlUp).Row [COLOR=BLUE]To[/COLOR] 6 Step -1

        [COLOR=BLUE]With[/COLOR] Sheets("Certificat")
            .Unprotect "ddm"
            .Visible = [COLOR=BLUE]True[/COLOR]
        [COLOR=BLUE]End With[/COLOR]
        [COLOR=BLUE]If[/COLOR] Sheets("PV").Cells(X, 10) = "Admis (e)" [COLOR=BLUE]Then[/COLOR]
            Sheets("Certificat").Copy After:=Sheets("Certificat")
            Range("C22") = Sheets("PV").Cells(X, 1)
            Range("C25") = Sheets("PV").Cells(X, 2)
            Range("C27") = Sheets("PV").Cells(X, 3)

            ActiveSheet.Name = "Certif " & Range("C22")
            ActiveSheet.Protect "ddm"
        [COLOR=BLUE]End If[/COLOR]
    [COLOR=BLUE]Next[/COLOR] X
    [COLOR=BLUE]With[/COLOR] Sheets("Certificat")
        .Protect "ddm"
        .Visible = [COLOR=BLUE]False[/COLOR]
    [COLOR=BLUE]End With[/COLOR]
    Sheets("PV").Activate
[COLOR=BLUE]End Sub[/COLOR]

A+ à tous

Merci JC

que je devrai ajouter à mon code pour créer toutes les attestations dans un nv classeur (un seul) appelé " Attestations" ??

Cordialement