Macro Commentaire + association avec une Condition

Version imprimable

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:

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

Code:

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

26/03/2010, 02h55
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!

Citation:

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

Citation:

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:

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

27/03/2010, 10h09
pourinfo

Bonjour,

C'est mieux. J'ai remplacé

Code:

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:

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

en :

Code:

For vCellule In plage

(incorrect) ; idem pour

Code:

vCellule = Range ("H33:H1000")

(incorrect aussi) --> Que doit-on changer dans cette For Each... Next ?
Merci!
27/03/2010, 10h14
mercatog

Citation:

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

Citation:

"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".
27/03/2010, 10h20
pourinfo

oublié la fin de la phrase.

La macro marche dès la ligne 1; mon tableau commence en ligne 33.
Il s'agit de faire commencer la macro en ligne 33.

Merci!!

tu as adapté le code à ta plage en mettant

Code:

1
2
3
4
5
Set plage = Range("H33:H1000")
For Each vCellule In plage
    With vCellule
        If .Value = "" Then
....

28/03/2010, 16h16
pourinfo

Oui! le hic, c'est que les cellules de 1 à 33 se mettent aussi en orange.
28/03/2010, 16h22
mercatog

ça m'étonne, si tu peux joindre un extrait de ton fichier