[Résolu] Simplifier une macro

[klorane]

Bonsoir le forum,

quelle macro pourrait on ecrire à la place de cela :

Sheets("feuil2").Range("C1").value=Sheets("feuil1").Range("B1").value
Sheets("feuil2").Range("C2").value=Sheets("feuil1").Range("B2").value
..
Sheets("feuil2").Range("C1000").value=Sheets("feuil1").Range("B1000").value

Merci

Klorane

 

[Grand Chaman Excel]

Re : Simplifier une macro

Ceci ??

   Sheets("Feuil1").Range("B1:B1000").Copy Sheets("Feuil2").Range("C1")

 

[Fred0o]

Re : Simplifier une macro

Bonjour klorane,

Tu peux écrire ceci par exemple :

    For i = 1 To 1000
        Sheets("feuil2").Range("C" & i).value=Sheets("feuil1" ).Range("B" & i).value
    Next

ou alors :

 Sheets("feuil2").Range("C1:C1000").value=Sheets("feuil1" ).Range("B1:B1000").value

A+

 

[klorane]

Re : Simplifier une macro

Merci à vous 2. C'est parfait!

Les 2 cas sont interessants...

Encore Merci

klorane

 

[DoubleZero]

Re : Simplifier une macro

Bonjour, le Fil, le Forum,

Autre suggestion :

Option Explicit
Sub Souris_oui_mulot_non()
    Application.ScreenUpdating = False
    With Sheets("Feuil2").Columns(3)
        .Clear
        .Value = Sheets("Feuil1").Columns(2).Value
    End With
    Application.ScreenUpdating = True
End Sub

Souris - mulot : klorane sait 😉...

A bientôt 🙂

 

[job75]

Re : [Résolu] Simplifier une macro

Bonsoir à tous,

Très classique quand on ne veut copier que les valeurs :

Sheets("feuil2").[C1:C1000] = Sheets("feuil1" ).[B1:B1000].Value

Bonne fin de soirée.

 

[klorane]

Re : Simplifier une macro

Bonsoir à tous,

Doublezero...tu veux que je sorte les tapettes... ;-)

Bonne nuit!!