Appliquer commentaires à une colonne

[Aladin]

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]

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]

Re : Appliquer commentaires à une colonne

bonjour pascal21 et le forum
merci pour ta réponse que je vais appliquer en attendant de trouver une solution par Vba qui comme tu dit evitera de surcharger la feuille
Aladin

 

[Aladin]

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]

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.

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

 

[Aladin]

Re : Appliquer commentaires à une colonne

Bonsoir Kotov et le forum
Merci d' avoir répondu, la modif du code, fonctionne tres bien
c' est exactement ce que j' attendais
Aladin