luke3300
XLDnaute Impliqué
Bonjour à tous,
quelqu'un pourrait-il me dire pourquoi les données concernées par ce code se recopient-elles toujours sur la 2ème ligne de ma feuille BD?
J'ai pourtant appliqué le début et la fin d'un code qui fonctionne parfaitement sur un autre fichier mais sur celui-ci qui est du même genre, ça va pas.
Je précise que tout le reste du code fonctionne, il n'y a que le fait que les données se recopient toujours sur la même ligne au lieu d'aller chaque fois à la suivante.
quelqu'un pourrait-il me dire pourquoi les données concernées par ce code se recopient-elles toujours sur la 2ème ligne de ma feuille BD?
J'ai pourtant appliqué le début et la fin d'un code qui fonctionne parfaitement sur un autre fichier mais sur celui-ci qui est du même genre, ça va pas.
Code:
Sub Transfert()
'
' Transfert Macro
'
Application.ScreenUpdating = False
'
i = 2
debut:
Sheets("BD").Select
If Range("A" & i) <> "" Then
i = i + 1
GoTo debut
Else
Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
Sheets("BD").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("B10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("B12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("B14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("B16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("B18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
ActiveSheet.Shapes("Drop Down 8").Select
Application.CutCopyMode = False
Selection.Copy
Range("B19").Select
Selection.Copy
Sheets("BD").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("E8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("E10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("E12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("E14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("K2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("E16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("E18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("E20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("N2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("H6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("W2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("H8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("O2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("H10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("P2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("H12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("Q2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("H14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("R2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("H16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("S2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("H18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("T2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("H20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("U2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("V2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("A25").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-25
Range("B6").Select
End If
End Sub
Je précise que tout le reste du code fonctionne, il n'y a que le fait que les données se recopient toujours sur la même ligne au lieu d'aller chaque fois à la suivante.