Pb : mettre 2 macro sur la même feuille

[WorkHard]

J'ai 2 macros sur deux feuilles différentes, je souhaiterai les mettre toute les 2 sur la même feuille mais je ne sais pas comment il faut faire (je les ai mis à la suite en enlevant le premier "End Sub" et le deuxième "Private Sub..." mais ça ne fonctionne pas). Que faut-il faire ?

J'ai la macro suivante sur ma feuille 1 :

Private Sub Worksheet_Change(ByVal Target As Range)
ChartObjects(1).Activate
For i = 3 To 9 'boucle
ActiveChart.SeriesCollection(1).DataLabels(i - 2).Select
Select Case Cells(21, i)
Case Range("k4") To Range("m4"): Selection.Text = "Très facile"
Case Range("k5") To Range("m5"): Selection.Text = "Facile"
Case Range("k6") To Range("m6"): Selection.Text = "Moyen"
Case Range("k7") To Range("m7"): Selection.Text = "Dur"
Case Range("k8") To Range("m8"): Selection.Text = "Très Dur"
End Select
Next
End Sub

Et la macro suivante sur la feuille 2 :

Private Sub Worksheet_Change(ByVal Target As Range)
ChartObjects(1).Activate
For i = 3 To 9
ActiveChart.SeriesCollection(1).Points(i - 2).Select 'valeurs de la série
Select Case Cells(21, i)
Case Range("k4") To Range("m4"): Selection.Interior.ColorIndex = Range("k4").Interior.ColorIndex
Case Range("k5") To Range("m5"): Selection.Interior.ColorIndex = Range("k5").Interior.ColorIndex
Case Range("k6") To Range("m6"): Selection.Interior.ColorIndex = Range("k6").Interior.ColorIndex
Case Range("k7") To Range("m7"): Selection.Interior.ColorIndex = Range("k7").Interior.ColorIndex
Case Range("k8") To Range("m8"): Selection.Interior.ColorIndex = Range("k8").Interior.ColorIndex
End Select
Next
End Sub

 

[MACAT]

Re : Pb : mettre 2 macro sur la même feuille

Bonsoir,

En la copiant juste en dessous de l'autre de la feuille 1 et un trait se placera entre les deux.

Je ne sais pas grand chose mais je suis ravie de pouvoir faire une réponse à quelqu'un. C'est la première fois. Je suis

 

[WorkHard]

Re : Pb : mettre 2 macro sur la même feuille

Je viens d'essayer et ça ne fonctionne pas malheureusement, ça dis qu'il y a une erreur de compilation à cause de WorkSheet_Change.

 

[rosfr11]

Re : Pb : mettre 2 macro sur la même feuille

Salut,

tu ne peux pas avoir 2 fois inscrits
Private Sub Worksheet_Change(ByVal Target As Range)

Mets les une en dessous de l'autre en plaçant un end quelque part entre les 2

 

[WorkHard]

Re : Pb : mettre 2 macro sur la même feuille

Lorsque je met les 2 macro à la suite avec "End" entre les 2 et sans mettre "Private..." la deuxième fois, la 2ème macro ne fonctionne pas (elle ne se met pas en route).

 

[jeanpierre]

Re : Pb : mettre 2 macro sur la même feuille

Bonsoir,

Comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
ChartObjects(1).Activate
For i = 3 To 9 'boucle
ActiveChart.SeriesCollection(1).DataLabels(i - 2).Select
Select Case Cells(21, i)
Case Range("k4") To Range("m4"): Selection.Text = "Très facile"
Case Range("k5") To Range("m5"): Selection.Text = "Facile"
Case Range("k6") To Range("m6"): Selection.Text = "Moyen"
Case Range("k7") To Range("m7"): Selection.Text = "Dur"
Case Range("k8") To Range("m8"): Selection.Text = "Très Dur"
End Select
Next

For i = 3 To 9
ActiveChart.SeriesCollection(1).Points(i - 2).Select 'valeurs de la série
Select Case Cells(21, i)
Case Range("k4") To Range("m4"): Selection.Interior.ColorIndex = Range("k4").Interior.ColorIndex
Case Range("k5") To Range("m5"): Selection.Interior.ColorIndex = Range("k5").Interior.ColorIndex
Case Range("k6") To Range("m6"): Selection.Interior.ColorIndex = Range("k6").Interior.ColorIndex
Case Range("k7") To Range("m7"): Selection.Interior.ColorIndex = Range("k7").Interior.ColorIndex
Case Range("k8") To Range("m8"): Selection.Interior.ColorIndex = Range("k8").Interior.ColorIndex
End Select
Next
End Sub

Si tu restes sur la même feuille;

Bonne soirée.

Jean-Pierre

 

[WorkHard]

Re : Pb : mettre 2 macro sur la même feuille

J'obtiens le message suivant lorsque j'utilise la macro :

Erreur d'exécution...:
Impossible d'obtenir la propriété Count de la classe DataLabels.

 

[jeanpierre]

Re : Pb : mettre 2 macro sur la même feuille

Re,

Je ne comprends pas car DataLabels est dans la première partie qui fonctionnait.

La réunion des deux ne change rien à l'exécution de cette partie.

Il va falloir ton fichier ou un extrait représentatif et présentant le même souci pour voir plus clair.

Jean-Pierre

 

[WorkHard]

Re : Pb : mettre 2 macro sur la même feuille

Ca fonctionne! J'ai du faire une erreur tout à l'heure.
Merci Jean-Pierre.