Discussion :

[pourinfo]

Bonjour,

J'ai ajouté cette macro à une colonne pour que les cellules ayant un commentaire. Du coup, toutes les cellules en ont un. Néanmoins, je voudrais restreindre l'ajout de commentaire uniquement aux cellules ayant une mise en forme remplissage en orange.
Là, je sèche! merci pour vos conseils...

Code :

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

1
2
3
4
5
6
7
8
Sub Commentaire()
Dim vCellule As Object
For Each vCellule In Selection
    vCellule.AddComment
    'If vCellule 'Rajouter ConditionSi la cellule est en orange
    vCellule.Comment.Text "Ajoutez une précision."
Next
End Sub

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Commentaire()
Dim vCellule As Range, plage As Range
Set plage = Range("A1:F566") ' à adapter 
For Each vCellule In plage  'plage mieux que selection (pas besoin de sélectionner)
    If vCellule.Interior.ColorIndex = 46 Then
        vCellule.ClearComments
        vCellule.AddComment
        vCellule.Comment.Text "Ajoutez une précision."
    End If
Next v cellule
Set plage=nothing
End Sub

[pourinfo]

Bonjour,

Ca ne marche pas : les commentaires ne s'ajoutent.

la couleur peut-être, vous indiquez 46 ; j'ai essayé en créant la pallette des couleurs, ce qui me donne 44, en regardant l'orange un peu jaunâtre que j'avais attribué.
Ou est-ce un autre problème ??

Est-il possible de traduire la mise en forme conditionnelle que j'avais effectuée par le menu format, en vba et l'incorporer dans la macro :

"Si la colonne H ne contient pas de texte, alors la colonne D devient orange".
(sachant que la colonne H contient en fait un lien hypertexte auquel j'ai attribué un nom).

Merci!

[mercatog]

Néanmoins, je voudrais restreindre l'ajout de commentaire uniquement aux cellules ayant une mise en forme remplissage en orange.

Est-il possible de traduire la mise en forme conditionnelle que j'avais effectuée par le menu format, en vba et l'incorporer dans la macro

2 situations différentes.

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
Sub Commentaire()
Dim vCellule As Range, plage As Range
Set plage = Range("H1:H100") ' à adapter
For Each vCellule In plage  'plage mieux que selection (pas besoin de sélectionner)
    With vCellule
        If .Value = "" Then
            With .Offset(0, -4)
                .Interior.ColorIndex = 46
                If .Comment Is Nothing Then
                   .AddComment
                   .Comment.Text "Ajoutez une précision."
                End If
            End With
        End If
    End With
Next vCellule
Set plage = Nothing
End Sub

[pourinfo]

Bonjour,

C'est mieux. J'ai remplacé

Code :

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

Set plage = Range("H33:H1000") ' car mon tableau commence à la ligne 33.

Néanmoins, la mise en forme s'applique dès la cellule

Je change :

Code :

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

For Each vCellule In plage  'plage mieux que selection (pas besoin de sélectionner)

en :

Code :

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

For vCellule In plage

(incorrect) ; idem pour

Code :

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

vCellule = Range ("H33:H1000")

(incorrect aussi) --> Que doit-on changer dans cette For Each... Next ?
Merci!

[mercatog]

Néanmoins, la mise en forme s'applique dès la cellule

J'ai rien compris, si tu peux expliciter

le code précédent réponds as ceci

"Si une cellule de la colonne H ne contient pas de texte, alors la cellule de la colonne D sur la même ligne devient orange avec un commentaire".