Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code pour Transposer

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

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

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

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
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
16
Affichages
345
Phil69970
L
  • Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
663
fanfan38
  • Question
XL 2016 Erreur 1004 - Erreur définie par l'application ou par l'objet
Réponses
4
Affichages
572
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
  • Résolu(e)
XL 2016 Changer de feuille dans une macro
2
Réponses
28
Affichages
3 K
Staple1600
C
  • Résolu(e)
XL 2016 Code VBA pour garder les filtres d'entête actifs - Excel 2016
Réponses
2
Affichages
774
Cat678
C
B
  • Résolu(e)
XL 2019 Modifier une macro pour la feuille active
Réponses
14
Affichages
1 K
berru76
B
  • Question
Autres Simplifier une macro
Réponses
1
Affichages
287
fanch55
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
450
Averell1976
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…