L
Lucko
Guest
Bonjour,
Voilà mon problème. J'ai 60 lignes (de E18 à E77). Chaque ligne contient 12 numéros. Je veux copier une à la suite de l'autre les 60 lignes sur la rangée E88 afin de pouvoir les comparer à un autre numéro. En utilisant la fonction enregistrement, j'ai obtenu ce code. Lorsque j'arrête, je peux pouvoir recommencer non pas au début de la ligne mais à la ligne suivant l'arrêt. Comme je suis nul en macro, est-ce que l'on peut réduire ce code à quelques lignes? Merci
Sub Rechercheligneparligne()
Range("E1818").Select
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1919").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2020").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2121").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R8").Select
End Sub
Voilà mon problème. J'ai 60 lignes (de E18 à E77). Chaque ligne contient 12 numéros. Je veux copier une à la suite de l'autre les 60 lignes sur la rangée E88 afin de pouvoir les comparer à un autre numéro. En utilisant la fonction enregistrement, j'ai obtenu ce code. Lorsque j'arrête, je peux pouvoir recommencer non pas au début de la ligne mais à la ligne suivant l'arrêt. Comme je suis nul en macro, est-ce que l'on peut réduire ce code à quelques lignes? Merci
Sub Rechercheligneparligne()
Range("E1818").Select
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1919").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2020").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2121").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R8").Select
End Sub