Mise à jours de la macro "création de fiches" Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
I
Iris34
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 20 février 2017
Version d'Excel : 2013

Message par Iris34 » 20 février 2017, 17:23

Bonjour à tous, :)

J'ai réutilisé une macro que j'avais trouvée sur le internet qui me permet de créer des fiches (une feuille différente pour chaque fiche) à partir d'un tableau de synthèse et d'un modèle de fiche.

Tout ça marche très bien mais maintenant j'aimerais que quand je fais des modifications dans mon tableau de synthèse que les fiches puisse se mettre à jour soit en re cliquant sur le bouton "créer les fiches" soit avec un nouveau bouton...
Ci-joint un exemple de fichier excel avec la macro création de fiche.

J'espère que j'ai été assez claire :?
Si quelqu'un aurait une solution ça m'aiderait vraiment beaucoup.

En vous remerciant
Très cordialement
:D
CreationFiches.xlsm
(57.31 Kio) Téléchargé 12 fois
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 2'033
Appréciations reçues : 36
Inscrit le : 13 mai 2014
Version d'Excel : O365Pro-2019-2011MAC
Version de Calc : 6.3

Message par fred2406 » 20 février 2017, 17:53

Bonjour
:bv:
une proposition de macro de mise a jour
a attribuer a un bouton ou raccourci clavier :
Sub MAJFiches()
Dim cel As Range, ws As Worksheet, trouve As Boolean
Application.ScreenUpdating = False
For Each cel In Range("Noms")
    For Each ws In ActiveWorkbook.Sheets
        If ws.Name = cel Then
            trouve = True
            Exit For
        End If
    Next
    If trouve = True Then
        Sheets("Fiche").Range("C2") = cel
        With Sheets(cel)
            .Range("A1:G31") = Sheets("Fiche").Range("A1:G31").Value
            .Range("C2").Validation.Delete
        End With
    End If
    trouve = False
Next
Application.ScreenUpdating = True
End Sub
Attention ne pas faire des tests sur le fichier originale, toujours utiliser une copie
cela met à jour toutes les feuilles d'un coup, si on ne veut faire que pour la ligne selectionner on peut modifier le code
Fred
Je ne réponds pas aux M.P. non sollicités.
Ne pas oublier :
:btres:
Fred :O-O:
I
Iris34
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 20 février 2017
Version d'Excel : 2013

Message par Iris34 » 20 février 2017, 17:56

Bonjour Fred,
Super merci beaucoup pour ta rapidité ! :D
Je vais regarder ça et je te tiens au courant.

Re Bonjour Fred,
Désolé de te déranger encore :? mais j'ai une erreur.
J'ai attribué ta macro à un bouton mais ça me dit "incompatibilité de type" pour Sheets(cel)
Merci de ton aide
Bonne fin de journée
I
Iris34
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 20 février 2017
Version d'Excel : 2013

Message par Iris34 » 20 février 2017, 18:52

C'est bon j'y suis arrivée :D , il suffisait que je supprime une ligne à mon code : .Range("A1:G31") = .Range("A1:G31").Value
maintenant des que je fais des modifications ça se fait automatiquement dans mes fiches.
Voila mon code au final :
Sub CreaFiches()
Dim cel As Range, ws As Worksheet, trouve As Boolean
Application.ScreenUpdating = False
For Each cel In Range("Noms")
    For Each ws In ActiveWorkbook.Sheets
        If ws.Name = cel Then
            trouve = True
            Exit For
        End If
    Next
    If trouve = False Then
        With Sheets("Fiche")
            .Range("C2") = cel
            .Copy after:=Sheets(Sheets.Count)
            With ActiveSheet
                .Range("C2").Validation.Delete
                .Name = cel
            End With
        End With
    End If
    trouve = False
Next
Application.ScreenUpdating = True
Sheets("TAB Travail").Activate

End Sub

Merci de ton aide ;;)
Bonne soirée
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 2'033
Appréciations reçues : 36
Inscrit le : 13 mai 2014
Version d'Excel : O365Pro-2019-2011MAC
Version de Calc : 6.3

Message par fred2406 » 20 février 2017, 23:09

bonsoir dans ce cas :
:btres:
merci
fred
Je ne réponds pas aux M.P. non sollicités.
Ne pas oublier :
:btres:
Fred :O-O:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message