Macro: collage spécial valeurs

JJ1 · 10 Janvier 2008

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 · 10 Janvier 2008

Re : Macro: collage spécial valeurs

bonjour jj1

A tester

Code:

......
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 · 10 Janvier 2008

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 · 10 Janvier 2008

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

Macro: collage spécial valeurs

JJ1

Guest

pierrejean

XLDnaute Barbatruc

JJ1

Guest

JJ1

Guest

Discussions similaires

Macro: collage spécial valeurs

JJ1

Guest

pierrejean

XLDnaute Barbatruc

JJ1

Guest

JJ1

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency