Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Commentaire évolutif

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Ozons123
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
O

Ozons123

Guest
Bonsoir le forum,

petite question sur l'insertion d'un commentaire évolutif. Exemple du code:

Sub Toto()
Range("C4").AddComment
Range("C4").Comment.Visible = True
Range("C4").Comment.Text Text:="Test" & Chr(10) & Range("A1") & Chr(10)
Range("C4").Select
ActiveCell.Comment.Visible = False
End Sub

Après validation d'un bouton intégré au userform =>
- insertion d'un commentaire dans la cellule C4 dont le contenu se trouve en
cellule A1

Question:
Si la cellule A1 évolue comment faire évoluer le commentaire ?

Par avance merci Ozons
 
Trier par date Trier par votes
Re : Commentaire évolutif

Bonsoir ozons

Essaie avec ceci dans un nouveau code :

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C4").Comment.Text Text:="Test" & Chr(10) & Range("A1") & Chr(10)
End Sub
@+
 
Vote positif 0 Vote négatif
Re : Commentaire évolutif

Bonsoir Ozons123, SergiO, le Forum,

Une autre façon de voir les choses avec une petite préférence pour l'utilisation de l'évènement Change (au lieu de SelectionChange qui a l'inconvénient majeur de se déclencher lors de chaque changement de sélection et donc souvent à tort...) :
Code: 
[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit[/COLOR]
[COLOR=GREEN]'myDearFriend![/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] Worksheet_Change([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
[COLOR=NAVY]Dim[/COLOR] C [COLOR=NAVY]As[/COLOR] Comment
    [COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target, Range("A1")) [COLOR=NAVY]Is Nothing Then
        With[/COLOR] Range("C4")
            [COLOR=NAVY]On Error Resume Next
            Set[/COLOR] C = .Comment
            [COLOR=NAVY]On Error GoTo[/COLOR] 0
            [COLOR=NAVY]If[/COLOR] C [COLOR=NAVY]Is Nothing Then Set[/COLOR] C = .AddComment
        [COLOR=NAVY]End With
        With[/COLOR] Range("A1")
            [COLOR=NAVY]If[/COLOR] .Text <> "" [COLOR=NAVY]Then[/COLOR]
                C.Shape.TextFrame.Characters.Text = .Text
            [COLOR=NAVY]Else[/COLOR]
                C.Delete
            [COLOR=NAVY]End If
        End With
    End If
End Sub[/COLOR][/SIZE]
Ce code devrait fonctionner dès lors où la valeur de A1 n'est pas le résultat d'une formule...

Cordialement,
 
Vote positif 0 Vote négatif
Re : Commentaire évolutif

Merci à vous deux pour vos réponses. Sergio cela ne fonctionne pas.
MyDear Friend malheureusement A1 est le résultat d'une formule. JE ne pensais pas que cette information pouvait poser problème. Je vais essayé de comprendre ton code tout de même, cela peut me donner des idées. Merci

BOnne soirée Ozons
 
Vote positif 0 Vote négatif
Re : Commentaire évolutif

IL s'agit de cette formule:

=SI('Gestion Du Risque'!$I17=0;0;SI('Gestion Du Risque'!$J17=0;0;SI('Gestion Du Risque'!$K$9="Option1";'Gestion Du Risque'!$J17-($V5*'Gestion Du Risque'!$J17)/$F5;'Gestion Du Risque'!$J17-($X5*'Gestion Du Risque'!$J17)/$F5)))

Formule qui a oublié de faire une petite cure 😀

@+ Ozons
 
Vote positif 0 Vote négatif
Re : Commentaire évolutif

Re Re

Quel est le nom de la feuille contenant tes cellules A1 et C4 du départ ?
(sauf erreur ta formule en A1 de cette feuille fait référence à une autre feuille nommée "Gestion Du Risque").
Avec cet élément, je devrais pouvoir te proposer une autre solution mais ça ne pourra fonctionner que si les cellules I17, J17 et K9 de cette feuille "Gestion Du Risque" ne sont pas elles-même des résultats de formules...
 
Vote positif 0 Vote négatif
Re : Commentaire évolutif

Pour les cellules A1 et C4 il s'agit de l'onglet DATA. Je vais ensuite adapter ton code, je me refuse de faire un simple copier coller sans en comprendre le sens 🙂 . Merci pour ton aide.
 
Vote positif 0 Vote négatif
Re : Commentaire évolutif

Comme j'ai travaillé sur une solution, je me permets quand même de la poster ici... Peut-être cela te dépannera-t'il ou peut-être cela pourra intéresser d'autres ?

J'ai essayé de commenter le code pour tenter d'expliquer la démarche.

Tout d'abord, il convient de supprimer le code cité plus haut, appartenant au module de code de la feuille. Ensuite, il convient de placer le code suivant dans le module de code de l'objet ThisWorkbook :
Code: 
[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE L'OBJET THISWORKBOOK[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit[/COLOR]
[COLOR=GREEN]'myDearFriend! - 06/11/06[/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] Workbook_SheetChange([COLOR=NAVY]ByVal[/COLOR] Sh [COLOR=NAVY]As Object[/COLOR], [COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
[COLOR=NAVY]Dim[/COLOR] Plage [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] C [COLOR=NAVY]As[/COLOR] Comment
    [COLOR=GREEN]'On surveille les antécédents de la formule (situés sur 2 feuilles différentes)[/COLOR]
    [COLOR=NAVY]Select Case[/COLOR] Sh.Name
    [COLOR=NAVY]Case[/COLOR] "DATA"
        [COLOR=NAVY]Set[/COLOR] Plage = Range("F5,V5,X5")
    [COLOR=NAVY]Case[/COLOR] "Gestion Du Risque"
        [COLOR=NAVY]Set[/COLOR] Plage = Range("I17,J17,K9")
    [COLOR=NAVY]Case Else
        Exit Sub
    End Select[/COLOR]
    [COLOR=GREEN]'La modif est recevable pour MAJ du commentaire[/COLOR]
    [COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target, Plage) [COLOR=NAVY]Is Nothing Then[/COLOR]
        [COLOR=GREEN]'Modif du commentaire en C4 = valeur Sheets("DATA").Range("A1")[/COLOR]
        [COLOR=NAVY]With[/COLOR] Sheets("DATA")
            [COLOR=NAVY]With[/COLOR] .Range("C4")
                [COLOR=NAVY]On Error Resume Next
                Set[/COLOR] C = .Comment
                [COLOR=NAVY]On Error GoTo[/COLOR] 0
                [COLOR=GREEN]'Crée le commentaire s'il n'existe pas[/COLOR]
                [COLOR=NAVY]If[/COLOR] C [COLOR=NAVY]Is Nothing Then Set[/COLOR] C = .AddComment
            [COLOR=NAVY]End With[/COLOR]
            [COLOR=GREEN]'MAJ du commentaire[/COLOR]
            [COLOR=NAVY]With[/COLOR] .Range("A1")
                [COLOR=NAVY]If[/COLOR] .Text <> "" [COLOR=NAVY]Then[/COLOR]
                    C.Shape.TextFrame.Characters.Text = .Text
                [COLOR=NAVY]Else[/COLOR]
                    C.Delete
                [COLOR=NAVY]End If
            End With
        End With
    End If
End Sub[/COLOR][/SIZE]
Cordialement,
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
263
Nicolas JACQUIN
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
252
anthoYS
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
760
Francky79
F
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
878
Usine à gaz
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
M
  • Question Question
XL 2016 VBA Liste déroulante
Réponses
2
Affichages
892
Myaah
M
D
  • Question Question
Microsoft 365 Changer la langue d'un commentaire - VBA
Réponses
2
Affichages
969
Diego-Andres
D
N
  • Résolu(e)
XL 2016 Suivi des modifications d'un fichier excel
Réponses
3
Affichages
986
Efgé
A
  • Question Question
Microsoft 365 Copier/coller en boucle avec un nb variable de ligne
Réponses
4
Affichages
1 K
A-F
A
V
  • Question Question
Microsoft 365 VBA : intégration photo en commentaire de cellule
Réponses
6
Affichages
1 K
VAEA
V
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
P
  • Résolu(e)
Microsoft 365 Envoi Mail Multi Destinataires
Réponses
4
Affichages
2 K
Pat13127
P
S
  • Question Question
XL 2019 modifications macro svp
Réponses
3
Affichages
1 K
Bernard_XLD
S
  • Question Question
Microsoft 365 Copier le contenu d'une colonne dans une autre colonne sous forme de commentaire
Réponses
5
Affichages
1 K
specialiste
S
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
  • Question Question
XL 2016 Boucle ne fonctionne pas lors d'un envoi des plusieurs mail
Réponses
8
Affichages
2 K
JEREMY14210
J
  • Question Question
Microsoft 365 Gros problème de ralentissement au lancement d'un inputbox
3 4 5
Réponses
60
Affichages
6 K
soan
S
C
  • Question Question
XL 2019 Insérer plusieurs images dans plusieurs cellules en suivant un ordre précis
2 3
Réponses
30
Affichages
6 K
Staple1600
A
  • Question Question
XL 2016 probleme de transfert de valeur textbox dans les cellules d'une feuille
Réponses
4
Affichages
2 K
ARGENSON
A
N
  • Résolu(e)
Microsoft 365 problème de boucle VBA
Réponses
3
Affichages
1 K
ninajams
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…