Copie d'une meme ligne dans une nouvelle ligne d'une table

[Pierre AFS]

Bonjour a toutes et a tous

Voici la macro concernée qui me pose probleme :

Sub Capture()
'
' Capture Macro

Dim DEPART As Object Dimension de la variable de deplacement

Set DEPART = ActiveCell Enregistrement de la cellule de depart selectionnee par utilisateur
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Ajout d'une ligne dans la table pour futur usage a l'endroit selectionne
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B7:M7").Select Selection des donnees a copier
Selection.Copy
Range("DEPART").Select Retour a la cellule pour copier nouvelles donnees
ActiveSheet.Paste
End Sub

La macro bloque au moment du retour a la cellule enregistrée pour la copie :S

J'ai essaye bien des méthodes mais la je commence a coincer

Merci d'avance

 

[phlaurent55]

Re : Copie d'une meme ligne dans une nouvelle ligne d'une table

Bonjour Pierre, et bienvenue sur le forum

peut-être avec:

Dim DEPART As String  Dimension de la variable de deplacement

    Set DEPART = ActiveCell.Address   Enregistrement de la cellule de depart selectionnee par utilisateur

et en fin de code

Range(DEPART).Select  Retour a la cellule pour copier nouvelles donnees

à+
Philippe

 

[Pierre AFS]

Re : Copie d'une meme ligne dans une nouvelle ligne d'une table

Merci Philippe

Doit y avoir un autre élément manquant dans ma macro car avec les modifications proposées, Excel me dit que l'objet est requis lors de la première ligne cf :

Set DEPART = ActiveCell.Address  [COLOR=#00FF00] Enregistrement de la cellule de départ sélectionnée par utilisateur[/COLOR]

Peut être une définition de variable public ou privée defective ?

Merci

Pierre

 

[phlaurent55]

Re : Copie d'une meme ligne dans une nouvelle ligne d'une table

Re,

voir fichier joint pour une autre manière de procéder

à+
Philippe

 

[Pierre AFS]

Re : Copie d'une meme ligne dans une nouvelle ligne d'une table

Merci Beaucoup en reprenant ton texte et en modifiant pour mon programme çà marche !!