XL 2016 Macro

[Juretig]

Bonjour, j'ai récupéré dans mon entreprise un fichier de planning production en PJ et les macros semblent avoir un problème, mais n'étant pas du tout un spécialiste je ne comprend pas. Est ce quelqu'un pourrait regarder le problème SVP ?
D'avance Merci

 

[Staple1600]

Bonjour le fil, Juretig

[...] les macros semblent avoir un problème, [...] Est ce quelqu'un pourrait regarder le problème SVP ?

Quelles macros?
Quel problème?
Il y a un message d'erreur qui s'affiche?
Si oui lequel?

Bref, il faudrait plus d'explications et de détails
Parce qu'il y a beaucoup de lecture à se fader

Sub MAJ_DECOUPE()

    Sheets("planning decoupe").Select
    Module2.jours
    Module1.Presse2
    Module1.Presse22
    Module1.Presse25
    Module1.Presse27
    Module1.Presse28
    Module1.Presse30
    Module1.Presse31
    Module1.Presse32
End Sub

 

[Juretig]

Bonjour, j'ai récupéré dans mon entreprise un fichier de planning production en PJ et les macros semblent avoir un problème, mais n'étant pas du tout un spécialiste je ne comprend pas. Est ce quelqu'un pourrait regarder le problème SVP ?
D'avance Merci

Bonjour, et excusez moi de mon manque de précision.
Dans la feuille "saisie" nous saisissons des données par machine les unes en dessous des autres, puis lorsque l'on appui sur la touche "MAJ" la feuille "Planning" se remplie toute seule avec les données saisies, ce qui nous permet d'imprimer une feuille pour la production.

 

[Staple1600]

Re

=>Juretig
Ce que décrit ne ressemble pas un problème, le code VBA fait se pourquoi il a été écrit.
Quel est exactement le problème?

 

[Juretig]

Bonjour,
Toutes les données saisies manuellement dans les colonnes de la feuille "Saisie planning" doivent, après avoir cliquer sur MAJ se retrouver dans la feuille "Planning decoupe" en ligne avec dans chaque case la valeur colonne B et la durée colonne C.
Mais apparemment cela ne fonctionne pas pour la presse 2 et suivantes.

Merci

 

[Staple1600]

Re

J'ai de nouveau regardé ta PJ
Si je ne m'abuse
En ligne 2, il n'y pas d' "entête" Presse2
(seulement Presse 33, 22 , 25, 27, 28, 30, 31 et 32)
Sinon pour la macro Presse2 (qui base donc sur les données de Presse 33 si on regarde ton exemple)

Je propose ma version de code VBA
Redis-moi ce que tu en penses

Sub Presse2()
Dim i&, f As Worksheet
Set f = Sheets("saisie planning")
Dim cht As Chart
Set cht = ActiveSheet.ChartObjects("GraphP2").Chart
cht.ChartArea.ClearContents
For i = 1 To 40
    If f.Cells(2 + i, 3).Value <> 0 Then
    cht.SeriesCollection.Add _
        Source:=f.Range(f.Cells(2 + i, 2), f.Cells(2 + i, 3)), _
        Rowcol:=xlRows, SeriesLabels:=True, CategoryLabels:=False, Replace:=False
    With cht.SeriesCollection(cht.SeriesCollection.Count)
    .HasDataLabels = True
    .DataLabels.ShowSeriesName = True
    .DataLabels.ShowValue = False
    End With
    End If
Next i
End Sub

NB: Je pense qu'on peut encore simplifier un chouia

 

[Juretig]

Bonjour et merci pour le code.
Je l'ai copié et cela semble fonctionner très bien.
Je vais l'utiliser en condition réelle et je reviendrai vers vous pour communiquer les résultats
A bientôt

 

[Juretig]

Bonjour,
Après avoir copier le code tout fonctionne très bien, mais pour l'adapter dans mon fichier définitif, j'aurai besoin d'une précision.
Les données sont saisies a la main dans la feuille "Saisie Planning" puis avec les macros, les graphiques sont insérer dans la feuille "Planning Découpe" et c'est parfait, mais à quel moment dans le code VB on lui indique qu'il faut mettre les données dans la feuille "Planning Découpe" ?
Mon fichier final comprend des données que je saisies toujours dans "Saisie Planning" mais qui elles vont dans une autre feuille "Planning Soudure", j'aurai donc voulu conserver le même code en changeant juste le nom de la feuille pour le graphique.
Merci de votre aide

 

[Juretig]

Rebonjour,

Ne chercher pas j'ai trouvé, c'est la macro du bouton de MAJ qui indique dans quelle feuille faire les graphiques.

Je continue Merci Beaucoup

 

[Staple1600]

Re

c'est la macro du bouton de MAJ qui indique dans quelle feuille faire les graphiques.

Cela, on pouvait déjà le lire dans le message#2.

 

[Juretig]

Bonjour, le code est parfait et le fichier définitif fonctionne parfaitement et je vous remercie de votre aide.

 

[Juretig]

Bonjour, serait il possible dans la macro de rajouter une écriture en font ARIAL taille 12 et Gras ?

 

[Staple1600]

Bonsoir le fil, Juretig

Dans laquelle de macro?
Celle que je propose dans le message#6?

 

[Juretig]

Bonjour,

Oui c'est cela

 

[Juretig]

Bonjour,

En fait il n'est pas nécessaire de modifier la macro, il suffisait de sélectionner la police de caractère directement dans chaque zone graphique et cela fonctionne.
Encore Merci pour votre aide