bylka213
XLDnaute Occasionnel
Bonjour tout le monde je remercie HASCO qui m'a fourni ce code pour pouvoir mettre en commentaire le contenu d'une cellule et effacer cette dernière.
J'ai plusieurs questions:
1) Que dois-je changer pour appliquer cette formule aux colonnes J et K en même temps (pour l'instant cela marche pour la colonne J pour l'appliquer à la colonne K je dois modif le code de cette macro)
2) Comme on peut le voir le Active sheet dit bien que cette macro s'applique sur la feuille que l'on est en train de consulter comment puis-je faire pour appliquer cette macro à toutes les feuilles de mon classeur?
3) Autre soucis les données de ces colonnes sont des données provenant d'une source externe donc quand j'actualise la source externe les cellule se ré-remplisse donc je dois relancer la Macro pour les vider.
Conclusion: n'y aurait t-il pas une façon de faire ceci sans macro mais automatiquement à chaque rajout de données dans ces colonnes?
j'ai beaucoup de questions je l'avoue, la "conclusion" serait la solution optimale à mes yeux et en même temps si vous avez des réponses à es questions pour améliorer ma Macro je suis preneur.
Merci à tous et encore merci HASCO
Code:
Sub MettreCommentaire()
Dim plage As Range
Dim c As Range
Dim derLigne As Long
With ActiveSheet
derLigne = .Range("[COLOR="red"]J[/COLOR]" & .Rows.Count).End(xlUp).Row
Set plage = .Range("[COLOR="red"]J1:J[/COLOR]" & derLigne)
End With
For Each c In plage.Cells
If c.Row > 1 Then
With c
.ClearComments
.AddComment Text:=.Text
.Comment.Shape.Height = 188
.Comment.Shape.Width = 255
.ClearContents
End With
End If
Next c
End Sub
J'ai plusieurs questions:
1) Que dois-je changer pour appliquer cette formule aux colonnes J et K en même temps (pour l'instant cela marche pour la colonne J pour l'appliquer à la colonne K je dois modif le code de cette macro)
2) Comme on peut le voir le Active sheet dit bien que cette macro s'applique sur la feuille que l'on est en train de consulter comment puis-je faire pour appliquer cette macro à toutes les feuilles de mon classeur?
3) Autre soucis les données de ces colonnes sont des données provenant d'une source externe donc quand j'actualise la source externe les cellule se ré-remplisse donc je dois relancer la Macro pour les vider.
Conclusion: n'y aurait t-il pas une façon de faire ceci sans macro mais automatiquement à chaque rajout de données dans ces colonnes?
j'ai beaucoup de questions je l'avoue, la "conclusion" serait la solution optimale à mes yeux et en même temps si vous avez des réponses à es questions pour améliorer ma Macro je suis preneur.
Merci à tous et encore merci HASCO
Dernière édition: