VBA - copier collage spécial

bonjour,


j'ai pas cherché à comprendre ce que tu voulais faire mais je t'ai
réecrit ta proc pour la rendre syntaxiquement correcte.Peut-être celaà
te suffira t-il ?

sub macro03
With Range("F3")
.FormulaR1C1 = "1"
.Copy
End With
Range("C1:D30").PasteSpecial Paste:=xlValues, operation:=xlMultiply
Application.CutCopyMode = False
end sub

A+

Bonjour

dans mon programme VBA
j ai inscrit la formule suivante :

sub macro03
Range ("F3).select
Activecell.formulaR1C1 = "1"
Range(F3).select
selection.copy
range("C1:D30").select
selection.pastespecial paste:xlvalues, operation:=xlmultiply, skipblanks _
:úlse, transpose:úlse
end sub

et le copier coller spécial ne fonctionne pas
je devrais avoir une multiplication pour modifier mes nbre (format texte )
en réel nbre

pouvez vous m'aider

jml

Bonjour Jean marie ,
si j'ai bien compris le but (remettre en nombre les colonnes 3 et 4):

'***
Sub numenCD()
Dim i As Integer
For i = 3 To 4
Columns(i).Select
Selection.TextToColumns _
Destination:Îlls(1, i), _
TrailingMinusNumbers:=True
Selection.HorizontalAlignment = xlRight
Next
End Sub
'***

'lSteph

"jean marie" <jeanmarie@discussions.microsoft.com> a écrit dans le message
de news: F29A7360-FABF-4467-A3F4-3ED70D69FBAF@microsoft.com...

Bonjour

dans mon programme VBA
j ai inscrit la formule suivante :

sub macro03
Range ("F3).select
Activecell.formulaR1C1 = "1"
Range(F3).select
selection.copy
range("C1:D30").select
selection.pastespecial paste:xlvalues, operation:=xlmultiply, skipblanks _
:úlse, transpose:úlse
end sub

et le copier coller spécial ne fonctionne pas
je devrais avoir une multiplication pour modifier mes nbre (format texte )
en réel nbre

pouvez vous m'aider

jml

Bonjour *jean marie*
| Bonjour
|
| dans mon programme VBA
| j ai inscrit la formule suivante :
|
| sub macro03
| Range ("F3).select

Activecell.formulaR1C1 = "=1"

| Range(F3).select
| selection.copy
| range("C1:D30").select

selection.pastespecial paste:=xlPasteAll, operation:=xlmultiply, _

| skipblanks _ :úlse, transpose:úlse
| end sub

2 petites modifications et cela semble fonctionner

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net

je devrais avoir une multiplication pour modifier mes nbre (format texte )
en réel nbre

[C1:D30] = [C1:D30].Value
devrait suffire...

AV