OVH Cloud OVH Cloud

Copy Destination :=.Range

6 réponses
Avatar
Statman
Bonjour à tous,

J'ai une plage de donnée avec des formule que je veux coller ailleurs mais
je veux seulement coller la valeur. Lorsque j'utilise oRow.Copy
Destination:=.Range("DataSet1") il colle la formule. Est-ce qu'il est
possible d'ajouter un copy.value ou quelque chose du genre ... voir le code
de mon programme

Merci

With Worksheets("PyraWAVER")
For Each oRow In .Range("CalSet").Rows
Counter = Counter + 1 ' Incrémente le compteur
oRow.Copy Destination:=.Range("DataSet1")

Next oRow
End With

6 réponses

Avatar
papou
Bonjour
C'est toute la ligne que tu veux copier ?
A quoi sert le compteur ?

Cordialement
Pascal

"Statman" a écrit dans le message de
news:
Bonjour à tous,

J'ai une plage de donnée avec des formule que je veux coller ailleurs mais
je veux seulement coller la valeur. Lorsque j'utilise oRow.Copy
Destination:=.Range("DataSet1") il colle la formule. Est-ce qu'il est
possible d'ajouter un copy.value ou quelque chose du genre ... voir le
code
de mon programme

Merci

With Worksheets("PyraWAVER")
For Each oRow In .Range("CalSet").Rows
Counter = Counter + 1 ' Incrémente le compteur
oRow.Copy Destination:=.Range("DataSet1")

Next oRow
End With


Avatar
JB
Bonjour,

Faire de l'enreg auto pour la syntaxe:

Range("A1:C4").Copy
Range("F1").PasteSpecial Paste:=xlPasteValues


Cordialement JB
Avatar
Statman
Bonjour Pascal,

Oui c'est toute la ligne que je veux copier. Le compteur est une option dans
l'ensemble du programme.

L'idée est faire un graphique animé donc je lui dis de lire chacune des
lignes dans une série de cellules qui s'appelle "CalSet" Donc je copy une
ligne à la fois que je colle dans une destination appellé "DataSet1". Mon
graphique est lié à cette ligne. Le problème est que je doit coller les
valeurs et non pas les formules.


Bonjour
C'est toute la ligne que tu veux copier ?
A quoi sert le compteur ?

Cordialement
Pascal

"Statman" a écrit dans le message de
news:
Bonjour à tous,

J'ai une plage de donnée avec des formule que je veux coller ailleurs mais
je veux seulement coller la valeur. Lorsque j'utilise oRow.Copy
Destination:=.Range("DataSet1") il colle la formule. Est-ce qu'il est
possible d'ajouter un copy.value ou quelque chose du genre ... voir le
code
de mon programme

Merci

With Worksheets("PyraWAVER")
For Each oRow In .Range("CalSet").Rows
Counter = Counter + 1 ' Incrémente le compteur
oRow.Copy Destination:=.Range("DataSet1")

Next oRow
End With







Avatar
Statman
Bonjour JB,

En fait , je fait un copier coller-value avant ma boucle mais je veux éviter
de le faire. La première partie de mon programme permet de contourner mon
problème mais j'aimerais savoir si c'est possible de le faire à l'intérieur
de ma boucle à la ligne suivante oRow.Copy Destination:=.Range("DataSet1").
J'ai essayé d'ajouter .value après copy mais ça marche pas ...
oRow.Copy.value Destination:=.Range("DataSet1").

Est-ce qu'il y a une fçon de résoudre ce problème ?

Range("Set").Select
Selection.Copy
Range("q578").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

With Worksheets("PyraWAVER")
For Each oRow In .Range("CalSet").Rows
Counter = Counter + 1 ' Incrémente le compteur
oRow.Copy Destination:=.Range("DataSet1")

DoEvents
If StopNow Then Exit For

' Application.Wait Format(Now + TimeValue("00:00:01"), "hh:mm:ss")

If Counter = NBR Then ' Si la condition est vrai
Exit For ' Quitte la boucle
End If


Next oRow
End With


Bonjour,

Faire de l'enreg auto pour la syntaxe:

Range("A1:C4").Copy
Range("F1").PasteSpecial Paste:=xlPasteValues


Cordialement JB




Avatar
JB
Je n'ai pas le temps de regarder la totalité du programme.
La ligne oRow.Copy Destination:=.Range("DataSet1") doit pouvoir
être coupée en 2 lignes:

oRow.Copy
Range("DataSet1").PasteSpecial Paste:=xlPasteValues

Je suppose que DataSet1 est un nom de cellule et pas une variable.

JB
Avatar
Statman
Merci JB, Je vais essayer ta suggestion.


Je n'ai pas le temps de regarder la totalité du programme.
La ligne oRow.Copy Destination:=.Range("DataSet1") doit pouvoir
être coupée en 2 lignes:

oRow.Copy
Range("DataSet1").PasteSpecial Paste:=xlPasteValues

Je suppose que DataSet1 est un nom de cellule et pas une variable.

JB