Code pour Transposer

jacky49

jacky49

XLDnaute Impliqué
Bonjour le Forum,

voici un code crée avec l'enregistreur de macro, il fonctionne tres bien mais j'aurais voulu savoir s'il y avait possibilité de le raccourci.
Code: 
Sub Transposer()
'
' Transposer Macro
  Application.ScreenUpdating = False
    Range("F3:I11").Select
    Selection.Copy
    Range("A14").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    Range("K3:N11").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=15
    Range("A25").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-21
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    Range("P3:S11").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=27
    Range("A36").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-45
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    Range("U3:X11").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=30
    Range("A47").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-33
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    Range("Z3:AC11").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=51
    Range("A58").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-69
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 27
    Range("AE3:AH11").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=63
    Range("A69").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-75
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 32
    Range("AJ3:AM11").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=72
    Range("A80").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-84
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 38
    Range("AO3:AR11").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=81
    Range("A91").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-87
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 41
    Range("AT3:AW11").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=90
    Range("A102").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-99
    Range("A13").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IF(R[4]C="""","""",R[-11]C)"
    Range("A14").Select
    ActiveWindow.SmallScroll Down:=12
    Range("A24").Select
    ActiveCell.FormulaR1C1 = "=IF(R[4]C="""","""",R[-22]C)"
    Range("A25").Select
    ActiveWindow.SmallScroll Down:=9
    Range("A35").Select
    ActiveCell.FormulaR1C1 = "=IF(R[4]C="""","""",R[-33]C)"
    Range("A36").Select
    ActiveWindow.SmallScroll Down:=9
    Range("A46").Select
    ActiveCell.FormulaR1C1 = "=IF(R[4]C="""","""",R[-44]C)"
    Range("A47").Select
    ActiveWindow.SmallScroll Down:=12
    Range("A57").Select
    ActiveCell.FormulaR1C1 = "=IF(R[4]C="""","""",R[-55]C)"
    Range("A58").Select
    ActiveWindow.SmallScroll Down:=9
    Range("A68").Select
    ActiveCell.FormulaR1C1 = "=IF(R[4]C="""","""",R[-66]C)"
    Range("A69").Select
    ActiveWindow.SmallScroll Down:=12
    Range("A79").Select
    ActiveCell.FormulaR1C1 = "=IF(R[4]C="""","""",R[-77]C)"
    Range("A80").Select
    ActiveWindow.SmallScroll Down:=12
    Range("A90").Select
    ActiveCell.FormulaR1C1 = "=IF(R[4]C="""","""",R[-88]C)"
    Range("A91").Select
    ActiveWindow.SmallScroll Down:=12
    Range("A101").Select
    ActiveCell.FormulaR1C1 = "=IF(R[4]C="""","""",R[-99]C)"
    Range("A102").Select
    ActiveWindow.SmallScroll Down:=-105
    Range("A2").Select
    Selection.Copy
    Range("A13").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=9
    Range("A24").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=6
    Range("A35").Select
    ActiveWindow.SmallScroll Down:=18
    Range("A35,A46").Select
    Range("A46").Activate
    ActiveWindow.SmallScroll Down:=12
    Range("A35,A46,A57").Select
    Range("A57").Activate
    ActiveWindow.SmallScroll Down:=12
    Range("A35,A46,A57,A68").Select
    Range("A68").Activate
    ActiveWindow.SmallScroll Down:=9
    Range("A35,A46,A57,A68,A79").Select
    Range("A79").Activate
    ActiveWindow.SmallScroll Down:=9
    Range("A35,A46,A57,A68,A79,A90").Select
    Range("A90").Activate
    ActiveWindow.SmallScroll Down:=9
    Range("A101,A90").Select
    Range("A90").Activate
    ActiveWindow.SmallScroll Down:=-9
    Range("A101,A90,A79").Select
    Range("A79").Activate
    ActiveWindow.SmallScroll Down:=-15
    Range("A101,A90,A79,A68").Select
    Range("A68").Activate
    ActiveWindow.SmallScroll Down:=-9
    Range("A101,A90,A79,A68,A57").Select
    Range("A57").Activate
    ActiveWindow.SmallScroll Down:=-12
    Range("A101,A90,A79,A68,A57,A46").Select
    Range("A46").Activate
    ActiveWindow.SmallScroll Down:=-12
    Range("A101,A90,A79,A68,A57,A46,A35").Select
    Range("A35").Activate
    ActiveWindow.SmallScroll Down:=-6
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("F28").Select
    Application.ScreenUpdating = True
End Sub

et j'ai aussi celui ci que je voudrais améliorer car pour le moment, il m'imprime les feuilles 1 à 3 mais suivant le nombre de séries , il se peut que je n'ai qu'une page ou 2 ou 3 et j'aimerais savoir ce qu'il faut ajouter au code pour qu'il fasse ce que je lui demande.
Code: 
Sub Impression_pour_Juges()
'
' Impression_pour_Juges Macro
'

'
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1
    Range("E6").Select
End Sub

merci d'avance te je joins mon fichier exemple.
jacky
 

Pièces jointes

  • Essai macro Transpose.zip
    24.4 KB · Affichages: 25
Trier par date Trier par votes
jeanpierre

jeanpierre

Nous a quitté
Repose en paix
Re : Code pour Transposer

Bonjour jacky,

Commence déjà par supprimer tous les : ActiveWindow.ScrollColumn = xx et ActiveWindow.SmallScroll Down:= xxxx

Il y a aussi quelques Range(...).select et .activate qui ne servent à rien

Pour ta seconde question, pas encore regardé.

Bonne fin d'après-midi.

Jean-Pierre
 
Vote positif 0 Vote négatif
jacky49

jacky49

XLDnaute Impliqué
Re : Code pour Transposer

bonsoir jean-pierre ,

merci, j'ai enlevé tous les ActiveWindow.ScrollColumn = xx
comme tu m'as dit et cela fonctionne, pour les Range(...).select et .activate , j'ai essayé d'en enlever quelques uns mais pour le moment, il y a un bug à chaque fois, j'y vais par étape et peut-être que ça va finir par être bon.
merci
jacky
 
Vote positif 0 Vote négatif
ROGER2327

ROGER2327

XLDnaute Barbatruc
Re : Code pour Transposer

Bonsoir à tous
Code nettoyé :
Code: 
[COLOR="DarkSlateGray"][B]Sub Transposer()
'
' Transposer Macro
   Application.ScreenUpdating = False
   Range("F3:I11").Copy Destination:=Range("A14")
   Range("K3:N11").Copy Destination:=Range("A25")
   Range("P3:S11").Copy Destination:=Range("A36")
   Range("U3:X11").Copy Destination:=Range("A47")
   Range("Z3:AC11").Copy Destination:=Range("A58")
   Range("AE3:AH11").Copy Destination:=Range("A69")
   Range("AJ3:AM11").Copy Destination:=Range("A80")
   Range("AO3:AR11").Copy Destination:=Range("A91")
   Range("AT3:AW11").Copy Destination:=Range("A102")
   Range("A13").FormulaR1C1 = "=IF(R[4]C="""","""",R[-11]C)"
   Range("A24").FormulaR1C1 = "=IF(R[4]C="""","""",R[-22]C)"
   Range("A35").FormulaR1C1 = "=IF(R[4]C="""","""",R[-33]C)"
   Range("A46").FormulaR1C1 = "=IF(R[4]C="""","""",R[-44]C)"
   Range("A57").FormulaR1C1 = "=IF(R[4]C="""","""",R[-55]C)"
   Range("A68").FormulaR1C1 = "=IF(R[4]C="""","""",R[-66]C)"
   Range("A79").FormulaR1C1 = "=IF(R[4]C="""","""",R[-77]C)"
   Range("A90").FormulaR1C1 = "=IF(R[4]C="""","""",R[-88]C)"
   Range("A101").FormulaR1C1 = "=IF(R[4]C="""","""",R[-99]C)"
   Range("A2").Copy
   Range("A13").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
      SkipBlanks:=False, Transpose:=False
   Range("A24").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
      SkipBlanks:=False, Transpose:=False
   Range("A101,A90,A79,A68,A57,A46,A35").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
      SkipBlanks:=False, Transpose:=False
   Application.CutCopyMode = False
   Application.ScreenUpdating = True
End Sub[/B][/COLOR]
J'espère que je n'ai pas trop nettoyé.
À tester, car je n'ai pas pu le faire à cause de la liaison à un classeur indisponible.​
ROGER2327
#3042
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
16
Affichages
319
Phil69970
Phil69970
L
  • Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
659
fanfan38
fanfan38
Philou0607
  • Question
XL 2016 Erreur 1004 - Erreur définie par l'application ou par l'objet
Réponses
4
Affichages
564
Philou0607
Philou0607
J
  • Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
2 K
jui42
J
T
  • Résolu(e)
Microsoft 365 Répétition macro sur nombre de lignes X
2
Réponses
28
Affichages
3 K
Phil69970
Phil69970
Syracoti
  • Résolu(e)
XL 2016 Changer de feuille dans une macro
2
Réponses
28
Affichages
3 K
Staple1600
Staple1600
C
  • Résolu(e)
XL 2016 Code VBA pour garder les filtres d'entête actifs - Excel 2016
Réponses
2
Affichages
772
Cat678
C
B
  • Résolu(e)
XL 2019 Modifier une macro pour la feuille active
Réponses
14
Affichages
1 K
berru76
B
chilo27
  • Question
Autres Simplifier une macro
Réponses
1
Affichages
286
fanch55
fanch55
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
445
Averell1976
A

Membres actuellement en ligne

17 membres et 114 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 843
Messages
2 092 748
Membres
105 520
dernier inscrit
Inconnuto