Macro VBA pour afficher agenda de toutes les réunions

Bonjour,

Je sollicite votre aide mes amis pour insérer une macro VBA dans le fichier excel ci-joint, qui permettra d'afficher sur la première page en couleur les cases correspondantes à toutes les réunions affichées sur les 8 autres feuilles excel (un consolidé d'agenda). Merci d'avance.

Celine.

Multi posté

tu peut créer un bouton et lui affecter cette macro qui vas copier les case avec des couleur différente du blanc dans la première page

Private Sub CopierCellulesColorees()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim cell As Range
    Dim rng As Range
    Dim destCell As Range

    Set wsSource = ThisWorkbook.Sheets("1")
    Set wsSource = ThisWorkbook.Sheets("2")
    Set wsSource = ThisWorkbook.Sheets("3")
    Set wsSource = ThisWorkbook.Sheets("4")
    Set wsSource = ThisWorkbook.Sheets("5")
    Set wsSource = ThisWorkbook.Sheets("6")
    Set wsSource = ThisWorkbook.Sheets("7")
    Set wsSource = ThisWorkbook.Sheets("8")

    Set wsDest = ThisWorkbook.Sheets("Agenda Réunions CNCH")

    Set rng = Union(wsSource.Range("9:13"), wsSource.Range("19:25"), wsSource.Range("32:36"))

    For Each cell In rng

        If cell.Interior.Color <> RGB(255, 255, 255) Then ' Modifier la couleur si nécessaire

            Set destCell = wsDest.Cells(cell.Row, cell.Column)

            cell.Copy
            destCell.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If
    Next cell

    Application.CutCopyMode = False
End Sub

Bonjour à tous,

Un autre essai....

Sub recap_planning()
 Dim sh As Worksheet, cel As Range, plage As Range

  'définit la plage
  Set plage = Range("B7:AA50")

   Application.ScreenUpdating = False
   'efface les couleurs existantes
    Range("9:16,19:29,32:43,46:50").Interior.Color = xlNone

    'boucle sur les feuilles
    For Each sh In ThisWorkbook.Worksheets
     If sh.Name <> "Agenda Réunions CNCH" Then
     'boucle sur les cellules de la plage
      For Each cel In plage
       'si aucune couleur, on applique la couleur correspondante
       If cel.Interior.ColorIndex = xlNone Then _
        cel.Interior.ColorIndex = sh.Range(cel.Address).Interior.ColorIndex
      Next cel
     End If
    Next sh
End Sub

La macro se déclenche à l'activation de la feuille "Agenda Réunions CNCH"

Cordialement,

Bonjour,

Merci bcp les amis.

Et pour afficher l'objet de la réunion pour chaque date dans cet agenda. qu'est ce que je dois rajouter dans la macro

l'objet sera situer ou? comme une note ou cellule a coté ?...

je pense une note ça sera mieux, n'est ce pas?

Fait attention j'ai retester mon code d'avant mais il ne recopie pas tout les case avec des couleur!!!

merci

Re,

Et pour afficher l'objet de la réunion pour chaque date dans cet agenda. qu'est ce que je dois rajouter dans la macro

Autre tentative...

Cordialement,

merci

votre affichier affiche le nom de l'entreprise avec laquelle la réunion est tenue.

comment afficher l'objet de chaque réunion qui correspond a chaque date.

merci xorsankukai pour la macro qui s'active a l'ouverture de la feuille 1.

c'est un fichier pratique pour moi.

Cependant ce qui me dérange c la couleur orange clair sur la première ligne de chaque mois dans la feuille 1.

.Est ce que vous pouvez m'envoyer un fichier sans cette couleur svp

Re,

votre affichier affiche le nom de l'entreprise avec laquelle la réunion est tenue.

comment afficher l'objet de chaque réunion qui correspond a chaque date ?

Nouvelle tentative...en supposant que tu ais inscrit un commentaire dans la cellule colorée en bleue (sinon, seule la couleur apparaitra sur le récap)...

Cependant ce qui me dérange c la couleur orange clair sur la première ligne de chaque mois dans la feuille 1.

Quelle couleur orange ???

Cordialement,

Bonjour,

Merci infiniment.

C'est un fichier bien fait.

Bonne Continuation.

merci

le bouton il est dans chaque réponse que tu a eu dans ce coté là

Bonjour à tous,

Merci pour le retour et pour avoir passé le sujet en résolu,

Bonne continuation,

Cordialement,