Récupérer l'adresse d'une cellule liée à un commentaire fixe

Bonjour,

Voici mon soucis :

Dans un tableau, j'ai plusieurs cellules contenants des commentaires. Ces commentaires sont soit "plan" soit "livraison". J'aimerais, via une macro, parcourir tous les commentaires de la feuille en question, vérifier si le commentaire contient livraison et si oui, colorier la cellule de ce commentaire d'une couleur (peu importe laquelle).

En espérant avoir été suffisamment clair,

Je joins mon fichier exemple.

D'avance merci.

Bonjour,

Une proposition à étudier et à adapter.

Cdlt.

Bonjour,

Cette solution marche parfaitement ! Merci beaucoup !

Cependant, j'ai remarqué qu'un espace après le mot "livraison", ou un retour à la ligne, empêche la macro de fonctionner. Peut être aller voir du côte de la Fonction InStr...

Encore merci Jean-Eric

Cordialement

Bonjour,

Essaie ainsi :

Public Sub DEMO()
Dim Cell As Range, Rng As Range
    With ActiveSheet
        Set Rng = .Cells.SpecialCells(xlCellTypeComments)
        Rng.Interior.Color = xlNone
        For Each Cell In Rng
            Select Case True
                Case Cell.Comment.Text Like "livraison*"
                    Cell.Interior.Color = 192
                Case Cell.Comment.Text Like "plan*"
                    Cell.Interior.Color = 5287936
            End Select
        Next Cell
    End With
    Set Rng = Nothing
End Sub

Re-Bonjour,

En fait, dans les cases commentaires il y a pas mal de valeurs différents, soit "plan", "plan de charge", ou alors "plan" accompagné du nom d'un chantier.

Du coup, la fonction Like n'ai pas forcément appropriée.

J'ai bidouiller un peu et trouver une solution avec les fonctions InStr et Len .

Re,

Il serait bon de réfléchir à ce que tu souhaites, sans ajouter de nouvelles contraintes aux contraintes existantes.

Cdlt..

Public Sub DEMO()
Dim Cell As Range, Rng As Range
    With ActiveSheet
        Set Rng = .Cells.SpecialCells(xlCellTypeComments)
        Rng.Interior.Color = xlNone
        For Each Cell In Rng
            Select Case True
                Case Cell.Comment.Text Like "*livraison*"
                    Cell.Interior.Color = 192
                Case Cell.Comment.Text Like "*plan*"
                    Cell.Interior.Color = 5287936
            End Select
        Next Cell
    End With
    Set Rng = Nothing
End Sub

Oui oui, en effet.

Merci pour ton aide en tout cas !