Re : Copie automatique du Résultat d'une formule dans une autre cellule valeur fixe
Bonjour Dormeur
Version : Excel 2010
j'ai un peu tatonné depuis dimanche et voilà ce que je viens de trouver et qui fonctionne, mais pour toute la page et non pas pour la plage de données, mais c'est déjà un début !
Sub Valcontact()
'
' Valcontact Macro
'
'
Dim ValeurCellule
Dim i As Integer
Worksheets("Contact Pro").Activate
For i = 1 To 4600
On Error Resume Next
Set ValeurCellule = Range("XFD" & i)
ValeurCellule.Select
If ValeurCellule <> "" Then
Selection.Copy
Range("E" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("XFD" & i).Select
Range("XFD" & i) = ""
End If
Next i
End Sub
En réfléchissant à cela, le plus simple serait d'exécuter cette macro (sans la boucle i), une seule fois, a chaque fois que je rentre des données dans la colonne B de mon tableau !
En lisant l'aide de Excel, je n'ai pas vu la possibilité de la faire !
au pire, le faire à la fermeture du fichier serait donc le plus simple !
Merci à tous et bonne journée
Ptitloup62