Remplacer COPY par des valeurs [RESOLU]

[herve62]

Bonjour
J'aime pas trop le COPY/PASTE ( ici on me l'avait déconseillé au début)
donc je voudrai associer un groupe de données , ex de A1 à F1 sans faire de : .range ...COPY
et justement recopier cette zone dans un autre onglet
D'ailleurs je ne sais pas si c'est possible ??? moi j'en suis resté aux boucles de 1 par 1 !!
Merci bien

Dans Feuil1 : A1 = g , B1= jk , C1 = kk , D1= mm
je veux les recopier en Feuil2 : AA1= g AB1=jk ...etc

 

[Pierrot93]

Re : Remplacer COPY par des valeurs

Bonjour,

essaye peut être tout simplement ceci :

Feuil2.Range("A1:E1").Value = Feuil1.Range("A1:E1").Value

bonne journée
@+

 

[herve62]

Re : Remplacer COPY par des valeurs

Slt Pierrot , merci
en fait j'en suis là :

If .Cells(i, "D") <> "Non" Then
                        derligne2 = Sheets("Récap").Cells(Rows.Count, "B").End(xlUp).Row + 1
                     .Range(.Cells(i, 2), .Cells(i, 6))
                       ' .Range(.Cells(i, "B"), .Cells(i, "F")).Copy
                        Sheets("Récap").Range("B" & derligne2).Value = ch
                        'Sheets("Récap").Range("B" & derligne2).PasteSpecial Paste:=xlPasteValues
                    End If

j'essaye de supprimer et trouver une autre solution au Copy / Paste les 2 instructions qui sont en com.

 

[Pierrot93]

Re : Remplacer COPY par des valeurs

Re,

j'essaye de supprimer et trouver une autre solution au Copy / Paste les 2 instructions qui sont en com.

et pourquoi veux tu te passer absolument du copier / collage spécial ? As tu essayé en adaptant le code proposé ?

 

[Pierrot93]

Re : Remplacer COPY par des valeurs

Re,

tu peux adapter comme suit :

If .Cells(i, "D") <> "Non" Then
    derligne2 = Sheets("Récap").Cells(Rows.Count, "B").End(xlUp).Row + 1
    Sheets("Récap").Range("B" & derligne2).Resize(, 5).Value = .Cells(i, 2).Resize(, 5).Value
End If

 

[herve62]

Re : Remplacer COPY par des valeurs [RESOLU]

Et bien Nickel et transparent
merci bien Pierrot
A+