Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel raccourcir un code VBA copier-coller

raccourcir un code VBA copier-coller

4 réponses
Avatar
YANN24
Bonjour,
je voudrais savoir comment est-il possible de raccourcir ma macro ci-après
qui se répète un peu.
Merci. YANN

Sub MAJ_01()
'Mise à jour JANVIER
Sheets("Analyse").Select
Range("G8:P8").Select
Selection.Copy
Sheets("Résumé").Select
Range("B8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Analyse").Select
Range("G28:P28").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Analyse").Select
Range("G48:P48").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G68:P68").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B11").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G88:P88").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G108:P108").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G128:P128").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B14").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G148:P148").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B15").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G168:P168").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G188:P188").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B17").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G208:P208").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B18").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G228:P228").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B19").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G248:P248").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B20").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G268:P268").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B21").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G288:P288").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B22").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G308:P308").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B23").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G328:P328").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B24").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G348:P348").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B25").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G368:P368").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B26").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G388:P388").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B27").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G408:P408").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B28").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("Analyse").Select
Range("G428:P428").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B29").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
je voudrais savoir comment est-il possible de raccourcir ma macro ci-après


Sub zzzz()
x = 1
For i = 8 To 428 Step 20
Range("Résumé!B" & x).Value = Range("Analyse!G" & i & ":P" & i).Value
x = x + 1
Next
End Sub

AV

Avatar
anonymousA
bonjour,

J = 8
For I = 8 To 428 Step 20
Sheets("Analyse").Range("G" & I & ":P" & I).Copy
Sheets("Résumé").Range("B" & J).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
J = J + 1
Next

A+



Bonjour,
je voudrais savoir comment est-il possible de raccourcir ma macro ci-après
qui se répète un peu.
Merci. YANN

Sub MAJ_01()
'Mise à jour JANVIER
Sheets("Analyse").Select
Range("G8:P8").Select
Selection.Copy
Sheets("Résumé").Select
Range("B8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Sheets("Analyse").Select
Range("G28:P28").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Sheets("Analyse").Select
Range("G48:P48").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G68:P68").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B11").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G88:P88").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G108:P108").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G128:P128").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B14").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G148:P148").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B15").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G168:P168").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G188:P188").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B17").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G208:P208").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B18").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G228:P228").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B19").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G248:P248").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B20").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G268:P268").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B21").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G288:P288").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B22").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G308:P308").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B23").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G328:P328").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B24").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G348:P348").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B25").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G368:P368").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B26").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G388:P388").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B27").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G408:P408").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B28").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G428:P428").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B29").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

End Sub


Avatar
YANN24
Merci anonymousA.
Impécable. C'est tout de même plus clairvoyant.
Merci. YANN


bonjour,

J = 8
For I = 8 To 428 Step 20
Sheets("Analyse").Range("G" & I & ":P" & I).Copy
Sheets("Résumé").Range("B" & J).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
J = J + 1
Next

A+



Bonjour,
je voudrais savoir comment est-il possible de raccourcir ma macro ci-après
qui se répète un peu.
Merci. YANN

Sub MAJ_01()
'Mise à jour JANVIER
Sheets("Analyse").Select
Range("G8:P8").Select
Selection.Copy
Sheets("Résumé").Select
Range("B8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Sheets("Analyse").Select
Range("G28:P28").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Sheets("Analyse").Select
Range("G48:P48").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G68:P68").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B11").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G88:P88").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G108:P108").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G128:P128").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B14").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G148:P148").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B15").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G168:P168").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G188:P188").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B17").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G208:P208").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B18").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G228:P228").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B19").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G248:P248").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B20").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G268:P268").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B21").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G288:P288").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B22").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G308:P308").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B23").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G328:P328").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B24").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G348:P348").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B25").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G368:P368").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B26").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G388:P388").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B27").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G408:P408").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B28").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Analyse").Select
Range("G428:P428").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Résumé").Select
Range("B29").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

End Sub




Avatar
AV
T'es pas mal dans ton genre !

AV