Dim maCell As Object For Each maCell In Range("D18:D534") ' Le code Next
Dim maCell As Object Dim sTemp As String For Each maCell In Range("D18:D534") sTemp = maCell.Offset(-2, 0).Value ' ou "0,-2" je ne sais jamais dans quel ordre maCell.Comment = Replace(maCell.Comment, "XXXXXXXX", sTemp) Next
Cells(3, 1).NoteText Text:="Codes-Sources"
Dim cel As Object ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Select For Each cel In Selection cel.Comment.Text Replace(cel.Comment.Text, "$P$26", "$P$24") Next cel
maCell.NoteText Text:=stemp, Start:="DC:", Lenght:=100002
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim maCell As Object Dim sTemp As String For Each maCell In Range("D8:D534") sTemp = maCell.Offset(0, -3).Value maCell.NoteText Text:=sTemp, Start:="DC:", Length:="100002" Next
For Each maCell In Range("D8:D534") sTemp = maCell.Offset(0, -3).Value maCell.NoteText Text:= Replace(maCell.NoteText, "100002", sTemp) Next