retour ancienne cellule active

[pralo]

bonjour le forum
j'ai besoin d'aide
j'ai essayer de crée une macro pour copier une ligne, ensuite de la coller sur une autre ligne plus bas.
ca c'est ok
mais revenir sur la cellule predecente automatiquement la... je coince
quelqu'un aurait une idée
merci

 

[chris]

Re : retour ancienne cellule active

Bonjour

Utilise cette syntaxe : cela évitera de quitter la cellule Sub Copie_ligne_de_donnée()

    Sheets("Planning").Select
     ActiveCell.Resize(1, 12).Copy Destination:=Range("A31")
End Sub

 

[pralo]

Re : retour ancienne cellule active

bonsoir chris
je n'est pas pu répondre avant, désolé
mais ton code fonctionne a merveille
merci pour ton aide
je vais continuer "d'essayer" d'intégrer d'autre macro mais j'ai peur du résultat
je verrai bien
merci

 

[pralo]

Re : retour ancienne cellule active

bonsoir a tous
j'ai un petit souci de syntaxe
j'ai crée un autre bouton pour coller la ligne 31 dans n'importe qu'elle cellule de la colonne a
mais je ne trouve la syntaxe pour coller dans la cellule active
merci du coup de main

Sub coller_ligne_de_donnée()
Sheets("Planning").Select
Range("A31113:L31113").Copy Destination:=Range("?????")


End Sub

 

[laurent950]

Re : retour ancienne cellule active

Bonsoir
End Sub

Sub coller_ligne_de_donnée()
Sheets("Planning").Select
' Range("A31113:L31113") = Copie ligne N° 31 113 colonne A à colonne L
' Destination:=Range("A31:L31") = Copie ligne N° 31 colonne A à colonne L
'Range("A31113:L31113").Copy Destination:=Range("A31:L31")
' la cellule active
Range("A31:L31").Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column)
end sub

laurent

 

[pralo]

Re : retour ancienne cellule active

bonsoir Laurent
je fait une "boulette" dans mes explications et ma macro

avec le bouton "COLLER", je voudrais copier la ligne de A31 à L31
et la coller la ou se trouve la cellule active sur laquelle je suis

Range("A31:L31").Copy Destination:=Range("activecell")

j'espère que mes explications ne sont pas trop tordu
merci pour ton aide

 

[laurent950]

Re : retour ancienne cellule active

Poste #5 corrigé

Range("A31:L31").Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column)

 

[pralo]

Re : retour ancienne cellule active

bonjour laurent
merci
ca marche impeccable