Macro sur une ligne

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Oni
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
O

Oni

Guest
Bonjour à tous
Lorsque j'ai enregistrer une macro, j'ai enregistrer une ligne (4) et la macro se réalise toujours sur cette ligne, mais en fait je voudrai qu'elle se réalise sur la ligne que je sélction
 
Trier par date Trier par votes
La voici
Attention, elle est très longue, mais en fate ce sont toujours les mémes actions qui sont répétées

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 21/06/2006 par SCET
'

'
Sheets('Base de données').Select
Range('A6').Select
Selection.Copy
Sheets('Identification du projet').Select
Range('E8').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('B6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du projet').Select
Range('E12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('C6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du projet').Select
Range('I12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('D6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du projet').Select
Range('E16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('E6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du projet').Select
Range('E21').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('F6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du projet').Select
Range('I21').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('G6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du projet').Select
Range('E25').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('H6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du projet').Select
Range('I25').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('I6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du projet').Select
Range('E29').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=6
Sheets('Base de données').Select
Range('J6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du projet').Select
Range('E32').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('K6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du projet').Select
Range('E35').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
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 = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
Range('L6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du site').Select
Range('D12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('M6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du site').Select
Range('D16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('N6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du site').Select
Range('D21').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('O6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du site').Select
Range('H21').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
Sheets('Base de données').Select
Range('P6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du site').Select
Range('D25').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('Q6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du site').Select
Range('H25').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('R6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du site').Select
Range('D29').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('S6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du site').Select
Range('D33').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('T6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du site').Select
Range('H33').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
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('U6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('H12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('V6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('H14').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('W6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('H16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('X6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('D19').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('Y6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('H23').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('Z6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('H25').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=15
Sheets('Base de données').Select
Range('AA6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('H29').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AB6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('H31').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AC6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('H34').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AD6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('H36').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AE6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('H39').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=6
Sheets('Base de données').Select
Range('AF6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('H41').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
Range('AG6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('D45').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AH6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('H45').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AI6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Identification du terrain').Select
Range('D49').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Application.CutCopyMode = False
Sheets('Base de données').Move Before:=Sheets(7)
Range('AJ6').Select
Selection.Copy
Sheets('Cadre juridique d'intervention').Select
Range('D12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AK6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Cadre juridique d'intervention').Select
Range('D16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=15
Sheets('Base de données').Select
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
Range('AL6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Cadre juridique d'intervention').Select
Range('H20').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AM6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Cadre juridique d'intervention').Select
Range('H22').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AN6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Cadre juridique d'intervention').Select
Range('H25').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AO6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Cadre juridique d'intervention').Select
Range('H27').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AP6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Cadre juridique d'intervention').Select
Range('H30').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AQ6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Cadre juridique d'intervention').Select
Range('H32').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AR6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Cadre juridique d'intervention').Select
Range('H35').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AS6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Cadre juridique d'intervention').Select
Range('H39').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AT6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Cadre juridique d'intervention').Select
Range('H43').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AU6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Cadre juridique d'intervention').Select
Range('H45').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=0
Sheets('Base de données').Select
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 48
Range('AV6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par collectivité').Select
Range('D12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AW6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par collectivité').Select
Range('H12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AX6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par collectivité').Select
Range('L12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AY6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par collectivité').Select
Range('D16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('AZ6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par collectivité').Select
Range('H16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=6
Sheets('Base de données').Select
Range('BA6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par collectivité').Select
Range('H22').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BB6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par collectivité').Select
Range('H24').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BC6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par collectivité').Select
Range('D26').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BD6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par collectivité').Select
Range('H30').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BE6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par collectivité').Select
Range('H32').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Application.CutCopyMode = False
Sheets('Base de données').Move Before:=Sheets(8)
Sheets('Base de données').Select
ActiveWindow.ScrollColumn = 49
ActiveWindow.ScrollColumn = 50
ActiveWindow.ScrollColumn = 51
ActiveWindow.ScrollColumn = 52
ActiveWindow.ScrollColumn = 53
ActiveWindow.ScrollColumn = 54
ActiveWindow.ScrollColumn = 55
ActiveWindow.ScrollColumn = 56
ActiveWindow.ScrollColumn = 57
Range('BF6').Select
Selection.Copy
Sheets('Consultation par groupe SNI').Select
ActiveWindow.SmallScroll Down:=-6
Range('D12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BG6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par groupe SNI').Select
Range('D16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BH6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par groupe SNI').Select
Range('H16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BI6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par groupe SNI').Select
Range('L16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BJ6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par groupe SNI').Select
Range('D20').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BK6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par groupe SNI').Select
Range('H20').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BL6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par groupe SNI').Select
Range('L20').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=12
Sheets('Base de données').Select
ActiveWindow.ScrollColumn = 58
ActiveWindow.ScrollColumn = 59
ActiveWindow.ScrollColumn = 60
ActiveWindow.ScrollColumn = 61
ActiveWindow.ScrollColumn = 60
ActiveWindow.SmallScroll ToRight:=2
Range('BM6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par groupe SNI').Select
Range('H25').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BN6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par groupe SNI').Select
Range('H27').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BO6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par groupe SNI').Select
Range('H30').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BP6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Consultation par groupe SNI').Select
Range('H32').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Application.CutCopyMode = False
Sheets('Base de données').Move Before:=Sheets(9)
Sheets('Base de données').Select
ActiveWindow.SmallScroll ToRight:=6
Range('BQ6').Select
Selection.Copy
Sheets('Validation interne groupe SNI ').Select
Range('D12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BR6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation interne groupe SNI ').Select
Range('H12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BS6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation interne groupe SNI ').Select
Range('D16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BT6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation interne groupe SNI ').Select
Range('D20').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BU6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation interne groupe SNI ').Select
Range('D24').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BV6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation interne groupe SNI ').Select
Range('H24').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BW6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation interne groupe SNI ').Select
Range('D29').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BX6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation interne groupe SNI ').Select
Range('H29').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
ActiveWindow.SmallScroll ToRight:=8
Range('BY6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Proposition de loyer').Select
Range('D12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('BZ6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Proposition de loyer').Select
Range('D16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CA6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Proposition de loyer').Select
Range('H16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CB6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Proposition de loyer').Select
Range('F20').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CC6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Proposition de loyer').Select
Range('F22').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CD6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Proposition de loyer').Select
Range('F24').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CE6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Proposition de loyer').Select
Range('F26').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CF6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Proposition de loyer').Select
Range('F28').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CG6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Proposition de loyer').Select
Range('D31').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
ActiveWindow.SmallScroll ToRight:=9
Range('CH6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation proposition de loyer').Select
Range('D12').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CI6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation proposition de loyer').Select
Range('D16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CJ6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation proposition de loyer').Select
Range('H16').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CK6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation proposition de loyer').Select
Range('D22').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CL6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation proposition de loyer').Select
Range('F26').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CM6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation proposition de loyer').Select
Range('F28').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=15
Sheets('Base de données').Select
Range('CN6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation proposition de loyer').Select
Range('D32').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CO6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation proposition de loyer').Select
Range('D36').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CP6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Validation proposition de loyer').Select
Range('D40').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CQ6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Ancienne caserne').Select
Range('D10').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('Base de données').Select
Range('CR6').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Ancienne caserne').Select
Range('D14').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets('Identification du projet').Select
Range('B42').Select
ActiveWindow.SmallScroll Down:=-6
End Sub
 
Vote positif 0 Vote négatif
re,

Heu... là je ne compreds plus tres bien, tu parles d'une ligne a copier hors dans ton code, je ne vois que des cellules qui sont copiées, enfin j'ai pas tout regardé en détail.

Si tu pouvais m'éclairer, a moins qu'Hervé est une idée.

@+

PS : Je crois que j'avais jamais vu un code aussi long !!! 😉
 
Vote positif 0 Vote négatif
re

oui, en fait il ce ce sont des cellules d'une méme ligne que je copie.
Je ne peut pas copier toute la ligne parce que je copie sur différentes cellules et dans plusieurs classeurs.
Je sais que le code à l'air long, si quelqu'un a une idée pour le racourcir.
merci
 
Vote positif 0 Vote négatif
Salut Oni,

Pour raccourcir le code il faudrait que tes copier/coller suivent une certaine logique afin de mettre en place une boucle ou quelque chose de ce genre, sinon ca va être difficile.
Et si on ne peut pas raccourcir le code, a par recopier le code en modifiant le nom des cellules, je ne vois pas, mais vu la longeur du code ca va être galère.

Tiens nous au courant.

@+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

W
  • Résolu(e)
XL 2019 Colorer la partie d'entêtes d'un pavé de cellules selon clic-doit sur une cellule interne
Réponses
5
Affichages
563
Nicolas JACQUIN
Nicolas JACQUIN
S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
598
TooFatBoy
TooFatBoy
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
521
sousou
sousou
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
521
job75
job75
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
230
finarobert
F
E
  • Question Question
Microsoft 365 Zone imprimable ligne infinie qui s'affiche et pb à l'impression
Réponses
1
Affichages
114
TooFatBoy
TooFatBoy
D
  • Résolu(e)
Microsoft 365 formule SIERREUR qui semble fausse
Réponses
6
Affichages
235
mapomme
mapomme
G
  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
288
ALS35
A
D
  • Question Question
XL 2021 filtre addition occurrence
Réponses
10
Affichages
334
chris
chris
R
  • Question Question
Microsoft 365 Remplissage auto
Réponses
14
Affichages
381
Nain porte quoi
Nain porte quoi
B
  • Résolu(e)
Microsoft 365 modifier des lignes
Réponses
5
Affichages
246
Hecatonchire
H
rastafouette
  • Résolu(e)
XL 2021 tri par lignes
2
Réponses
19
Affichages
1 K
rastafouette
rastafouette
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
231
Marie L
M
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
372
Cousinhub
Cousinhub
J
  • Résolu(e)
XL 2021 langage powerquery
Réponses
4
Affichages
244
JPaul78
J
N
  • Résolu(e)
XL 2013 Somme VBA sur plusieurs ligne
Réponses
8
Affichages
319
Nico77
N
M
  • Question Question
XL 2021 Macro
Réponses
6
Affichages
315
AtTheOne
AtTheOne
eastwick
  • Résolu(e)
XL 2016 copier la même ligne sur la dernière ligne vierge d'un tableau
Réponses
8
Affichages
303
eastwick
eastwick
Magnio
  • Résolu(e)
Microsoft 365 Pointer vers une Ligne/Case selon une sélection
Réponses
10
Affichages
390
Magnio
Magnio
Retour