Bonjour,
Je cherche à faire une boucle qui additionne 2 cellules d'une même ligne a2+b2, le résultat apparait en c3 puis est coupé pour être collé dans un commentaire en b2.
La boucle simplifiée à 3 lignes fonctionne sauf pour le collage du résultat, la formule est collée dans le commentaire au lieu du résultat, je ne trouve pas de methode pour coller la valeur et non la formule (en rouge)
Sub Evolution()
Dim num_lig As Long
num_lig = 2
For num_lig = 2 To 4
Cells(num_lig, 3) = Cells(num_lig, 1) + Cells(num_lig, 2)
Cells(num_lig, 2).Select
Cells(num_lig, 2).AddComment
Cells(num_lig, 2).Comment.Visible = False
Cells(num_lig, 2).Comment.Text Text:="AM:" & Chr(10) & ""
Cells(num_lig, 3).Select
ActiveCell.FormulaR1C1 = ""
Cells(num_lig, 2).Select
ActiveCell.Comment.Visible = True
Cells(num_lig, 2).Comment.Shape.Select True
Cells(num_lig, 2).Comment.Text Text:="Cells(num_lig, 1) + Cells(num_lig, 2)" & Chr(10) & ""
Cells(num_lig, 2).Select
ActiveCell.Comment.Visible = False
Next
End Sub
Sinon, au lieu d'effectuer le calcul dans une cellule, est il possible de le faire directement dans un commentaire ?
Merci d'avance pour vos lumières !
Je cherche à faire une boucle qui additionne 2 cellules d'une même ligne a2+b2, le résultat apparait en c3 puis est coupé pour être collé dans un commentaire en b2.
La boucle simplifiée à 3 lignes fonctionne sauf pour le collage du résultat, la formule est collée dans le commentaire au lieu du résultat, je ne trouve pas de methode pour coller la valeur et non la formule (en rouge)
Sub Evolution()
Dim num_lig As Long
num_lig = 2
For num_lig = 2 To 4
Cells(num_lig, 3) = Cells(num_lig, 1) + Cells(num_lig, 2)
Cells(num_lig, 2).Select
Cells(num_lig, 2).AddComment
Cells(num_lig, 2).Comment.Visible = False
Cells(num_lig, 2).Comment.Text Text:="AM:" & Chr(10) & ""
Cells(num_lig, 3).Select
ActiveCell.FormulaR1C1 = ""
Cells(num_lig, 2).Select
ActiveCell.Comment.Visible = True
Cells(num_lig, 2).Comment.Shape.Select True
Cells(num_lig, 2).Comment.Text Text:="Cells(num_lig, 1) + Cells(num_lig, 2)" & Chr(10) & ""
Cells(num_lig, 2).Select
ActiveCell.Comment.Visible = False
Next
End Sub
Sinon, au lieu d'effectuer le calcul dans une cellule, est il possible de le faire directement dans un commentaire ?
Merci d'avance pour vos lumières !