Fusionner les cellules qui ont les mêmes valeurs avant d'imprimer

Salut,

J'ai une liste déroulante dans C6, et un tableau (emploi du temps) entre D9 el L20.

Les valeurs des cellules du tableau varient selont la valeur de la liste déroulante.

J'ai un macro qui m'aide à modifier automatiquement les valeurs de C6 et ainsi imprimer tous les résultats.

Private Sub CommandButton1_Click()
Dim xRg As Range
    Dim xCell As Range
    Dim xRgVList As Range
    Set xRg = Worksheets("Feuil1").Range("C6")
    Set xRgVList = Evaluate(xRg.Validation.Formula1)
    For Each xCell In xRgVList
        xRg = xCell.Value
        ActiveSheet.PrintOut
    Next
End Sub

Je voudrais savoir si c'est possible de modifier le code afin de fusionner les cellules alignées qui ont les mêmes valeurs lorsque la valeurs de C6 est modifier, ainsi imprimer le tableau, et puis annuler la fusion et changer la valeurs de C6 automatiquement et ainsi de suite .....

Salut de nouveau,

Voilà à quoi ressemble un peu mon fichier ....

Et merci d'avance.

Salut à tous,

Alors il apparait que ce n'est pas possible?

Bonjour Yassin Issou,ière

Pourquoi ne fusionne tu pas avant ces cellules puisqu'elles portent tous la même valeur? Ici réalisé sur la première ligne.

Sinon mets une image de ce que tu souhaites.

Suite,

Il vaut toujours mieux mettre des exemples qui correspondent à la réalité.

En anonymisant bien sur les données.

chaque cellule contient une classe

c'est à dire, Sixième ou 6ième, Cinquième ou 5B ou 5A, ou autre etc...