Bonjour à tous
j'ai besoin d'aide au niveau d'une macro dont je me sers et qui était déjà existante.
Sub solder_actions()
' Macro enregistrée le 04/01/2006 par Aurélien DALLE
Dim i As Integer
Dim konteur As Integer
Dim NBsold As Integer
'debut du programme
NBsold = 4
'comptage des cellules dans l'onglet "soldées"
ActiveWorkbook.Worksheets("soldées ").Activate
For konteur = 4 To 4000
If Range(Cells(konteur, 1), Cells(konteur, 1)) <> "" Or Range(Cells(konteur, 2), Cells(konteur, 2)) <> "" Then
NBsold = NBsold + 1
End If
Next konteur
' detection et copie des actions soldées
ActiveWorkbook.Worksheets("en_cours").Activate
For i = 4 To 1000
If Range(Cells(i, 10), Cells(i, 10)) = "Soldée" Then
Range(Cells(i, 1), Cells(i, 13)).Copy ActiveWorkbook.Worksheets("soldées ").Cells(NBsold, 1)
'suppression de la ligne
ActiveWorkbook.Worksheets("en_cours").Activate
Range(Cells(i, 1), Cells(i, 15)).Select
Selection.Delete Shift:=xlUp
NBsold = NBsold + 1
'on reste sur la même ligne
i = i - 1
Cells(i, 1).Activate
Else
End If
Next i
ActiveWorkbook.Worksheets("en_cours").Activate
End Sub
Cette macro me permet de copier donc une ligne complète de l'onglet en_cours, la supprime puis la colle dans l'onglet "soldées". Mon problème est que dans l'onglet "en_cours", une formule se trouve dans la colonne 11 qui effectue une différence entre une date de la colonne 8 et la date du jour qui se trouve dans la case B1.
Est-il possible de copier la valeur de cette différence et non la formule
Merci
