Macro: collage spécial valeurs

[JJ1]

Bonjour,

J'aurais besoin de votre aide pour modifier mon code:

With ActiveSheet
For i = 1 To 5
Calculate
If Range("AI6").Value = "OUI" Then
.Range("a" & 8, "f" & 8).Copy Destination:=.Range("ea" & i)
End If
Next i
End With

je voudrais faire seulement un copier/coller spécial des valeurs contenues en A8:F8 (et non copier tout ca ce sont des formules)
merci

 

[pierrejean]

Re : Macro: collage spécial valeurs

bonjour jj1

A tester

......
If Range("AI6").Value = "OUI" Then
.Range("a" & 8, "f" & 8).Copy Destination:=.Range("ea" & i)
[COLOR=blue].Range("ea" & i).formula=Range("ea" & i).value[/COLOR]
End If
......

 

[JJ1]

Re : Macro: collage spécial valeurs

Bonjour Pierrejean,
J'ai rajouté ta ligne de code, ça ne marche pas: en EA:EF j' ai #REF car A8:F8 sont des formules.
Il faudrait copier en EA la valeur uniquement et non tout des cellules A8:F8
merci

 

[JJ1]

Re : Macro: collage spécial valeurs

Re,
j'ai trouvé, tout simplement:

.Range("ea" & i, "ef" & i).Value = Range("ad" & 8, "ai" & 8).Value
End If
..

Bonne soirée et merci