Boucle si cellule contient un commentaire

Bonjour,

ça fonctionne super bien. J'aurai une question, est-ce possible de faire une boucle inversée ? La boucle actuelle va de 6 à 10 par exemple. Mais peut-on partir de la cellule A10 à la cellule A6 ? Exemple que j'ai tenté et qui ne fonctionne pas:

Sub Macro4()
Dim i As Integer, decal as Integer

decal = 10
lastli = Sheets("mb").Range("A6").End(xlDown).Row

For i = decal - 1 To 6
    If Not Sheets("mb").Range("E" & i).Comment Is Nothing Then
        Sheets("mb").Range("E6").Interior.ColorIndex = 39
    End If
Next i
End Sub

L'idée est la même que ma première question à savoir si en remontant de 10 à 6, si on tombe sur un commentaire, alors on colorie la cellule E6.

Merci du coup de main.

j'ai tenté ceci mais je bloque pour la fin du code:

Do
decal1 = 10 - 1
    If Not Sheets("mb").Range("E" & decal1).Comment Is Nothing Then
        Sheets("mb").Range("E" & decal1).Copy
        With Sheets("mb").Range("E6")
            .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            .PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End With
    End If
Loop Until Sheets("mb").Range("E" & decal1).Comment = True      'je bloque ici'

Merci de votre aide.

Merci Le Pingou. J'ai posté un code avec une boucle en Do et Loop until car en plus d'une boucle inversée, je voudrai que ma boucle s'arrête dès qu'une cellule contient un commentaire sur la place allant de A10 à A6. Mais mon code Loop until génère un bug. Où est mon erreur?

Merci d'avance.

Bonjour,
Note: ma proposition pour la boucle For ..To ....Next
Salutations.
Le Pingou

Bonjour,

Le problème avec les boucles ci-dessus, c'est qu'elles ne s'arrêtent pas en fonction du contenu de la cellule mais en fonction de i donc de la plage définie. Or, je voudrai que ma boucle s'arrête dès que la condition IF NOT est avérée. En l'occurence, sur la palge lideb et lifin (exemple de A6 à A10), si la cellule A8 contient un commentaire, je voudrai que la macro effectue la manoeuvre (copier/coller) et la boucle s'arrête nette/ou passe au code suivant. Le but de ma démarche est de déterminer le dernier commentaire créer sur la plage de A6 à A10 par exemple car il se peut qu'il y ait des commentaires en A6, A8 et A9. Il me faut le dernier commentaire en partant de A6.

Afin de contourner cela, j'ai pensé à la boucle en Step -1 afin de faire la démarche à l'envers et ainsi déterminer le premier commentaire en partant de A10 à A6.

Désolé si je ne suis pas parvenu au premier abord de mieux exprimer mon besoin. Suite à ce que je viens d'évoquer à l'instant, comment pourrai-je faire ça ?

Merci d'avance.

Oui vous m'avez compris.
Remarque: vous avez raison, il ne s'agit pas de copier/coller mais de couleur de fond.

Excellent! Merci beaucoup!