Appliquer commentaires à une colonne

Aladin

XLDnaute Occasionnel
Bonjour le forum
Comment faire pour appliquer un commentaire à une colonne C par exemple, a chaque changement de ligne que le commentaire s' applique sur la céllule suivante de la colonne
C
Merci d' avance pour vos réponses
Cdt
Aladin
 

pascal21

XLDnaute Barbatruc
Re : Appliquer commentaires à une colonne

bonjour
j'ai posé la même question il y a quelques temps
voilà une solution
tu crée ton commentaire sur la 1ere cellule tu clic sur le commentaire/copier
ensuite tu selectionnes les cellules de ta colonne édition/collage spécial/commentaires
il doit y avoir une solution en vba pour éviter de surcharger la feuille mais là je ne sais pas faire
bonne journée
 

Aladin

XLDnaute Occasionnel
Re : Appliquer commentaires à une colonne

Rebonjour le forum
Jai trouvé sur le forum ce code que j' ai modifié et teste il fonctionne mais comment le modifier pour l' applique qu' a une seule colonne F

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range

For Each Cell In Target
Call Detection(Cell)
Next Cell
End Sub
Sub Detection(Cell As Range)
Cell.ClearComments
If Cell.Value <> "" Then
With Cell.AddComment
.Visible = False
.Text "Appuyer sur F1 pour transfert vers tâches"
End With
End If
End Sub
Merci d' avance pour la correction
Aladin
 

Kotov

XLDnaute Impliqué
Re : Appliquer commentaires à une colonne

Bonjour Aladin,

Je te propose le code suivant qui n'influe que sur la colonne 6 (F). Pour la colonne C remplaces 6(en rouge) par 3.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim Plage As Range
n& = Cells(65536, [b][color=red]6[/color][/b]).End(3).Row
Set Plage = Range(Cells(2, [b][color=red]6[/color][/b]), Cells(n&, [b][color=red]6[/color][/b])) ' [color=blue]à partir de B6 mais c'est modifiable (Cells(2,6)) [/color]
Columns([b][color=red]6[/color][/b]).Cells.ClearComments
For Each Cell In Plage
If Cell.Value <> "" Then
    Cell.AddComment.Text "Appuyer sur F1 pour transfert vers tâches"[color=blue]' Possibilité d'envisager de multiples commentaires via une variable au format String [/color]
End If
Next Cell
Set Plage = Nothing
End Sub
J'espère avoir répondu à ta demande.
Merci d'avoir posé ce problème, tu m'as donné une idée pour un fichier perso !

Bonne journée
Kotov
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 799
Messages
2 092 241
Membres
105 305
dernier inscrit
Momone59