Discussion :

[doowy38]

Bonjour,

Tout est dans le titre, je voudrais commenter chaque cellule d'une plage.
Je ne comprend pas bien pourquoi ça ne marche pas.
Voilà mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
With Range("P1137:BH1141")
        .ClearContents
        With .Interior
            .ColorIndex = 13
            .Pattern = xlSolid
        End With
        .AddComment
        With .Comment
            .Visible = False
            .Text Text:="Discordance with a second measure"
        End With
End With

Et voilà un autre bout de mon code qui lui est fonctionnel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
For i = 15 To 60
        For j = 2 To 12806
            If Cells(j, i) < -1 Then
                With Cells(j, i)
                    .ClearContents
                    With .Interior
                        .ColorIndex = 45
                        .Pattern = xlSolid
                    End With
                    .AddComment
                    With .Comment
                        .Visible = False
                        .Text Text:="Value too low"
                    End With
                End With
            End If
            If Cells(j, i) > 10000 Then
                With Cells(j, i)
                    .ClearContents
                    With .Interior
                        .ColorIndex = 50
                        .Pattern = xlSolid
                    End With
                    .AddComment
                    With .Comment
                        .Visible = False
                        .Text Text:="Value too high"
                    End With
                End With
            End If
        Next
Next

Peut-être que ça ne marche que pour une cellule et pas pour une plage... ?
Merci d'avance pour votre aide !

[garion28]

dans le code qui ne arche pas tu écrit sur Range("P1137:BH1141")
et dans le code qui marche tu écrit sur For j = 2 To 12806
donc dans le premier qui écrit sur l'ensemble de la plage alors que le deuxième tu écrit cellule par cellule

si tu veut que ca marche fait 2 boucle, une sur la ligne et l'autre sur la colonne

[aalex_38]

Bonjour,

Peut-être que ça ne marche que pour une cellule et pas pour une plage

Je viens de tester ton code, effectivement il marche pour une cellule et pas pour une plage

[doowy38]

J'avais pensé faire ça en derniers recours, je pense (du moins j'espère) qu'on peut commenter les cellules d'une plage sans passer par une boucle.

Quelqu'un d'autre a-t-il une idée sur la façon de procéder ?

[aalex_38]

Sinon ton code avec une boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim MaPlage As Range, Macellule As Range
Set MaPlage = Range("P1137:BH1141")
 
For Each Macellule In MaPlage
    With Macellule
        .ClearContents
        On Error Resume Next
        .Comment.Delete  ' J'ai rajouté un delete ici si plusieurs passages.
        On Error GoTo 0
        With .Interior
            .ColorIndex = 13
            .Pattern = xlSolid
        End With
        .AddComment
        With .Comment
            .Visible = False
        '    .Visible = True
            .Text Text:="Discordance with a second measure"
        End With
    End With
Next Macellule

[garion28]

c'est pas 2 ligne de code et 0.001 seconde les 30k de ligne géré par l'ordi qui vont t'épuiser ???
je t'assure que tu a juste a faire 2 for imbriqué l'un dans l'autre et c'est réglé

(ne croi pas que ce que je di est méchant biensur ^^)

[doowy38]

Effectivement ce n'est pas ça qui va m'épuiser, ni épuiser l'ordinateur, mais j'aurais voulu savoir s'il était possible de faire autrement.
Je me serais par contre volontiers passé de ton commentaire qui n'apporte rien au problème, et ne crois pas non plus que ce que je dis est méchant.

Je vais faire avec ton code aalex_38 si personne ne trouve la solution.

Merci pour l'aide.

[doowy38]

J'ai essayé ton code aalex_38, ça bloque sur .Comment.Delete.
Je trouve ça bizarre... si je l'enlève il commence à faire la première ligne de la plage puis bloque sur .AddComment peu avant de la terminer...

Bref, je vais passer par des for et des Cells, c'est moins clair mais ça marche bien.

C'est balot quand même, il me semblait très bien ton code.
Tant pis.

Sinon toujours personne pour ma question d'origine ?

[aalex_38]

Un exemple, ajouter un commentaire en C4 et le recopier dans une plage ici C23 L32, a adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
With Range("C4")
    .AddComment
    .Comment.Visible = True
    .Comment.Text Text:="xxxx" & Chr(10) & ""
    .Copy
End With
 
Range("C23:L32").PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False