Discussion :

[teen6517]

Bonjour tout le monde

Voila le petit probleme du jour

J'ai créé une petit macro qui permet de parcourir une feuille de calcul et a chaque foi que je rencontre une cellule avec un fond de couleur rouge, cette cellule resoit un commantaire

voici le bou de code qui fait sa :

Code :

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

1
2
3
4
5
6
7
 
If Sheets(nom_feuille).Cells(compteur_ligne, compteur_colonne).Interior.ColorIndex = 3 Then 
    Cells(compteur_ligne, compteur_colonne).Select
    Cells(compteur_ligne, compteur_colonne).AddComment
    Cells(compteur_ligne, compteur_colonne).Comment.Visible = True
    Cells(compteur_ligne, compteur_colonne).Comment.Text Text:="prévoir remplacement"
End If

les compteur ligne et colone son pour des boucle POUR afain de parcourir toute mes lignes

par contre mon probleme c'est que a partir du moment ou j'ai exécuter une premiere foi ma macro, si je décide de rajouter le fond rouge a dotre cellules et de reéxécuter ma macro, sa plante

a mon avis c'est a cause du fait que il veut remetre un commentaire sur une cellule deja commenter.

comment peut ton verifier si une cellule a un commentaire ou non??
ou sinon au débu de ma macro je lui dit suprimer tout les commentaire de cette page

comment faire l'un ou l'otre??

merci de votre aide

[jfontaine]

Bonjour,

En effet, si un commentaire est déja existant sur une cellule, cela genere une exeption si on refait une creation.
Il faut commencer par la suppression des commentaires existants.
Mais la suppression d'un commentaire si pas existant genere aussi une exeption.
Une solution est de passer sur l erreur en utilisant Resume Next

Code :

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

1
2
3
4
5
6
7
8
9
 
If Sheets(nom_feuille).Cells(compteur_ligne, compteur_colonne).Interior.ColorIndex = 3 Then 
    Cells(compteur_ligne, compteur_colonne).Select
    on error resume next
    Cells(compteur_ligne, compteur_colonne).Comment.Delete
    Cells(compteur_ligne, compteur_colonne).AddComment
    Cells(compteur_ligne, compteur_colonne).Comment.Visible = True
    Cells(compteur_ligne, compteur_colonne).Comment.Text Text:="prévoir remplacement"
End If

[teen6517]

merci sa marche niquel


mais j'ai une petit mais gros comme une montagne ^^
lol


c'est possible d'éxécuter une macro a chaque foi que la feuille de calcul a une modification??

peut etre n'exécuter la macro que si une cellule change de couleur de fond

c'est possible??

[jfontaine]

Il n'y a malheureusement pas d'evenement sur le changement de couleur d'une cellule.

[teen6517]

Jfontaine t'aurais pas un tuto sur les événement qui peuve lancer une macro

Peut etre que le changement de couleur ne fonctionne pas mais peut etre que je trouverai un evenement qui pourait me servir


merci