copier coller par valeur

[ally97]

Bonjour,

Je souhaiterais effectuer un copier coller d'une valeur sur une autre colonne:

Explication:

En colonne H je souhaiterais le copier coller en valeur de la colonne G
Mais si possible par ligne
Voici je que j'ai tenté:

Sub ajouter1()
Range("d1").Value = Range("d1") + 1
Dim x As Integer
For x = 1 To 20
Cells(x, 8) = Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, transpose:=False
Application.CutCopyMode = False

Next x
End Sub

je pense que vous comprendiez mieux avec mon fichier

merci d'avance

 

[Pierrot93]

Re : copier coller par valeur

Bonjour,

ouvert ton fichier et perso pas tout compris...

bon après midi
@+

 

[ally97]

Re : copier coller par valeur

oui c'est vrai ce n'est pas tres clair.
Je travail sur un algorithme pour calculer la clé d'un iban mais j'en ai 271 a faire.
donc en
- colonne B : iban sans clé
-Colonne E : iban calculer (résultat de l'algorithme)
-Colonne G : iban calculer
-Colonne H : copier coller en valeur

La colonne d1 me permet seulement de changer de compte pour calculer la clé de l'iban


J'espere que c'est un peu plus claire

 

[Pierrot93]

Re : copier coller par valeur

Re,

il n'y a que des formules dans la colonne G de ton fichier..... s'il s'agit de copier les valeurs de la colonne G vers la colonne H, regarde peut être ceci, mais pas sutr le fichier joint...

Dim i As Long
For i = 2 To Range("G65536").End(xlUp).Row
    Cells(i, 8) = Cells(i, 7)
Next i

 

[ally97]

Re : copier coller par valeur

oui justement c'est les valeur de la colonne G que je veux copier en h

Mais c'est possible le copier coller ligne par ligne et non par colonne?

 

[Pierrot93]

Re : copier coller par valeur

Re,

oui justement c'est les valeur de la colonne G que je veux copier en h

c'est bien ce que le code proposé fait....

 

[ally97]

Re : copier coller par valeur

Merci pour votre aide