voici un bout de code que j'ai recuperé sur le net mais je l'ai adapté a mon fichier,
le probleme c'est que je n'arrive pas à inserer le tableau selectionné là où je veux c'est à dire dans "B86" sans toucher au corps du code.
est ce que qqn pourrai m'aider svp ?
voici le code:
Code:
Private Sub CommandButton1_Click()
With Sheets("bereich1")
Derligne = .Cells(Rows.Count, 1).End(xlUp).Row + 3
.Rows("1:" & Derligne).Copy
End With
With Sheets("angebot")
.Rows(86).Resize(Derligne).Insert Shift:=xlDown
End With
End Sub